Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

textboxwerte in unterschiedliche tabellenblätter

textboxwerte in unterschiedliche tabellenblätter
Andreas
hallo zusammen
wie muss der nachstehende code aussehen, damit der wert der textbox1 in die letzte freie zelle der spalte a auf dem tabellenblatt1 und der wert der textbox2 in die letzte freie zelle der spalte a auf dem tabellenblatt2 eingetragen wird ?
in der recherche habe ich nichts leider nichts gefunden.
wäre toll, wenn mir jemand auf die sprünge helfen könnte.
Do Until Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
Loop
ActiveCell.Value = TextBox1.Text
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = TextBox2.Text
ActiveCell.Offset(0, 1).Range("A1").Select
herzlichen dank
andreas

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: textboxwerte in unterschiedliche tabellenblätter
04.09.2009 21:59:22
Josef
Hallo Andreas,
With Sheets("Tabelle1")
  .Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = TextBox1
End With

With Sheets("Tabell21")
  .Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = TextBox2
End With

Gruß Sepp

Anzeige
AW: textboxwerte in unterschiedliche tabellenblätter
04.09.2009 22:00:59
Tino
Hallo,
versuche es mal so
With Sheets("Tabelle1")
.Cells(.Rows.Count, 1).End(xlub).Offset(1, 0) = Textbox1
End With
With Sheets("Tabelle2")
.Cells(.Rows.Count, 1).End(xlub).Offset(1, 0) = Textbox2
End With
Gruß Tino
Tippfehler xlup nicht xlub oT.
04.09.2009 22:03:06
Tino
AW: textboxwerte in unterschiedliche tabellenblätter
04.09.2009 23:10:03
Andreas
hallo zusammen
funktioniert super
herzlichen dank

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige