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
Damit das aber funktioniert, muss ich zuerst auf Entwurfmodus gehen, dann in der Seitenleiste die gewünschte GANZE Zeile markieren und folgend das Makro starten. Das ist umsändlich.Nun habe ich mir gedacht, ich kann mit
ActiveCell.EntireRow.Select
das ganze verkürzen , indem die betreffende Zeile automatisch markiere wo gerade die aktive zelle ist.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