Office: Werte aus TextBox in die Zelle übertragen

HeAn6768 · 22. August 2014

Hallo liebe Community.
meine VBA Kenntnisse sind sehr mager, und momentan komm ich da nicht weiter.
Ich habe eine Userform mit zwei TextBoxen und einem CommandButton erstellt mit Tipps hier aus dem Forum:
Werte aus TextBox1 sollen in die Zelle A2 geschrieben werden,
Werte aus TextBox2 in die Zelle B2...
und dann in der Zelle C2 soll Aktuelles Datum rein...
Dann soll der Cursor wieder zu TextBox1 springen den leeren und die neue Werte in die nächste leere Zeile (also A3, B3, C3) geschrieben werden, usw...
Solange, bis der CommandButton1 zum Speichern und Beenden gedruckt wird.
es klappt aber nicht so wie ich es möchte...

hier mein Aktuelles Code:

Code:

Private Sub CommandButton1_Click()
ActiveWorkbook.Save
Application.Close
End Sub
Private Sub TextBox1_Change()
Range("A" & Range("A65536").End(xlUp).Row + 1).Value = TextBox1 'Eingabe Auftrag
End Sub

Private Sub TextBox2_Change()
Range("B" & Range("B65536").End(xlUp).Row + 1).Value = TextBox2 'Eingabe Stückzahl
Range("C" & Range("C65536").End(xlUp).Row + 1).Value = Date 'Aktuelles Datum
End Sub
Private Sub UserForm_Click()

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Über eine schnelle Antwort würde ich mich sehr freuen *Smilie

:)

Crazy Tom · 24. August 2014

Hallo

das würde ich eher so machen
Code:

Option Explicit

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Range("A" & Range("A65536").End(xlUp).Row + 1).Value = TextBox1 'Eingabe Auftrag
TextBox1 = ""
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Range("B" & Range("B65536").End(xlUp).Row + 1).Value = TextBox2 'Eingabe Stückzahl
Range("C" & Range("C65536").End(xlUp).Row + 1).Value = Date 'Aktuelles Datum
TextBox2 = ""
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

MfG Tom

HeAn6768 · 24. August 2014

Danke für die schnelle Antwort, es funktioniert auf jeden Fall besser wie mein Code ;-)
Der Cursor nach der eingabe im TextBox2 springt aber nicht automatisch zu TextBox1 sonder auf Schalter CommanButton1.
Und den Schalter brauch ich erst zum Schluss wenn ich mehrere Aufträge eingegeben habe zum speichern und beenden.
Was mir noch aufgefallen ist, nach erneutem Aufruf von dem Makro, Wert aus TextBox1 schreibt er 2 Zellen weiter unten und Wert aus TextBox2 so wie sein soll in die nächste freie Zelle, das heisst die Werte sind nicht in der gleiche Zeile.
Kann man da was machen?
Der Code für CommandButton1 ist aber richtig, oder?
Es sollen die Werte in de Tabelle gespeichert werden und die Applikation geschlossen...
Code:

Private Sub CommandButton1_Click()
ActiveWorkbook.Save
Application.Close
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

danke
gruß
Hean

Crazy Tom · 24. August 2014

Hallo

so sollte es aber passen
lass den Code für Textbox1 dabei aber weg
Code:

Option Explicit

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ersteFreie As Long
ersteFreie = Cells(Rows.Count, "A").End(xlUp).Row + 1
Cells(ersteFreie, "A").Value = TextBox1 'Eingabe Auftrag
Cells(ersteFreie, "B").Value = TextBox2 'Eingabe Stückzahl
Cells(ersteFreie, "C").Value = Date 'Aktuelles Datum
TextBox1.SetFocus
TextBox1 = ""
TextBox2 = ""
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

funktioniert denn dein Code zum speichern?

MfG Tom

HeAn6768 · 25. August 2014

langsam wird's ;-)
aber warum schreibt es den Wert 2 mal? (zwei Zeile nacheinander)
Das mit dem Speichern klappt doch nicht :-/
Muss mir was anderes einfallen lassen *confused.gif*

Crazy Tom · 25. August 2014

Hallo

so geht es bei mir jetzt ohne Probleme
Code:

Option Explicit

Private Sub CommandButton1_Click()
ActiveWorkbook.Save
Application.Quit
End Sub

Private Sub TextBox2_AfterUpdate()
Dim ersteFreie As Long
ersteFreie = Cells(Rows.Count, "A").End(xlUp).Row + 1
Cells(ersteFreie, "A").Value = TextBox1 'Eingabe Auftrag
Cells(ersteFreie, "B").Value = TextBox2 'Eingabe Stückzahl
Cells(ersteFreie, "C").Value = Date 'Aktuelles Datum
TextBox1.SetFocus
TextBox1 = ""
TextBox2 = ""
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

MfG Tom

HeAn6768 · 25. August 2014

Tom,
vielen dank, hast mir sehr viel geholfen!
Funktioniert wie ich es geplant habe.
Jetzt muss ich noch eine Schaltfläche in die Tabelle einbauen, falls ich UserForm schließe zum zb Korrektur, und dann die Eingabe fortsetzen möchte ohne Dokument neu starten zu müssen.
Sollte eigentlich ohne Probleme gehen... Falls doch .... ich meld mich dann nochmal ;-)

mfg
Hean

update:

fertig!
nochmal Dankeschön!!!

Office: Werte aus TextBox in die Zelle übertragen

Werte aus TextBox in die Zelle übertragen

Werte aus TextBox in die Zelle übertragen

Werte aus TextBox in die Zelle übertragen

Werte aus TextBox in die Zelle übertragen - Similar Threads - Werte TextBox Zelle

Wert aus 2 TextBoxen suchen

Wert aus Inputbox in Textbox übernehmen ohne Inhalt zu löschen

Userform Textfeld füllen abhängig von Wert aus Combobox

Wert von Textbox mit Wert von Combofeld multiplizieren

Werte aus TextBox in erster freier Zelle einer andere Tabelle schreiben

automatisches Anpassen der Textbox Datum, wenn sich Werte in Comboboxen ändern

VBA Werte aus Listbox/Textbox in Zelle schreiben