aufbauend auf diesem Makro suche ich eine Lösung, wie ich die roten TAbellen befüllt bekomme.
Private Sub Neuanlage_Person_für_alle_roten_Reiter()
Dim Blatt As Worksheet
For Each Blatt In ActiveWorkbook.Worksheets
If Blatt.Tab.ColorIndex = 3 Then
Blatt.Select
Range("a65536").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
'run "kopieren"
End If
Next Blatt
ActiveWorkbook.Save
End Sub
Die gesamte Datenmenge befindet sich im Reiter "Daten", der keine Farbe trägt. Nun will ich in jedes rote Blatt nur die Daten kopieren, die für dieses Blatt bestimmt sind.
Der zu prüfende Wert befindet sich in den roten Blättern immer an der gleichen Stelle nämlich in Zelle N1.
Aus dem Reiter "Daten" sollen nun die gesammte Zelle kopiert werden, wenn
Zelle J der betreffenden Zeile mit dem Wert N1 aus dem roten Blatt übereinstimmt.
Im Reiter Daten soll diese Zeile dann gelöscht werden.
Wer kann mir hierbei helfen?
LG und vielen Dank!
Claudia