Hallo zusammen,
in C7, soll geprüft werden, ob etwas geschrieben steht, wenn ja, dann soll in Spalte F8 folgendes stehen: "Einsatzmittel überprüft?". Wenn in C7 nichts steht soll in F8 auch nichts eingetragen werden. Diese Prüfung von der Spalte C ist fortlaufend. Danach wäre also C8 dran. Wenn da was steht, dann soll in F9 "Einsatzmittel überprüft?" stehen. Ich habe folgenden VBA Code dafür, der auch eigentlich das macht was ich will, aber immer nur dann, wenn ich einen Button betätige. Ich hätte gerne, dass die Prüfung immer mitläuft also automatisch geht, ohne den Button jedesmal drücken zu müssen:
Option Explicit
Sub Check_Tools()
Dim i As Long
Do While i < 100
i = i + 1
If Not IsEmpty(Tabelle4.Cells(7 + i, 3)) Then
Tabelle4.Cells(8 + i, 6) = "Einsatzmittel überprüft?"
Else
Tabelle4.Cells(8 + i, 6) = ""
End If
Loop
End Sub
Über Hilfe wäre ich sehr dankbar!
MfG Schwinni
|