Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
1668to1672
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
Inhaltsverzeichnis

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

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

315 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige