Über ListBox Codename suchen und springe
05.04.2021 21:56:46
Patrick
ich sollte mal wieder eure Hilfe haben.
Ich habe eine Tabelle mit ca. 60 Tabellen, 53 davon heißen "Woche1-53" Da die Kalenderwochen nicht jedes Jahr von 1-52 bzw. 53 gehen, habe ich mir über VBA ein Befehl erstellt, damit der Codename geändert wird (z.B. in KW4_2021).
Jetzt habe mir in einer UserForm in einer ListBox alle Wochen mit dem Codename auflisten lassen.
Nun möchte ich eine Auswählen und zur ausgewählten KW über einen Klick auf einen Button (oder auch Doppelklick) springen.
Und genau das bekomme ich nicht hin.
Hier der Code, mit dem ich es versucht habe (in UserForm):
Private Sub Userform_Initialize()
Dim zWoche As Integer
Dim strWoche As String
For zWoche = 1 To 53
strWoche = "Woche" & zWoche
lbWochen.AddItem Worksheets(strWoche).CodeName
Next zWoche
End Sub
Private Sub CommandButton1_Click()
lbWochen.Activate
End Sub
Wenn ich aber beim CommandButton1_Click als Beispiel "Worksheets("Woche30").Activate" eingebe, funktioniert es.
Ich hoffe ihr könnt mir Helfen.
Vielen Dank schonmal und einen Schönen Rest Abend