ich habe in einer UserForm eine Listbox erstellt, die aus Tabelle1 auf A4 bis A50 die Einträge anzeigt.
Auf jedem Zellen-Eintrag ist ein Link gelegt, der einen Sprung zum entsprechenden Tabellenblatt macht.
Ist es möglich, dass ich den Eintrag in der ListBox anklicke und direkt zum entsprechenden Tabellenblatt springe kann?
Private Sub CommandButton1_Click()
With Range("Tabelle1!A4:A50")
Me.Tag = "1"
.Cells(ListBox1.ListIndex + 4, 1).Value = CDbl(TextBox1.Value)
Me.Tag = ""
End With
End Sub
Private Sub userform_initialize()
With ListBox1
.RowSource = "Tabelle1!A4:A50"
.ColumnHeads = True
End With
End Sub
Das funktioniert ja auch gut.....ich bekomme es nur nicht hin, dass wenn ich einen Eintrag in der ListBox klicke, auch auf das entsprechende Tabellenblatt komme :(