Nach Makro ausführen - Absprung falsch
12.10.2022 15:41:06
FrankS
ich habe ein Problem was mir nicht ganz logisch erscheint:
In Tabelle 1 habe ich zwei Formen mit unterschiedlichen Makros hinterlegt:
Form 1 = Tabellenblatt Teamsitzung nicht anzeigen
Form 2 = Tabellenblatt Teamsitzung anzeigen
Wenn ich Makro TeamsitzTermineAusblenden(=Form1) anklicke, wird das entsprechende Tabellenblatt (Tabelle19) ausgeblendet.
Wenn ich Makro TeamsitzTermineschreib(=Form2) anklicke, wird das entsprechende Tabellenblatt (Tabelle19) eingeblendet und es erfolgt ein Absprung in Tabelle19. Ich möchte aber das nach Makro ausführen kein Absprung in ein anderes Tabellenblatt erfolgt.
Ich verstehe leider nicht wie das sein kann bzw. wo der Fehler liegt.
Hier der Code von Form 1:
Sub TeamsitzTermineAusblenden()
'Prüfung User-Code (inkl. Teamsitzung) richtig eingegeben
If Range("I5").Value = 636737 Then
On Error Resume Next
Range("Y12").Value = "ausgeblendet"
Tabelle19.Visible = xlSheetVeryHidden
End If
'Prüfung Admin-Code richtig eingegeben
If Range("I5").Value = 17072007 Then
On Error Resume Next
Range("Y12").Value = "ausgeblendet"
Tabelle19.Visible = xlSheetVeryHidden
End If
End Sub
Sub TeamsitzTermineschreib()
'Prüfung User-Code (inkl. Teamsitzung) richtig eingegeben
If Range("I5").Value = 636737 Then
On Error Resume Next
Range("Y12").Value = "eingeblendet (änderbar)"
Tabelle19.Visible = xlSheetVisible
'Blattschutz ausschalten
Tabelle19.Unprotect
'Schritt - Zellen formatieren - Schutz - gesperrt
Tabelle19.Range("A1:CA200").Locked = True
'Teilbereich für Änderungen freigeben
Tabelle19.Range("C8:C70").Locked = False
Tabelle19.Range("E8:E70").Locked = False
'Blattschutz einschalten
Tabelle19.Protect
End If
'Prüfung Admin-Code richtig eingegeben
If Range("I5").Value = 17072007 Then
On Error Resume Next
Range("Y12").Value = "eingeblendet (änderbar)"
Tabelle19.Visible = xlSheetVisible
'Blattschutz ausschalten
Tabelle19.Unprotect
'Schritt - Zellen formatieren - Schutz - gesperrt
Tabelle19.Range("A1:CA200").Locked = True
'Teilbereich für Änderungen freigeben
Tabelle19.Range("C8:C70").Locked = False
Tabelle19.Range("E8:E70").Locked = False
'Blattschutz einschalten
Tabelle19.Protect
End If
End Sub
Vielen Dank im Voraus
VG Frank