Moin allerseits.
Ich bin grad nen Code am schreiben und brauche Hilfe. Mir zeigt Excel beim Ausführen des Makros, dass ich ein Objekt bräuchte aber nicht wo genau.
Sub Colorfinder()
Dim rngCell As Excel.Range
rngCell = Active.Worksheet.Cells.Range("A")
Do Until rngCell.Font.Color = RGB(84, 130, 53)
With Sheets("Tabelle1" & "Tabelle2").Cells(Rows.Count, "A").End(xlUp).Row
Rows(rngCell.Row).Copy
Sheets("Tabelle3").PasteSpecial Paste:=xlValues
End With
Loop
End Sub
Kontext:
In den Tabellen 1 und 2 stehen in Spalte A nach unten hin Texte in Schwarz und Grün.
Meine Idee war es von der letzten beschriebenen Zeile aus nach oben hin auszulesen bis der Text von Schwarz auf Grün wechselt, und den dann in Tabelle3 zu kopieren.
Klappt aber nicht wie ich es mir vorgestellt habe.
Hat wer Ideen woran es liegen könnte?
Mfg Voli
|