Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Tabelle über Userform mit Daten füllen ?

Forumthread: Tabelle über Userform mit Daten füllen ?

Tabelle über Userform mit Daten füllen ?
05.09.2002 15:22:07
audiator
Hallo....

ich habe eine Userform mit 5 Textfeldern und einer Schaltfläche "Speichern".
Ich möchte nun diese 5 Textfelder (manchmal auch nicht alle !!!)mit Daten füllen, und sobald ich auf die Schaltfläche "Speichern" klicke, sollen die Daten in die erste freie Zeile des AKTIVEN Tabellenblattes eingetragen werden. Und zwar:

Textfeld1 = SpalteA
Textfeld2 = SpalteB
Textfeld3 = SpalteC
... usw.

vilen Dank schonmal im voraus...

Marco

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Tabelle über Userform mit Daten füllen ?
05.09.2002 15:32:48
mathias r.
Füllen:

txtEineTextbox.Text= Cells(1,1)

Schreiben in die Tabelle:

iRow=ActiveSheet.Cells(1,1).End (xlDown).Row+1
ActiveSheet.Cells(iRow,1)=txtEineTextbox.Text

Re: Tabelle über Userform mit Daten füllen ?
05.09.2002 15:42:39
audiator
hallo mathias....

könntest du mir das bitte etwas genauer erklären ???(bin Anfänger !!)
hab das mit dem füllen nicht so ganz kapiert !!! wo muss das eingetragen werden ??

danke

Marco

Anzeige
Re: Tabelle über Userform mit Daten füllen ?
05.09.2002 16:32:36
mathias r.
Die Userform(UF) verfügt über ein Initialize-Ereignis. Dieses bietet sich an um hier alle Felder zu füllen:

Private Sub UserForm_Initialize()
'fülle die Textbox "txtEineTextbox" mit dem Inhalt der Zelle A1
txtEineTextbox.Text= Cells(1,1)
End Sub

Bei einem Klick auf eine Schaltfläche schreibst du dann zurück
Angenommen in Spalte A stehen schon Daten an diese der Eintrag in die nächste Zeile angefügt werden soll:

Private Sub cmdOk_Click()
Dim iRow as Integer
iRow=ActiveSheet.Cells(1,1).End (xlDown).Row+1
ActiveSheet.Cells(iRow,1)=txtEineTextbox.Text
End Sub

Anzeige

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige