Erste Leere Zelle in Spalte finden

Hallo,
Ich habe in VBA zwei Textfelder in der man Werte eintragen kann und diese sollen dann mit einem CommandButton in die Excel- Tabelle übertragen werden.
Der Wert in dem ersten Textfeld soll in die erste freie Zelle der 3 . Spalte und der Wert in dem zweiten Textfeld soll in die erste freie Zelle der 4. Spalte.
Es besteht die Möglichkeit in beide Textfelder was reinzuschreiben, aber man kann auch nur in ein Textfeld was reinschreiben.
Wenn bspw. in Textfeld 1 ein Wert eingegeben wird aber in Textfeld 2 nicht und man mit dem CommandButton den Eintrag in die Excel- Tabelle übertragen will, soll in der ersten freien Zelle der 3. Spalte der eingegebene Wert und in der ersten freien Zelle der 4. Spalte eine 0 eingetragen werden (man hat ja nichts in Textfeld 2 einegeben).
Man muss das sicherlich mit einer Variable machen, leider habe ich keine Ahnung wie das geht. Daher benötige ich deine Hilfe.
Letzte Frage: Wie kann ich sagen, dass die definierte Variable erst bei bspw. Spalte 3 zeile 3 anfängt und bei Spalte 3 zelle 28 aufhört?
Vielen Dank

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Dim lng_letzte_zeile As Long With Worksheets("Tabelle1") lng_letzte_zeile = .Cells(Rows.Count, 4).End(xlUp).Row .Cells(lng_letzte_zeile + 1, 4) = Me.TextBox1 If Me.TextBox2 = "" Then .Cells(lng_letzte_zeile + 1, 5) = 0 Else .Cells(lng_letzte_zeile + 1, 5) = Me.TextBox2 End If End With End Sub

Option Explicit Private Sub CommandButton1_Click() Dim lng_letzte_zeile As Long With Worksheets("Tabelle1") lng_letzte_zeile = .Cells(.Rows.Count, 4).End(xlUp).Row If Cells(lng_letzte_zeile, 4).Row > 15 Then CommandButton1.Enabled = False: Exit Sub End If .Cells(lng_letzte_zeile + 1, 4) = Me.TextBox1 If Me.TextBox2 = "" Then .Cells(lng_letzte_zeile + 1, 5) = 0 Else .Cells(lng_letzte_zeile + 1, 5) = Me.TextBox2 End If End With End Sub

Option Explicit Private Sub CommandButton1_Click() Dim lng_letzte_zeile As Long With Worksheets("Tabelle1") lng_letzte_zeile = .Cells(.Rows.Count, 4).End(xlUp).Row If .Cells(lng_letzte_zeile, 4).Row > 15 Then CommandButton1.Enabled = False: Exit Sub End If .Cells(lng_letzte_zeile + 1, 4) = Me.TextBox1 If Me.TextBox2 = "" Then .Cells(lng_letzte_zeile + 1, 5) = 0 Else .Cells(lng_letzte_zeile + 1, 5) = Me.TextBox2 End If End With End Sub

Hey Matthias
wirklich vielen lieben Dank!
Eine andere Frage noch: Wenn die Excel- Tabelle leer ist außer in einer Zeile steht was (siehe Datei), dann fängt er ja nicht oben in der ersten freie Zeile an sondern, er fängt erst unter der beschriebenen Zeile an. Kann ich irgendwie definieren, dass wenn schon was in der Zeile steht, dass er dann die nächste freie Zelle auswählt und die beschriebene sozusagen überspringt?
Bsp.: die Zellen D4- D9 sind leer, nur in D10 steht was. Bei dem bisherigen Code ist es dann so, dass der dann in D11 anfängt die Tabelle zu befüllen. Geht es vielleicht so, dass er D4-D9 trotzdem befüllt D10 dann überspringt (weil da was drin steht) und dann bei D11 weitermacht?
https://www.herber.de/bbs/user/138013.xlsm
Ich hoffe das ist verständlich

Private Sub CommandButton1_Click() Dim efz As Long With Worksheets("Tabelle1") If IsEmpty(.Cells(4, 4)) Then efz = 4 ElseIf IsEmpty(.Cells(5, 4)) Then efz = 5 Else efz = .Cells(4, 4).End(xlDown) + 1 End If If efz > 16 Then MsgBox "Kein Platz mehr!" Else .Cells(efz, 4) = Me.TextBox1 .Cells(efz, 5) = IIf(Me.TextBox2 = "", 0, CVar(Me.TextBox2)) End If End With

Private Sub CommandButton1_Click() Dim Loletzte As Long, RnG As Range With Worksheets("Tabelle1") For Each RnG In .Range("D4:D16") If RnG = "" Then .Cells(RnG.Row, 4) = Me.TextBox1 If Me.TextBox2 = "" Then .Cells(RnG.Row, 5) = 0 Else .Cells(RnG.Row, 5) = Me.TextBox2 End If Exit For End If Next End With End Sub

Beliebteste Forumthreads (12 Monate)

Erste Leere Zelle in Spalte finden

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Erste Leere Zelle in Spalte finden

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread