Laufzeitfehler 13 Typen unverträglich
11.04.2017 13:50:24
Thomas
Der Wert von Textbox eins soll in die erste freie Zeile der Spalte A geschrieben werden. (Funktioniert)
Desweiteren sind noch andere Textboxen auf der UF. Deren Werte sollen in die Zeile in welche der Inhalt von TB1 geschrieben worden ist.... aber in bestimmte Spalten.
Mein Code sieht wie folgt aus:
Private Sub CommandButton1_Click()
Dim letzteSpalte As String
Dim letzte As String
Dim findZeile As String
letzte = Worksheets("Vorgaben").Cells(Rows.Count, 1).End(xlUp).Row + 1
With Worksheets("Vorgaben")
Sheets("Vorgaben").Range("A" & letzte).Value = Me.TextBox1
End With
With Worksheets("Vorgaben")
findZeile = Application.Match((NeuesWerkzeug.TextBox1), .Columns(1))
' letzteSpalte = .Cells(findZeile, Columns.Count).End(xlToLeft).Column
.Cells(findZeile, 2) = TextBox2 ' AB HIER KOMMT IM BETREFF ERWÄHNTE FEHLERMELDUNG
.Cells(findZeile, 3) = TextBox3
.Cells(findZeile, 4) = TextBox4
.Cells(findZeile, 5) = ComboBox1
.Cells(findZeile, 6) = ComboBox2
.Cells(findZeile, 16) = ComboBox3
End With
End Sub
Jemand eine Idee woran es liegen könnte ?