Ich schaff das einfach nicht!!!
16.01.2008 14:27:06
Daniel
Spalte für Spalte möchte ich ab Spalte B voneinander unabhängige Veranstaltungen planen.
Die Zeilen beinhalten dabei Informationen zur jeweiligen Veranstaltung (A1:Datum, A2:Material, A3:Anfahrtsskizze, A4:Anschrift).
Nun will ich erreichen, dass eine Funktion NUR EINMAL ausgeführt wird SOBALD B2 und B3 und B4 erstmalig den Zellwert "ok" enthalten. Ein löschen dieser Zellen und anschließend wieder eingefügtes "ok" soll keinerlei Funktion mehr auslösen.
Das ganze will ich dann auf alle bevorstehenden Veranstaltungen erweitern aber jedes Mal ganz unabhängig zur vorherigen Veranstaltung.
Ich habe aus dem Forum das folgende Konstrukt gefunden und etwas angepasst an meinen Fall. Aber so wirklich hilft es in meinem Fall nicht.
If Target.Row 2 Then Exit Sub
If Target.Row > 4 And Target.Column 2 Then Exit Sub
If Not IsEmpty(Range("B6").Value) And _
Not IsEmpty(Range("B7").Value) And _
Not IsEmpty(Range("B8").Value) And _
Not IsEmpty(Range("B9").Value) Then _
irgendeineFunktionAusführen
Das ganze soll nun auch für alle weiteren Spalten (also Veranstaltungen) nach Spalte B funktionieren (vielleicht mittels eines Zählers ?):
If Target.Row 2 Then Exit Sub
If Target.Row > 4 And Target.Column 2 Then Exit Sub
If Not IsEmpty(Range("C6").Value) And _
Not IsEmpty(Range("C7").Value) And _
Not IsEmpty(Range("C8").Value) And _
Not IsEmpty(Range("C9").Value) Then _
irgendeineFunktionAusführen
If Target.Row 2 Then Exit Sub
If Target.Row > 4 And Target.Column 2 Then Exit Sub
If Not IsEmpty(Range("D6").Value) And _
Not IsEmpty(Range("D7").Value) And _
Not IsEmpty(Range("D8").Value) And _
Not IsEmpty(Range("D9").Value) Then _
irgendeineFunktionAusführen
und so weiter und so fort....
Kann mir jemand dabei helfen?
Gruß
Dany