Laufzeitfehler 9
22.11.2022 12:56:15
Much
Ich habe eine Userform gemacht mit 2 Comboboxen und einem Textfeld.
1.Combobox = Kollektion z.B. ( Brand_01 ), 2. Combobox = Saison, z.B.( FW22_1) = Tabelle ( Brand_01_FW22_1) in Textfeld (txt_Tab)
Aus der Textfeld hole ich mir dynamisch die Werte die bestimmten Lieferantentabellen entsprechen. Damit möchte ich auf die unterschiedlichen Tabellen zugreifen können.
Die Variable "tblVar" soll aus dem Textfeld den aktuellen Tabellenamen auslesen, und die Tabelle aktivieren. Die Variable übernimmt den Tabellennamen, nur die Tabelle wird nicht gefunden.
Anbei mein Code der wie angezeigt Laufzeitfehler 9 produziert.
Hoffe auf Input von Euch, vielen Dank schon im Voraus.
liebe Grüße Much
Public Sub FillArticle()
Dim tblVar As String
'Dim ws As Worksheet
tblVar = UF_Eingabe.txt_Tab.Value
'Set ws = Worksheets(tblVar)
Worksheets(tblVar).Activate *****Laufzeitfehler 9 Indexaußerhalb gültigen Bereichs********
On Error Resume Next
If Err.Number 0 Then
MsgBox "Tabelle " & tblVar & " existiert nicht!", vbCritical + vbOKOnly, "ERROR!"
Exit Sub
Else
With Worksheets(tblVar)
.ListObjects.Item(1).DataBodyRange.Select
UF_Eingabe.cmb_Artikel.RowSource = Selection.Address
End With
End If
On Error GoTo -1
End Sub