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
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
MsgBox WKFehler
End Select
Worksheets(WKTabelle_new).Range("A" & lngZeile).Value = ComboBox4.Value
End Sub