Schleife verbessern, Worksheet_Change
29.01.2009 17:00:00
Michael
Die Schleife geht sicherlich einfacher! Geht das auch als Worksheet_Change? Wenn sich in der Zelle G "Fehler" auftaucht, soll "Sub_info()" starten.
Danke
Gruß Michael
Sub ersterVersuch()
Dim iCounter As Integer
Dim schleifendurchlauf As Integer
schleifendurchlauf = InputBox("Wie oft durchlaufen")
For iCounter = 1 To schleifendurchlauf
Cells(iCounter, 1).Value = "Zeile " & iCounter
If Range("D" & iCounter)
Sub fehler()
Dim iCounter As Integer
For iCounter = 1 To 6
If Range("g" & iCounter) = "Fehler" Then info
Next iCounter
End Sub
Sub info()
MsgBox ("Berichtigen")
End Sub