Hallo zusammen. Wie immer suche ich auch diesmal Unterstützung für eine VBA Code wo mir bei der Datenübergabe in nächste leere Zeile befüllt werden soll.
Ich komme da nicht so recht weiter. Vielleicht kann hier im Forum mir da weiter helfen. Mein Versuch ist in Reihe 10 bis 14. Aber das funktioniert so leider nicht.
Gruß Josef
Ich komme da nicht so recht weiter. Vielleicht kann hier im Forum mir da weiter helfen. Mein Versuch ist in Reihe 10 bis 14. Aber das funktioniert so leider nicht.
Gruß Josef
Visual Basic:
Private Sub cmdNew_Click()
Dim lZeile As Long, I As Long, eintrag As Long, rngRow As Range, Reihe As Long, antwort, indextb, ufelemente
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
ufelemente = Array("txtPosNr", "txtnummer", "txtAnrede", "txtNachname", "txtVorname", "txtStrasse", "txtPlz", "txtWohnort", "txtTelefon", _
indextb = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30)
lZeile = wsat.Cells(Rows.Count, 1).End(xlUp).Row + 1
Do While Not ActiveSheet.Cells(Reihe, 1) = ""
Reihe = Reihe + 1
Exit Do
Loop
eintrag = 0
If seekArb(txtPosNr, rngRow) Then
Else
Exit Sub
End If