und zwar habe ich ein Makro geschrieben, dass alle Zeilen löschen soll. Wenn ich dieses ausführe dann löscht es mir auch alle Zeilen. Ich möchte aber das dies beim Öffnen der Datei geschieht, da passiert jedoch nichts. Hat jemand einen Tipp?
Sub ZeilenLöschen()
lastRowA = Range("A" & Rows.Count).End(xlUp).Row
Dim I As Long
For I = lastRowA To 59 Step -1
If Rows(I).EntireRow.Hidden = False Then
Rows(I).Delete
End If
Next I
End Sub Das ist in "Dieser Arbeitsmappe" hinterlegt:
Private Sub Workbook_Open()
Call datum
Call InZelleSchreiben
Call ZeilenLöschen
End Sub
Hoffe ihr könnt mir helfen.Liebe Grüße
Sophie