HaAllo Kamikazee,
wann tritt denn das Ereignis in C4 ein, damit die bedingung "WAHR" wird? ODer soll einfach nur nach dem Text "WAHR" geprüft werden.
Als Ansatz mal nachfolgende Zeile
Option Explicit
Sub Test()
If Range("C4") = "Wahr" Then _
Range("B" & ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row) = Range("E4")
End SubDas fügt, wenn in Zelle C4 "WAHR" steht den Wert aus E4 in die erste freie Zelle in Spalte B ein.
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]