Hallo Zusammen,
vielleicht kann mir ja jemand weiterhelfen.
Folgendes Makro habe ich bereits erstellt und scheitere an der Else Bedingung:
Private Sub Workbook_Open()
Dim Liste As Range
ThisWorkbook.Worksheets("Inhaltsverzeichnis").Activate
With ActiveWorkbook.ActiveSheet
If .FilterMode Then
.ShowAllData
[A2].Select
Else
[A2].Select
End If
End With
End Sub
Das Makro funktioniert, allerdings möchte ich erreichen, dass in der Else Bedingung ebenfalls folgendes Befehl
.ShowAllData
[A2].Select
ausgeführt werden soll.
Ich kenne mich nicht wirklich gut in VBA aus und denke wahrscheinlich auch zu kompliziert.
Kann mir da jemand weiterhelfen?
Besten Dank im Voraus
Viele Grüße,
Dennis |