Private Sub Worksheet_Change(ByVal Target As Range)
If Range("G1").Value = Range("G2").Value Then
JedeZweite
End If
JedeZelle
End Sub
Sub JedeZweite()
Dim i As Integer
Application.ScreenUpdating = False
Dim Zelle As Range, Bereich As Range
Set Bereich = Worksheets("Schleife").Range("C5:C17")
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex 2 Then
MsgBox "Es sind noch Einträge zumachen in " & Zelle.Address
End If
Range("G1") = Range("G2")
Next
Hallo!
Ich möchte wenn die Zellen von C5 bis C17 alle weiß sind,
zum Anfang zurück wie mach ich das?
Stimmt das das mit der Anweisung(Range("G1") = Range("G2")
G1 = D2 ist!
Vielen Dank für eure Bemühung!!!!