VBA: nächste Zeile

Marsi · 2004-08-23T10:42:36+00:00

Hallo zusammen! Ich komme nicht weiter.Ih habe folgenden VBA-Befehl: Dim Zeile As Long Zeile = Range("A65536").End(xlUp).Offset(1, 0).Row Mit diesem Befehl springe ich automatisch in die nächste Zeile, wenn in der 1. Zeile schon was steht.... So weit so gut. Ich möchte nun aber, dass erst geprüft wird ob die Zelle in der Tabelle noch leer ist. Wenn sie noch leer ist soll dann dort hinein geschrieben werden. Ein Beispiel: Textbox1 Vorname Spalte A Textbox2 Nachname Spalte B In Zelle A1 steht ein Tim, B1 ist leer. Nun soll Textbox 2 auch das Feld B1 füllen und nicht wie bei meinem Befehl oben B2. Kommt rüber was ich will? Danke schon mal im voraus.... Marsi

Jaja, mein Brett vor dem Kopf war schon ein ganzer Zaun.
Hier der funktionierende Code für Deine UserForm


Private Sub CommandButton1_Click()
Datum = TextBox1.Value
' Suche Spalte A nach erster leerer Zelle
Columns("A:A").Select
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
' Active Zelle Datum eintragen
ActiveCell = Datum
Vorname = TextBox2.Text
' Suche Spalte B nach erster leerer Zelle
Columns("B:B").Select
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
' Active Zelle Vorname eintragen
ActiveCell = Vorname
Nachname = TextBox3.Text
' Suche Spalte C nach erster leerer Zelle
Columns("C:C").Select
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
' Active Zelle Nachname eintragen
ActiveCell = Nachname
Range("a1").Select
End Sub


Private Sub CommandButton2_Click()
Unload UserForm1
End Sub

Gruß
Marcl

Falls sich unten stehenden Frage wegen der Punkte im Datumsformat darauf bezogen, in der Userform nur 6 Zahlen ein zu geben und dann macht Excel daraus Datum mit Punkten, dann nimm diesen Code:


Private Sub CommandButton1_Click()
Datum = TextBox1.Value
Columns("A:A").Select
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell = Datum
ActiveCell.Offset(0, 3).Select
ActiveCell.FormulaR1C1 = "=MID(RC[-3],1,2)"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=MID(RC[-4],3,2)"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=MID(RC[-5],5,2)"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-3],""."",RC[-2],""."",RC[-1])"
Selection.Copy
ActiveCell.Offset(0, -6).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.Offset(0, 3).ClearContents
ActiveCell.Offset(0, 4).ClearContents
ActiveCell.Offset(0, 5).ClearContents
ActiveCell.Offset(0, 6).ClearContents
Vorname = TextBox2.Text
Columns("B:B").Select
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell = Vorname
Nachname = TextBox3.Text
Columns("C:C").Select
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell = Nachname
Range("a1").Select
End Sub


Private Sub CommandButton2_Click()
Unload UserForm1
End Sub

Gruß
Marcl

Forumthread: VBA: nächste Zeile

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Automatisches Schreiben in die nächste Zeile mit VBA

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)