Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
940to944
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
940to944
940to944
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Übertrag Textbox an Ende der Liste

Übertrag Textbox an Ende der Liste
18.01.2008 16:44:00
Werner
Hallo allerseits,
habe bisher aus 5 TextBoxen die Daten in Zeile 500 der Tabelle übertragen und anschließend durch Sortierbefehl in eine Liste eingeordnet. Möchte auf die Sortierung verzichten und den Eintrag immer in der ersten freien Zeile der Liste (Ende) haben. Kann mir jemand mein Beispiel ergänzen.

Private Sub CommandButton1_Click()
[A500] = Text1.Value
[B500] = Text2.Value
[E500] = Text5.Value
End
End Sub


9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Übertrag Textbox an Ende der Liste
18.01.2008 16:54:00
Ulf
Hallo du
versuch mal so

Private Sub CommandButton1_Click()
Dim i As Integer
Dim LZ As Long
For i = 1 To 5
LZ = Cells(Rows.Count, i).End(xlUp).Row + 1
Cells(LZ, i) = Controls("Text" & i).Value
Next i
End Sub


mfg Ulf

AW: Übertrag Textbox an Ende der Liste
18.01.2008 17:19:00
Werner
Hallo Ulf, danke für die Antwort
Bekomme Fehlermeldung "Das angegebene Objekt konnte nicht gefunden werden" mit Markierung der Zeile Cells(LZ, .....
werner

AW: Übertrag Textbox an Ende der Liste
18.01.2008 17:41:00
Ulf
Hallo Werner
Ist es denn eine UserForm mit Textboxen die Text1,Text2 usw heißen ?
mfg Ulf

AW: Übertrag Textbox an Ende der Liste
18.01.2008 17:48:21
Werner
Hallo Ulf, genau so ist es. Userform mit 5 Textboxen
werner

Anzeige
AW: Übertrag Textbox an Ende der Liste
18.01.2008 17:55:27
Ulf
Hallo Werner
heißen deine Textboxen Textbox1,Textbox2 usw
oder heißen deine Textboxen Text1,Text2 usw
mfg Ulf

AW: Übertrag Textbox an Ende der Liste
18.01.2008 18:01:44
Werner
Ulf,
wie im Ausgangsbeispiel benannt Text1.. usw.
werner

AW: Übertrag Textbox an Ende der Liste
18.01.2008 18:14:00
Werner
Hallo Ulf,
funktioniert wie gewünscht, danke!
mfg Werner

gern geschehen OT
18.01.2008 18:38:00
Ulf

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige