aktuellen Blattnamen speichern
24.01.2008 16:18:00
Thomas
ich habe gerade erst mit VBA angefangn und komme nicht weiter:
Problem:
Ich habe eine Arbeitsmappe mit ca. 15 Blättern
Um die Bedienungsanleitung aufzurufen möchte ich von jedem Blatt dorthin springen, mit zurück soll es wieder zu dem ursprünglichen Blatt gehen.
Diesen Blattnamen will ich in einem Arbeitsblatt "vba_übergabe" in Zelle A5 speichern.
Als Test habe ich das mal in einer Funktion versucht, will nicht funktionieren:
' Zurückschalten aus allen möglichen Blättern zur Eingabe
Public Sub rout_zurück_eingabe()
' und woher kommen wir überhaupt?
Dim kommen_von_wks As String
kommen_von_wks = ActiveSheet.Name
' jetzt erst mal unsere Eingabe aktivieren
Worksheets(Eingabe).Visible = True ' dann Einblenden
Worksheets(Eingabe).Activate
Worksheets(Eingabe).Range(start_eingabe).Activate
Debug.Print kommen_von_wks
Range(Worksheets("vba_übergabe").Cells(5, 2)) = kommen_von_wks
' und das vorherige Blatt verstecken
Worksheets(kommen_von_wks).Visible = xlVeryHidden
End Sub
Wer kann mir da weiterhelfen?
Dank schon jetzt!