Office: Wert aus Textbox in leere Zeile schreiben

Hallo zusammen, ich hoffe ihr könnt mir helfen, weil ich bin am verzweifeln...

Möchte einen Wert aus einer Textbox (Userform) in Zelle "B6" übertragen. Wenn die Zelle belegt ist, soll er die nächste Freie (also B7 usw) nehmen. Der sinn des ganzen ist, das er die Eingabe in die Textbox schreiben soll. Die nächste Eingabe in die nächste Zelle usw.

Mein Problem: Entweder, er überschreibt den Wert der Zelle B6 sobald ich eine neue Eingabe mache (obwohl er ja jetzt Zelle B7 nehmen soll), oder Er schreibt anstatt "Michael Müller" M in B6, Mi in B7, Mic in B8, Mich in B9 usw.

Ich hoffe, ich hab mich halbwegs verständlich ausgedrückt und jemand kann mir helfen...
Vielen Dank im Voraus
Steffi

:)

 

Hi Steffi,

und warum zeigst du uns nicht deinen Code?

 

Hi Steffi,

einfach mal ins Blaue geschossen:

Private Sub CommandButton1_Click()
Range("B" & Cells(Rows.Count, "B").End(xlUp).Row + 1) = TextBox1.Text
End Sub

 

Hallo...
Entschuldigung, hab ich nicht dran gedacht -_-, folgt aber so gleich...

Private Sub txb_name_Change()

Name = txb_name.Value
Sheets("Eingang").Range("B6").Value = Name
Cells(Cells(Rows.Count, "B").End(xlUp).Row + 1, "B").Value = Name

End Sub


Das ist die Variante wo er M Mi Mic Mich usw schreibt...
Das gleiche bei der Variante von Blackowe...

 

Moin, Steffi,

das von Dir gewählte Ereignis löst bei jedem Eintrag einen Eintrag in die Zelle aus, besser geeignet wäre das Exit-Ereignis (Verlassen des Textfeldes) oder das Starten über eine Schaltfläche...

 

Danke erstmal für die schnelle Antwort !!!

Bin VBA Anfänger, das ist mein erstes eigenes Formular...
Deswegen versteh ich das mit Exit nicht so richtig, also weiß nicht, an welcher Stelle ich das einbinden muss.

Und über eine Schaltfläche erscheint mir in meinem Fall irgendwie sinnlos,
weil ja ein Name eingegeben werden soll, der dann in einer Zelle erscheint (im Prinzip wie so ne Kunden-Datenbank, die entsteht).

 

Hi,

geht es darum nur um ein einziges Feld?

Dann scheint mir der Umweg über ein UF übertrieben, da kann man ja gleich in die Zelle schreiben.

Wenn es um mehrere Felder geht, die nacheinander in eine Zelle geschrieben werden sollen, dann geht das am sinnvollsten über einen Button.

 

Naja, ist für die Uni...
Und wir sollen halt ne Textbox, de Schaltfläche, nen Optionsfeld, ne Kombibox usw. darauf basteln...
Und das gleiche, was er bei der Textbox machen soll, soll er ja auch bei den anderen machen.

Prinzipiell funktioniert auch alles, nur dass er halt die eingegebenen Wert immer überschreibt, anstatt die nächste Zeile zu nehmen *frown.gif* Und das ist ja dann wirklich schwachsinn... Deshalb muss ich das irgendwie hinkriegen...

Der Code aus der Combobox:


Private Sub ComboBox_arbeitsbereich_Change()

Sheets("eingang").Range("C6").Value = ComboBox_bereich.Value

End Sub

 

Hi,

na eben, ist doch irgendwie logisch, das man zuerst alle Eingaben
in dem Formular tätigt und anschliessend die Daten per Buttonklick in
die Tabelle geschrieben werden.

Ansonsten musst du schon beim Aufruf des UF die erste leere Zeile ermitteln und die Einträge dann in dieser vornehmen.

Wenn du nicht weiterkommst, dann lade doch die Datei mit dem UF hoch.

 

Wenn ich etwas in das Formular eingebe, schreibt er mir das in Zeile 6. Bis dahin gut. Wenn ich das formular erneut aufrufe und was eingebe, überschreibt er den Inhalt aus 6 anstatt in Zeile 7 zu schreiben.

Eigentlich fehlt doch nur so etwas wie "nimm zeile 6, wenn die belegt dann nehme 7, wenn die auch belegt dann nehme 8 usw" !?!

Oder habe ich ein gänzliches Verständnisproblem ???

Danke für eure Hilfe, ich weiß ich bin anstrengend *wink.gif*

 

Moin, Berste,

Code:

schreibt zuerst in eine Zelle (hier B6) und dann erneut in die erste freie der Spalte B.

Code:

spricht zwei unterschiedliche CBs an...

 

hallo
in Anhang was einfach gestricktes. Trage etwas in die textbox ein und klicke den Button.
Fuer Mitleser:
Code:

gruss hary

 

Hary...
Du sollst gesegnet sein vom lieben Gott !!!

Geil, habs eingebaut und angepasst und es funktioniert... Geil... Vielen vielen vielen vielen vielen vielen DANK !!! Echt, super, vielen lieben Dank !!!

Jetzt hab ich auch verstanden, glaube ich, wie ihr des meintet mit dem Buttonklick !!! Danke !!!

Und jinx: das 2 CB angesprochen werden wusst ich, war beim kopieren das ich was weggenommen habe... Aber das erste hat auch nur dazu geführt, dass er

M
Mi
Mic
Mich
Micha
usw. geschrieben hat...

Naja, Problem ist ja gott sei dank gelöst !!! DANKE !!!

 

hallo Berste
Die anderen Codes funkt. auch. Das Gestotter des Wortes kommt durch das Change Ereigniss. Mit dem Textbox Exit-Ereigniss, waere auch das vollstaendige Wort angezeigt.
Zu Deinem Lob: Bin naeher dran als Du Denkst ;-)))
arbeite gerade im 12. Stockwerk.
Gruss hary
Edit: Das Change Ereigniss ist das richtige fuer ComboBoxen.

 

halli hallo,

habe auch gerade deinen code getestet und funktioniert bei mir auch :-)

könnte ich dem denn sagen das er den wert der textbox in eine bestimmte zeile schreibt z.B. D25 und von da an immer in die nächste zeile?