ich habe folgendes Problem:
Es gibt 2 Tabellenblätter ("DPGroß"=Tabelle3 und "korrektur"=Tabelle15).
Letztlich sollen per Makro alle Zeilen aus DPGroß nach "Korrektur" kopiert werden, wenn in der ersten Spalte eine "1" steht. Sonst soll zur nächsten Zeile gesprungen werden. In der Zieltabelle soll mit Zeile 1 begonnen werden und dann immer weiter aufgefüllt werden.
Wichtig ist, dass in der Ursprungsdatei z.T. Formeln stehen, deren Ergebnisse aber mit der vollständigen Formatierung (Farbe, Größe) kopiert werden sollen.
Meine Idee, die aber immer in einen Laufzeitfehler läuft:
Sub Schaltfläche1_Klicken()
Dim Tab1, Tab2
Dim I As Integer
Dim k As Integer
Set Tab1 = Worksheets("Tabelle3")
Set Tab2 = Worksheets("Tabelle15")
I = Tab1.Rows.Count 'zählt die beschriebenen Zellen durch
For k = 1 To I Step 1
If Tab1.Cells(I, 1) = 1 Then
Tab1.Rows.Copy Destination:=Tab2.Rows
End If
Next
End Sub
Vorab schon ein herzliches Danke!