Hilfe bei Codeanpassung!
Thomas
ich habe im Archiv diesen Code gefunen der Zeilen aus einer Tabelle in eine andere verschiebt.
Nun funktioniert er nur bei 2 Tabs in der Mappe aber ich habe 3 und ich denke das es daran liegt.
Könnte mir jemand bitte helfen das der Code funzt? Danke.
Private Sub CommandButton2_Click()
Dim rngC As Range, rngA As Range
'aus Tabelle ("Übersicht") sollen die Zeilen raus ins Archiv
For Each rngC In Range("G4", Cells(Rows.Count, 12).End(xlUp))
If rngC.Row > 1 And UCase(rngC.Value) = "Abgesagt" Then
If rngA Is Nothing Then Set rngA = rngC Else Set rngA = Union(rngA, rngC)
End If
Next rngC
If Not rngA Is Nothing Then
With Worksheets("Archiv") ' Zieltabelle
rngA.EntireRow.Copy .Cells(.Rows.Count, 12).End(xlUp).Offset(1, -11)
rngA.EntireRow.Delete
End With
End If
End Sub
~Mit freundlichen Grüßen
Thomas