Erste Leere Zeile wird nicht erkannt
Matthias
ich bin schon wieder überfordert und brauche Rat.
in der ersten Zeile stehen die Spalten-Überschriften (mit oder ohne Autofilter versucht)
Dann soll mir das unten stehen Makro die darunter liegende leere Zeile finden und den Übertrag aus der Userform übertragen.
Und nu:
Er macht den Übertrag " aber er schreibt es immer in Zeile 39 "
Ich vermute
Private Sub Daten_übernehmen_Click()
On Error Resume Next
Dim letzte_Zeile As Long
With Worksheets("Kunden")
letzte_Zeile = Range("A65536").End(xlUp).Offset(1, 0).Row ; DA STIMMT WAS NICHT oder ?
.Cells(letzte_Zeile, 1) = TextBox2
.Cells(letzte_Zeile, 2) = TextBox1
.Cells(letzte_Zeile, 3) = TextBox14
.Cells(letzte_Zeile, 4) = TextBox13
.Cells(letzte_Zeile, 5) = TextBox10
.Cells(letzte_Zeile, 6) = TextBox11
.Cells(letzte_Zeile, 7) = TextBox12
.Cells(letzte_Zeile, 8) = TextBox4
End With
Dim Tb As Integer
On Error Resume Next
For Tb = 1 To 13
Me.Controls("TextBox" & Tb) = ""
Next Tb
End Sub
Anzeige