wie bringe ich Excel dazu, mit Hilfe eines Makros Zeilen abhängig vom Ihnalt bestimmter Spalten in ein anderes Tabellenblatt zu verschieben.
Die Zeilen sollten dabei immer am Endee der Tabelle eingefügt werden.
Ich weis nicht wie ich das lösen soll.
Sub Verschieben()
Dim TB1, TB2, i&, LR1&, LR2&
Set TB1 = Sheets("Aufstellung Brandschutzklappen")
Set TB2 = Sheets("Entfallene Brandschutzklappen")
LR1 = TB1.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile
For i = LR1 To 1 Step -1
If TB1.Cells(i, 1).Value = "Entfällt" Then
LR2 = TB2.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile
TB1.Rows(i).Copy TB2.Rows(LR2 + 1)
TB1.Rows(i).Delete
End If
Next
End Sub
Ich habe nur das Problem, dass der Blattschutz mir immer einen Strich durch die Rechnung macht.
Sub Verschieben()
Sheets("Tabelle1").unprotect
SHeets("Tabelle2").unprotect
[Dein Makro]
Sheets("Tabelle1").protect
SHeets("Tabelle2").protect
End Sub
Grüße,