TextBox Inhalt in Tabellenblatt übernehmen

Moin Moin!!
Ich plane eine Tabelle, in welcher Einträge aus mehreren "TextBox"-en aus einem "UserForm" nach OK-Klick auf einem "CommandButton" in die nächste komplett freie Zeile (nach unten) übernommen werden sollen. Logischerweise sollen die Inhalte der "TextBox"-en der Reihe nach in die Spalten in der Zeile übernommen werden.
Ich brauche also eine Prüfung, welche nächste Zeile nach unten (z.B. A1:G1, A2:G2 usw. usw.) komplett frei ist und dann den Code, der die Inhalte wie oben geschildert überträgt.
Code um CommandButtons habe ich soweit "schon drauf". ...hoffe ich zumindestens, sonst würde ich mich hier noch mal gesondert melden.
--------------------------
Experimentiert habe ich schon mit einem Code von Hajo, den ich hier im Forum-Archiv gefunden habe:
If [a65536] = "" Then
Cells([a65536].End(xlUp).Row + 1, 1) = Textbox1
Else
MsgBox "Es ist keine Zelle mehr frei"
End If
--------------------------
Erbitte Eure Hilfe oder Hinweise auf Vergleichbares hier im Forum. Danke!!
Gruß aus dem hohen Norden
Lenhard

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Lenhard,
1)
findet die komplet frei Zeile (ist in der ersten Version nicht enthalten).
Range("A:IV").Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
2)
sucht die entsprechende fortlaufende Nr. und die Zeile wo sie gefunden wurde.
Set c = .Columns(1).Find(What:=TextBox1.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then .Rows(c.Row).Delete Shift:=xlUp
3)
die fortlaufende Nr. ist vor allem dazu da, dass bei Aenderung, der entsprechnde DS gefunden wird.
lz = .Range("A:IV").Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row + 1
.Cells(lz, 1) = WorksheetFunction.Max(Range(.Cells(5, 1), .Cells(lz, 1))) + 1
Mit doppel Click auf Userform werden die Einträge in der UF gelöscht


Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim Ob As MSForms.Control
For Each Ob In UserForm1.Controls
If TypeOf Ob Is MSForms.TextBox Then Ob.Value = ""
If TypeOf Ob Is MSForms.ComboBox Then Ob.Value = ""
If TypeOf Ob Is MSForms.CheckBox Then Ob.Value = False
Next Ob
cbHinzufügen.Caption = "Hinzufügen"
End Sub

in der jetzigen Version, kann man nur nach Firma suchen, ich werde das noch verbessern, braucht ein bisschen Zeit.
Gruss aus der Schweiz
Beni
https://www.herber.de/bbs/user/42078.xls

Beliebteste Forumthreads (12 Monate)

TextBox Inhalt in Tabellenblatt übernehmen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

TextBox Inhalt in Tabellenblatt übernehmen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread