Sheetwechsel mit button

Forumthread: Sheetwechsel mit button

24.03.2020 12:12:17

Steve

Moin Leute,
ich verzweifel gerade ein wenig. Ich dachte eigentlich das die Lösung nicht so schwer sein kann.
Ich habe eine definierte Zelle mit Namen N_Index. Diese beinhaltet den Namen des Sheets zu dem ich wechseln möchte. Der Inhalt ist immer Nummerisch und dreistellig und das Ergebnis einer Formel.
Nun erstelle ich einen Button mit folgendem Code damit auch zu diesem Sheet gesprungen wird.
Aber irgendwie geht das nicht. Er springt nämlich immer zu der Sheetnummer
Beispiel: Bei 003 springt er zum Dritten Sheet und nicht zu dem Sheet 003

Sub gotoAbfragewert()
Dim AW As Object
Set AW = Range("N_Index")
Worksheets(AW).Select
End Sub

Liegt es daran, dass "N_Index" das Ergebnis einer Formel ist?
Ich hoffe mir kann da jemand weiterhelfen.
Liebe Grüße
Steve

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Sheetwechsel mit button

24.03.2020 12:32:41

AlterDresdner
AW: Sheetwechsel mit button

24.03.2020 15:17:39

Steve
AW: Sheetwechsel mit button

25.03.2020 09:15:33

Steve
AW: Sheetwechsel mit button

24.03.2020 19:31:07

W.Radner
AW: Sheetwechsel mit button

24.03.2020 19:45:52

W.Radner
Funktioniert alles

25.03.2020 08:55:07

Steve
Geistesblitz

25.03.2020 09:12:21

Steve

AW: Sheetwechsel mit button

24.03.2020 12:32:41

AlterDresdner

Hallo Steve,
mit

Sub gotoAbfragewert()
Dim AW As String
AW = Range("N_Index").Text
Worksheets(AW).Select
End Sub

sollte es gehen.
.text ist notwendig, damit nicht interne Darstellung genommen wird,
AW as string: der Sheetname ist String
Gruß der AlteDresdner

AW: Sheetwechsel mit button

24.03.2020 15:17:39

Steve

Moin AlterDresdener,
danke dir. Darauf wäre ich nie gekommen. .Text war mir total unbekannt.
Deine Lösung funktioniert perfekt.
Eine Frage noch. Ich habe ein ActiceX Dropdown zur Auswahl vorgeschaltet. D.h. erst wählt man aus einer Liste aus, und mit dem Button wechselt man. Aber nach dem Auswählen bleibt die letzte Auswahl in dem Dropdown stehen. Gibt es eine Möglichkeit dieses vor dem Wechsel zu leeren, damit es wieder schön leer ist?
Liebe Grüße
Steve

AW: Sheetwechsel mit button

25.03.2020 09:15:33

Steve

Moin AlterDresdener,
das klappt hervorragend. Ich habe diese Lösung nun übernommen. Hab das schon im unten stehenden Eintrag geschrieben. Vergesse nur immer das die Beiträge nicht linear sondern nach Gespräch sortiert sind.
Deshalb hier noch einml mein Dank.
Herzlichst
Steve

AW: Sheetwechsel mit button

24.03.2020 19:31:07

W.Radner


Sub gotoAbfragewert()
Dim AW As Worksheet
For Each AW In ActiveWorkbook.Sheets
If AW.Name = Range("N_Index") Then
AW.Activate
Exit Sub
End If
Next AW
End Sub

AW: Sheetwechsel mit button

24.03.2020 19:45:52

W.Radner

bzw. so mit führenden NULLEN (und kein Text in N_Index

Sub gotoAbfragewert()
Dim AW As Worksheet
For Each AW In ActiveWorkbook.Sheets
If AW.Name = Right("000" & Range("N_Index"), 3) Then
AW.Activate
Exit Sub
End If
Next AW
End Sub

Funktioniert alles

25.03.2020 08:55:07

Steve

Moin W. Radner,
ich danke dir für deine Hilfe. Sie funktioniert. Leider fehlt mir die Kenntnis die Vor und Nachteile zwischen deiner Lösung und der von alterDresdener zu erkennen.
Was mir allerdings immernoch fehlt, ist dass das Dropdownfeld geleert wird. Ob vor oder nach dem Sprung in das ausgewählte Sheet ist für mich unerheblich.
Kannst du mir dabei wohl helfen?
Liebe Grüße
Steve

Geistesblitz

25.03.2020 09:12:21

Steve

Moin,
mir kam ein Geistesblitz und der scheint auch zu funktionieren.
Das Dropdownfeld ist ja mit einer Zelle verlinkt in dem letztlich der ausgewählte Wert steht.
Löscht man den Inhalt der Zelle, leert sich auch das Dropdownfeld.
Habe das nun so mit der Lösung von AlterDresdener umgesetzt:

Sub gotoAbfragewert()
Dim AW As String
AW = Range("N_Index").Text
Range("N_Auswahl").ClearContents
Worksheets(AW).Select
End Sub

Ich danke allen für die gute Hilfe
Liebe Grüße
Steve

Beliebteste Forumthreads (12 Monate)

Forumthread: Sheetwechsel mit button

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread