Hi Zusammen, ich habe folgendes Problem,

wenn ich auf meinem Button "CommandButton1" klicke, möchte ich dass in das entsprechnene Arbeitsblatt in die letzte Zeile der Spalte A
der Wert aus dem ComboBox1 eingetragen wird.

Doch ich bekomme ich folgenden Fehlercode: 

Laufzeitfehler '9':
Index außerhalb des gültigen Bereichs


Könnte da jemand helfen??

Private Sub CommandButton1_Click()

Dim lngZeile As Long
Dim WKTabelle
Dim WKFehler As String
Dim WKTabelle_new

WKTabelle = ComboBox1.Value
WKFehler = "Bitte eine Wärmekammer aussuchen!"

Select Case WKTabelle
  Case "WK26"
    WKTabelle_new = "Tabelle3"
  Case "WK27"
    WKTabelle_new = "Tabelle4"
  Case "WK53"
    WKTabelle_new = "Tabelle5"
  Case "WK54"
    WKTabelle_new = "Tabelle6"
  Case Else
    'WKTabelle_new = "Neue Tabelle"
    
    MsgBox WKFehler
    
End Select


'lngZeile = WKTabelle_new.Cells(Rows.Count, 1).End(xlUp).Row


'MsgBox "A" & lngZeile
'MsgBox WKTabelle_new
'MsgBox ComboBox4.Value
Worksheets(WKTabelle_new).Range("A" & lngZeile).Value = ComboBox4.Value


End Sub