ich hab da ein kleines Problem und zwar hab ich fünf Listboxen in denen die Namen der Tabellen bzw Worksheets aufgelistet sind. Durch die auswahl einer Tabelle sollte man auch direkt zu der Tabelle gelangen.
So hab ich es versucht:
Sub Verkaeufer()
Dim wks As Worksheet
Dim Ls As String
For Each wks In Worksheets
If Not InStr(UCase(wks.Name), UCase(Ls)) = ("Keine Angabe") Then
wks.Select
Exit Sub
End If
Next wks
End Sub
Und es funktioniert Leider nicht.
kann mir da jemand weiterhelfen?
Gruß Sterni