Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.06.2025 22:11:12
24.06.2025 21:29:43
24.06.2025 19:48:50
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Textbox inhalt in Tabelle | Herbers Excel-Forum

Forumthread: Textbox inhalt in Tabelle

Textbox inhalt in Tabelle
13.01.2010 10:51:55
Helge Kuehn

Mahlzeit,
Ich will den Inhalt der Textbox 1-8 ("txt1-8") in eine vorhandene mit daten(!) Tabelle1 kopieren. Die Daten sollen am ende der Tab eingefuegt werden. Irgendwie kann ich nicht in Spalte A starten!
Hier der QT:

  • 
    Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim s As Integer
    s = Worksheets("Product list").Cells(Rows.Count, 1).End(xlUp).Row
    With Worksheets("Product list")
    For i = 1 To 7
    .Cells(s, i + 1) = Me("txt" & i)
    Next i
    End With
    End Sub
    

  • wenn ich aus For i = 0 mache gibt es einen Fehler
    Hat jmd eine loesung?

    Anzeige

    11
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Textbox inhalt in Tabelle
    13.01.2010 11:01:45
    Hajo_Zi
    Hallo Helge,
    ich hätte =Controls("txt"&I) geschrieben

    AW: Textbox inhalt in Tabelle
    13.01.2010 11:17:23
    Helge Kuehn
    Hi Hajo,
    hatte ich auch schon versucht, passiert aber das selbe. Momentan fuegt er die txt1-7 (8 uebernimmt er nicht) in letze zeile spalte B ein. Bsp. 32 ist die letze ausgefuellte zeile, dann ueberschreibt er den inhalt von B32-H32 mit den txt-Inhalt.
    Anzeige
    AW: Textbox inhalt in Tabelle
    13.01.2010 11:21:16
    Hajo_Zi
    Hallo Helge,
    viele sehen DEine Datei nicht. Ich auch nicht.

    AW: Textbox inhalt in Tabelle
    13.01.2010 11:05:03
    hary
    Hallo Helge
    mal ungetestet
    
    Dim i As Integer
    Dim s As Integer
    s = Worksheets("Product list").Cells(Rows.Count, 1).End(xlUp).Row
    With Worksheets("Product list")
    For i = 1 To 8
    s = Worksheets("Product list").Cells(Rows.Count, 1).End(xlUp).Row +1
    .Cells(s, i ) = Me("txt" & i)
    Next i
    End With
    End Sub
    

    gruss hary
    Anzeige
    AW: Textbox inhalt in Tabelle
    13.01.2010 11:30:31
    Helge Kuehn
    Hier ist die Datei: https://www.herber.de/bbs/user/67189.xls
    Das naechste prob werde ich bestimmt bei den Modify item button haben ^^
    Danke fuers drueber schauen
    AW: Textbox inhalt in Tabelle
    13.01.2010 11:35:21
    Reinhard
    Hallo Helge,
    gib beim nächsten mal bitte an wo deine Textbox steht, auf UF oder auf Blatt.
    Gruß
    Reinhard
    Anzeige
    AW: Textbox inhalt in Tabelle
    13.01.2010 11:39:29
    Helge Kuehn
    Private Sub CommandButton1_Click() = ist im UF der Insert new product Button
    sorry
    AW: Textbox inhalt in Tabelle
    13.01.2010 11:43:53
    Hajo_Zi
    Hallo Helge,
    ich habe es so getestet und es geht.
    Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim s As Integer
    s = Worksheets("Product list").Cells(Rows.Count, 1).End(xlUp).Row
    With Worksheets("Product list")
    For i = 1 To 8
    '        s = Worksheets("Product list").Cells(Rows.Count, 1).End(xlUp).Row + 1
    .Cells(s, i) = Controls("txt" & i)
    Next i
    End With
    End Sub
    
    Gruß Hajo
    Anzeige
    AW: Textbox inhalt in Tabelle
    13.01.2010 12:11:57
    Helge Kuehn
    Hmm ich kann machen was ich will. Der ueberschreibt bei mir immer die letzte zelle, wenn ich den button druecke. Sicher das der bei eine neue zeile hin zu fuegt ?
    AW: Textbox inhalt in Tabelle
    13.01.2010 12:33:40
    Hajo_Zi
    Hallo Helge,
    dann s+1
    Gruß Hajo
    AW: Textbox inhalt in Tabelle
    13.01.2010 12:42:39
    Helge Kuehn
    Uhhh, das ist bitter... Klappt Hajo, warum hab ich nicht so ein eagle-eye! Hier nochmal der ganze QT die das selbe prob haben:
    Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim s As Integer
    s = Worksheets("Product list").Cells(Rows.Count, 1).End(xlUp).Row
    With Worksheets("Product list")
    For i = 1 To 8
    '        s = Worksheets("Product list").Cells(Rows.Count, 1).End(xlUp).Row + 1
    .Cells(s + 1, i) = Controls("txt" & i)
    Next i
    End With
    End Sub
    
    Danke an alle Helfer!
    Anzeige

    Forumthreads zu verwandten Themen

    Anzeige
    Anzeige
    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