Makro in zwei Tabellen ausführen
20.12.2018 00:24:51
nightcab
Bei diesem Makro wird die aktuelle Zeile kopiert, unterhalb wird eine Zeile einfügt und der Inhalt der Zellen ohne Formel gelöscht. Formeln werden kopiert.
Sub Neue_Zeile_Einfügen()
Dim Zelle As Range
ActiveCell.EntireRow.Copy
Cells(ActiveCell.Row - 0, 1).Insert Shift:=xlDown
For Each Zelle In Range(Cells(ActiveCell.Row - 0, 1), Cells(ActiveCell.Row - 0, 255).End( _
xlToLeft))
If Not Zelle.HasFormula Then
Zelle.ClearContents
End If
Next Zelle
Cells(ActiveCell.Row - 0, 2).Select
End
Sub
Sub Leere_Zeilen_Loeschen()
Selection.Delete Shift:=xlUp
End Sub
Ich hätte gerne, dass auch dieses Makro in Tabelle1 und parallel in Tabelle2 und Tabelle3 ausgeführt wird.
Kann mit bitte wer helfen?
Danke
nightcab