truckerking
Mitglied
Visual Basic:
Private Sub cmbkundendaten_Click()
'Variable deklarieren
Dim erste_freie_Zeile As Integer
'erste freie Zeile in Blatt "Formular" ermitteln
'und in Variable "erste_freie_Zeile" schreiben
erste_freie_Zeile = Sheets("Formular").Range("B31:F43").End(xlUp).Offset(1, 0).Row
'In Blatt "Formular"
'With Sheets("Formular")
'Spalte B, erste freie Zeile die Anrede
Sheets("Formular").Cells(erste_freie_Zeile, 2) = cb5.Text
'Spalte C, erste freie Zeile Vor & Zuname
Sheets("Formular").Cells(erste_freie_Zeile, 3) = txtbox7.Text
'Spalte D, erste freie Zeile Str. Und Hs Nr.
Sheets("Formular").Cells(erste_freie_Zeile, 4) = txtbox8.Text
'Spalte E, erste freie Zeile Plz und Ort
Sheets("Formular").Cells(erste_freie_Zeile, 5) = txtbox9.Text
'Spalte F, erste freie Zeile Kundennummer
Sheets("Formular").Cells(erste_freie_Zeile, 6) = txtbox10.Text
'End With
End Sub
Das ist der Code zu Abfrage der Leerzeilen Bereich (B31 -B43 das gleiche allen bis F31 - F43) leider schreibt er nur 1 x die Daten in Zeile 31 und dann nix anderen mehr.
Warum wer kann da helfen.
Eine universale Abfrage der betroffenen Bereiche wir es wohl nicht geben. da ich noch andere Abfrage aus TextBoxen /Comboboxen habe die auch in die Tabelle kopiert werden sollen.