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

Forumthread: Daten aus Textbox in erste freie Zeile Tabelle2

Daten aus Textbox in erste freie Zeile Tabelle2
21.01.2019 12:57:06
van
Hallo zusammen,
ich bin am verzweifeln. Ich habe eine Arbeitsmappe mit mehreren Arbeitsblättern. Nun möchte ich per Button Inhalte aus Textboxen auf mein Arbeitsblatt namens "B - general machining" in die erste frei Zeile Spalte B übertragen.
Mein Code wie folgt:

Private Sub CB_Create_Click()
Dim loLetzte As Long
Worksheets("B - general machining").Activate
loLetzte = Worksheets("B - general machining").Cells(Rows.Count, 2).End(xlUp).Row + 1
Range("B" & loLetzte).Value = TB_Hauptthema.Value
End Sub

Es passiert jedoch nichts. Kann mir jemand weiterhelfen?
Viele Grüße
Nicole
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Daten aus Textbox in erste freie Zeile Tabelle2
21.01.2019 13:13:20
Rudi
Hallo,
was heißt das?
Besser so:
Private Sub CB_Create_Click()
Worksheets("B - general machining").Cells(Rows.Count, 2).End(xlUp).Offset(1) = TB_Hauptthema
End Sub

Gruß
Rudi
AW: Daten aus Textbox in erste freie Zeile Tabelle2
21.01.2019 13:17:13
UweD
Hallo
du solltest IMMER auf ein bestimmtest Blatt referenzieren, wenn es nicht gerade das aktive ist und sein soll.
also

loLetzte = Worksheets("B - general machining").Cells(Worksheets("B - general machining"). _
Rows.Count, 2).End(xlUp).Row + 1
Worksheets("B - general machining").Range("B" & loLetzte).Value = TB_Hauptthema.Value

oder besser so?
Private Sub CB_Create_Click()
Dim loLetzte As Long
With Worksheets("B - general machining")
loLetzte = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
.Range("B" & loLetzte).Value = TB_Hauptthema.Value
End With
End Sub

ungetestet....
LG UweD
Anzeige
Antworte hier....
21.01.2019 19:08:07
robert
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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