Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Textbox inhalt in Tabelle | Herbers Excel-Forum


Betrifft: Textbox inhalt in Tabelle von: Helge Kuehn
Geschrieben am: 13.01.2010 10:51:55

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?

      

    Betrifft: AW: Textbox inhalt in Tabelle von: Hajo_Zi
    Geschrieben am: 13.01.2010 11:01:45

    Hallo Helge,

    ich hätte =Controls("txt"&I) geschrieben

    GrußformelHomepage


      

    Betrifft: AW: Textbox inhalt in Tabelle von: Helge Kuehn
    Geschrieben am: 13.01.2010 11:17:23

    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.


      

    Betrifft: AW: Textbox inhalt in Tabelle von: Hajo_Zi
    Geschrieben am: 13.01.2010 11:21:16

    Hallo Helge,

    viele sehen DEine Datei nicht. Ich auch nicht.

    GrußformelHomepage


      

    Betrifft: AW: Textbox inhalt in Tabelle von: hary
    Geschrieben am: 13.01.2010 11:05:03

    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


      

    Betrifft: AW: Textbox inhalt in Tabelle von: Helge Kuehn
    Geschrieben am: 13.01.2010 11:30:31

    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


      

    Betrifft: AW: Textbox inhalt in Tabelle von: Reinhard
    Geschrieben am: 13.01.2010 11:35:21

    Hallo Helge,

    gib beim nächsten mal bitte an wo deine Textbox steht, auf UF oder auf Blatt.

    Gruß
    Reinhard


      

    Betrifft: AW: Textbox inhalt in Tabelle von: Helge Kuehn
    Geschrieben am: 13.01.2010 11:39:29

    Private Sub CommandButton1_Click() = ist im UF der Insert new product Button

    sorry


      

    Betrifft: AW: Textbox inhalt in Tabelle von: Hajo_Zi
    Geschrieben am: 13.01.2010 11:43:53

    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


      

    Betrifft: AW: Textbox inhalt in Tabelle von: Helge Kuehn
    Geschrieben am: 13.01.2010 12:11:57

    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 ?


      

    Betrifft: AW: Textbox inhalt in Tabelle von: Hajo_Zi
    Geschrieben am: 13.01.2010 12:33:40

    Hallo Helge,

    dann s+1

    Gruß Hajo


      

    Betrifft: AW: Textbox inhalt in Tabelle von: Helge Kuehn
    Geschrieben am: 13.01.2010 12:42:39

    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!


    Beiträge aus den Excel-Beispielen zum Thema "Textbox inhalt in Tabelle"