Office: Von Textbox in Tabelle eintragen und neuer eintrag starten.

Digitalartnet · 15. Oktober 2018

Hallo zusammen

Ich habe 9 Textboxen wo ich werte eintrage.
Diese werte werden in einer Tabelle eingetragen z.B Lieferschein.
Code:

Sheets("Lieferschein").Range("B10") = TextBox3
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Von Zeile 10

Aber ich möchte gerne das bei einer neuen Eingabe in die nächste Zeile springt.
Und dort die Eingabe Fortsätzen kann. Das aber ohne Bezug auf die Zellen.

Ich habe 9 Zellen und 9 Textboxen.

Da komme ich nicht weiter.
Hat Jemand eine Idee dazu und kann mir dort weiterhelfen?

Gruß
DAN

:)

Manuel352 · 17. Oktober 2018

Hallo Dan,

die Frage ist schon mal, wo hast du den diese TextBoxen, sind diese auf dem Tabellenblatt oder auf einer Userform?

Am einfachsten stellst du hier die Datei rein, dann kann dir auch gezielt geholfen werden. So ist es nur Rätselraten!!!

Sollten sich die TB auf einer Userform befinden, dann lege in einer Variable die Startzeile fest, in einer anderen Variable ermittelst du die letzte Zeile und dann kannst du das ganze auch sauber übergeben.

So ungefähr:

Code:

Startzeile = 9
Endzeile = Sheets("Lieferschein").Cells(Rows.Count, 2).End(xlUp).Row

nächste_Zeile = Endzeile + 1

With Sheets("Lieferschein")
.Cells(nächste_Zeile, 2) = Textbox3
.Cells(nächste_Zeile, 3) = Textbox4
.Cells(nächste_Zeile, 4) = Textbox5
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Natürlich musst du den Code noch auf deine Bedürfnisse anpassen, oder wie gesagt, du stellst ne Datei rein.
Gruß Manuel

Digitalartnet · 17. Oktober 2018

Hallo Manuel

Erst mal vielen Dank für deine Mühe und es klappt soweit ganz gut.
Aber Wenn ich den Lieferschein soweit fertig habe geht der Zähler immer weiter.
Gibt es da einen Code das ich wieder von ("A10") Starten kann via eines Command Button?

Gruß

DAN

Code:

Private Sub CommandButton1_Click()
Dim c As Range
Dim rngBereich As Range
Dim lngAnzahl As Long
Dim strFirst As String
With Sheets("Lieferschein")
Set rngBereich = .Columns("A:I")
Set c = rngBereich.Find(txtSearch, LookIn:=xlValues, lookat:=xlPart)
If Not c Is Nothing Then
strFirst = c.Address
Do

Startzeile = 9
Endzeile = Sheets("Lieferschein").Cells(Rows.Count, 2).End(xlUp).Row

nächste_Zeile = Endzeile + 1 'Nächste Zeile

With Sheets("Lieferschein")
.Cells(nächste_Zeile, 1) = TextBox10
.Cells(nächste_Zeile, 2) = TextBox3
.Cells(nächste_Zeile, 3) = TextBox5
.Cells(nächste_Zeile, 4) = TextBox6
.Cells(nächste_Zeile, 5) = TextBox7
.Cells(nächste_Zeile, 6) = TextBox8
.Cells(nächste_Zeile, 7) = ComboBox1
.Cells(nächste_Zeile, 8) = TextBox9
End With

'ListBox2.AddItem .Cells(c.Row, 1)
'lngAnzahl = ListBox2.ListCount
'ListBox2.List(lngAnzahl - 1, 1) = .Cells(c.Row, 2)
'ListBox2.List(lngAnzahl - 1, 2) = .Cells(c.Row, 3)
'ListBox2.List(lngAnzahl - 1, 3) = .Cells(c.Row, 4)
'ListBox2.List(lngAnzahl - 1, 4) = .Cells(c.Row, 5)
'ListBox2.List(lngAnzahl - 1, 5) = .Cells(c.Row, 6)
'ListBox2.List(lngAnzahl - 1, 6) = .Cells(c.Row, 7)
'ListBox2.List(lngAnzahl - 1, 7) = .Cells(c.Row, 8)
'ListBox2.List(lngAnzahl - 1, 8) = .Cells(c.Row, 9)
'ListBox2.List(lngAnzahl - 1, 9) = .Cells(c.Row, 10)
'Set c = rngBereich.FindNext(c)

Loop While Not c Is Nothing And c.Address strFirst
End If
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Manuel352 · 18. Oktober 2018

Hallo Dan,

ich dachte eigentlich, dass du das ganze so haben willst, dass immer in die nächste Zeile gehüpft wird.

Ich versuche jetzt mal deine "NEUE" Aufgabenstellung wiederzugeben, du trägst irgendwas in deine TextBoxen ein, klickst auf den Button und dann soll der Inhalt der TextBoxen untereinander in die Zeilen geschrieben werden.
Wenn du jetzt einen neuen Lieferschein anlegst, dann willst du das die zuvor beschriebenen Zeilen gelöscht werden und wieder bei deiner Startzeile angefangen wird. Richtig?

Das ging jedoch aus der ersten Aufgaben- oder Problemstellung nicht hervor!

Wenn ja, dann kannst du deinen Code aber soweit umbauen, dass du die letzte beschriebene Zeile gar nicht ermitteln musst, sondern kannst den Inhalt deiner TextBoxen stur in die dafür vorgesehenen Zellen schreiben.
Wozu dann die Einträge in die nächste freie Zeile schreiben?? *boah

So, wie sollte der Ablauf deines Makros nach der neuen Aufgabenstellung aussehen?

Du trägst die Eingaben in deine TextBoxen ein, klickst auf den Button, dadurch startet dein Makro.

Jetzt löscht du zuerst den Inhalt aus den Zeilen, und trägst danach den neuen Inhalt aus den TextBoxen in die dafür vorgesehene Zelle ein.

Hierfür musst du einfach nur die jeweilige Zelle in deinem Code hinterlegen.

Sollte es Probleme geben, dann melde dich nochmals, oder stell einfach eine Datei hier rein!!

Gruß Manuel

Digitalartnet · 26. Oktober 2018

Hallo Manuel352

Ich bin so weit ganz gut unterwegs nur leider bekomme ich in der Listbox nur B ausgelesen. Und nicht die Zeilen B bis G ("B15:G15")

Ich denke dir mal am Montag die Datei wieder als Zip ok?

Gruß
DAN

Manuel352 · 26. Oktober 2018

Hallo Dan,

je stell die Datei mal rein und beschreib bitte nochmals so genau wie möglich, was das Ergebnis sein soll.

Dann schau ich es mir an und versuche dir zu helfen *wink.gif*

Gruß Manuel

Office: Von Textbox in Tabelle eintragen und neuer eintrag starten.

Von Textbox in Tabelle eintragen und neuer eintrag starten.

Von Textbox in Tabelle eintragen und neuer eintrag starten.

Von Textbox in Tabelle eintragen und neuer eintrag starten.

Von Textbox in Tabelle eintragen und neuer eintrag starten. - Similar Threads - Textbox Tabelle eintragen

Daten aus Textbox geändert, ändert Daten in Tabelle direkt mit

Zahl aus TextBox kommt nicht als Zahl auf Tabelle an

Werte aus TextBox in erster freier Zelle einer andere Tabelle schreiben

Werte in TextBoxen aufgrund von Änderungen in einem UF wieder in Tabelle speichern

Wert in TextBox in einer Tabelle suchen

Inhalt aus mehreren Textboxen in Tabelle suchen und in Listbox ausgeben

Tabelle speichern unter Namen von TextBox1