Zeile in 3 Tabellen löschen
30.11.2020 15:47:40
nightcab
Ich brauche wieder euer Fachwissen.
Mit folgendem Script kann ich in der aktuellen Tabelle und in zwei weitern eine Zeile löschen.
Sub ZeilenLöschen()
Dim strZelle As String
Dim arrSheets, varSheet
strZelle = Selection.Address
arrSheets = Array(ActiveSheet.Name, "Tabelle2", "Tabelle3")
For Each varSheet In arrSheets
With ActiveWorkbook.Worksheets(varSheet)
.Range(strZelle).Delete Shift:=xlUp
End With
Next varSheet
End Sub
Nun habe ich mir gedacht, ich kann mit
ActiveCell.EntireRow.Select
Ich weiß aber nicht wie und wo ich diesen Code einfüge?
Mit diesem Makro geht´s aber halt nur für die aktive Tabelle.
Sub Zeile_Löschen()
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
Range("C7").Select
End Sub
Kann mit bitte wer helfen?
Gruß nichtcab
Anzeige