Änderungen auslesen
19.10.2006 09:19:35
Universal
ich habe ein kleines Problem. Ich habe eine riesige Excel-Tabelle, wo ich Änderungen, die ich vorgenommen habe grün markiert habe. Nun möchte ich mit einem Makro diese grünen Felder auslesen. Er soll dann in Spalte R schreiben geändert.
Diese Abfrage habe ich in eine Do-Until-Schleife gepackt, aber das funktioniert nicht so richtig. Er soll in Spalte A so lange jede Zelle prüfen, bis kein Wert mehr drin steht.
Ich danke euch vielmals!!!
Hier ist der Code:
Sub Bedingung()
Set Zelle = Range("a2")
Set Zelle2 = Range("R2")
Do Until Zelle.Value =
If Zelle.Interior.ColorIndex = 4 Then Zelle2.Value = "geändert"
Zelle = Zelle.Rows.Count + 1
Zelle2 = Zelle2.Rows.Count + 1
Loop
End Sub