Erste Leere Zeile finden
15.03.2013 08:44:16
Breuer
habe folgendes Problem.
Ich möchte Daten aus einer UserForm in eine Tabelle übernehmen.
Die Tabelle besteht aus 3 Spalten (Name,Vorname,Nr.).
Ausserdem hat die Tabelle die o.g. Überschriften.
Ich habe zwar den Code für die Erste Leere Zeile gefunden, jedoch kommen die Überschriften später nochmal. Und da ist mein Problem!
Die Daten werden hinter die 2 Überschriften geschrieben.
Meine Frage daher, kann man den Code so schreiben das geprüft wird ob in der Tabelle weitere Überschriften vorhanden sind und diese ausgelassen werden.
Hier ist der Code den ich benutze.
Dim intErsteLeereZeile As Long
intErsteLeereZeile = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row + 1
Tabelle1.Cells (intErsteLeereZeile, 1).Value = me.txtName
Tabelle1.Cells (intErsteLeereZeile, 2).Value = me.txtVorname
Tabelle1.Cells (intErsteLeereZeile, 1).Value = me.txtNummer
Gruß Thomas