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
Wenn alle Zellen weiß,dann ist auch G1=G2,Dann soll er wieder zu der Anweisung
Private Sub Worksheet_Change(ByVal Target As Range)
Es soll so sein,daß er prüft ob die Zellen C5 bis C17 weiß sind und dann G1=G2
dann Programm weiter!!
Danke Matias ich bin noch neu, aber ich möchte das lernen!!!