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
|