wäre schön wenn mir jemand helfen könnte.
Sub hin()
Sheets("Hilfe").Activate
End Sub
Sub zurück()
Sheets("Berechnungsblatt").Activate
End Sub
Sub hin_und_zurück()
Sheets("Hilfe").Activate
Sheets("Berechnungsblatt").Activate
End Sub
Sub hin()
Set AktBlatt = ActiveSheet
Sheets("Hilfe").Select
End Sub
Sub zurueck()
If Not AktBlatt Is Nothing Then AktBlatt.Select
End Sub
Sub hin()
Set AktBlatt = ActiveSheet
Sheets("Hilfe").Select
End Sub
Sub zurueck()
If Not AktBlatt Is Nothing Then AktBlatt.Select
End Sub