Zwei gleiche Codes hintereinander
14.11.2022 11:40:10
Melanie
folgende Codes möchte ich hintereinander laufen lassen und frage mich warum es nicht geht bzw. ob, es überhaupt möglich ist. Erst den einen mit einem Button starten, dann den nächsten. Der erste wird ausgeführt, aber nicht der zweite.
Würde mich sehr freuen, wenn mir jemand einen Tipp geben könnte. Auch wenn meine Frage vermutlich unnötig ist. Danke schon mal.
Sub Makro1()
'Infos anzeigen
On Error Resume Next
If Not Intersect(Range("A1"), Target) Is Nothing Then
Application.EnableEvents = False
If Range("A1").Value = "" Then
Worksheets("Tabelle2").ShowAllData
Else
Worksheets("Tabelle2").Range("A1").AutoFilter 1, Range("A1").Value
End If
Application.EnableEvents = True
End If
End Sub
Sub Makro2()
'Infos anzeigen
On Error Resume Next
If Not Intersect(Range("A2"), Target) Is Nothing Then
Application.EnableEvents = False
If Range("A2").Value = "" Then
Worksheets("Tabelle2").ShowAllData
Else
Worksheets("Tabelle2").Range("A2").AutoFilter 2, Range("A2").Value
End If
Application.EnableEvents = True
End If
End Sub