Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
Screenshot zu CommandButton	CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema Label
Screenshot zu Label	Label-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema TextBox
Screenshot zu TextBox	TextBox-Seite mit Beispielarbeitsmappe aufrufen

Textbox inhalt in Tabelle | Herbers Excel-Forum

• Textbox inhalt in Tabelle von Helge Kuehn vom 13.01.2010 10:51:55
• AW: Textbox inhalt in Tabelle - von Hajo_Zi am 13.01.2010 11:01:45
  • AW: Textbox inhalt in Tabelle - von Helge Kuehn am 13.01.2010 11:17:23
    • AW: Textbox inhalt in Tabelle - von Hajo_Zi am 13.01.2010 11:21:16
• AW: Textbox inhalt in Tabelle - von hary am 13.01.2010 11:05:03
  • AW: Textbox inhalt in Tabelle - von Helge Kuehn am 13.01.2010 11:30:31
    • AW: Textbox inhalt in Tabelle - von Reinhard am 13.01.2010 11:35:21
      • AW: Textbox inhalt in Tabelle - von Helge Kuehn am 13.01.2010 11:39:29
    • AW: Textbox inhalt in Tabelle - von Hajo_Zi am 13.01.2010 11:43:53
      • AW: Textbox inhalt in Tabelle - von Helge Kuehn am 13.01.2010 12:11:57
        • AW: Textbox inhalt in Tabelle - von Hajo_Zi am 13.01.2010 12:33:40
          • AW: Textbox inhalt in Tabelle - von Helge Kuehn am 13.01.2010 12:42:39

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

  

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

  

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.

  

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

  

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

  

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

 

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