Hallo zusammen,
hab’ eine Listbox erstellt dich ich mit
Private Sub Workbook_Open()
Worksheets(„Tabelle1“).ListBox1.List = Array(„Tabelle1“, „Tabelle2“, „Tabelle3“)
End Sub
gefüllt habe. Soweit so gut.
In der Listbox habe ich dann folgenden VBA-Code hinterlegt.
Private Sub ListBox1_Click()
Worksheets(Me.ListBox1.SelectedItem).Activate
End Sub
Sobald ich einen Eintrage auswähle erscheint die Fehlermeldung: „Laufzeitfehler ‚438‘: Objekt unterstützt diese Eigenschaft oder Methode nicht“.
Was ist an diesem Quellcode falsch?
THX
Private Sub Workbook_Open()
Worksheets(„Tabelle1“).ListBox1.List =
Array(„Tabelle1“, „Tabelle2“, „Tabelle3“)
End Sub
Private Sub ListBox1_Click()
Worksheets(Me.ListBox1.SelectedItem).Activate
End Sub
Sobald ich einen Eintrage auswähle erscheint die
Fehlermeldung: „Laufzeitfehler ‚438‘: Objekt unterstützt diese
Eigenschaft oder Methode nicht“.
Hi Alex,
hab hier kein Excel, was passiert denn bei:
Private Sub ListBox1_Click()
msgbox Me.ListBox1.SelectedItem
msgbox Me.ListBox1.Value
Worksheets(Me.ListBox1.SelectedItem).Activate
End Sub
und was sagt die Hilfe zu SelectedItem, ist es der ausgewählte Name oder eine Indexnummer?
Vielleicht sind diese Gedankenansätze auch Käse, denn die Fehlermeldung sagt ja daß Activate als Methode nicht unterstützt wird. Gäbe es kein Worksheets(Me.ListBox1.SelectedItem) käme ja eine andere Fehlermeldung *vermut*. Da man ein Worksheet sehr wohl aktivieren kann blick ich grad nix 
Gruß
Reinhard
Hi Alex,
hab hier kein Excel, was passiert denn bei:
Private Sub ListBox1_Click()
msgbox Me.ListBox1.SelectedItem
msgbox Me.ListBox1.Value
Worksheets(Me.ListBox1.SelectedItem).Activate
End Sub
und was sagt die Hilfe zu SelectedItem, ist es der ausgewählte
Name oder eine Indexnummer?
Vielleicht sind diese Gedankenansätze auch Käse, denn die
Fehlermeldung sagt ja daß Activate als Methode nicht
unterstützt wird. Gäbe es kein
Worksheets(Me.ListBox1.SelectedItem) käme ja eine andere
Fehlermeldung *vermut*. Da man ein Worksheet sehr wohl
aktivieren kann blick ich grad nix
Gruß
Reinhard
Danke für die Antwort!
So wie es aussieht wird SelectedItem nicht unterstützt. Schon wieder Laufzeitfehler mit Value ging es aber dann.
Und wenn ich Worksheets(Me.ListBox1.Value).Activate schreibe, klappt auch das Umschalten im Gegensatz zu SelectedItem.
THX