Supportnet / Forum / Tabellenkalkulation
welchen befeahl?
Frage
Hallo zusammen,
trage mit dem Code Werte aus den Textfeldern in eine
Tabelle ein. Welchen befehl muss ich noch einfuegen,
damit wenn die Textfelder in Tabelle1 sind ich aber die Tabelle in Tabelle2 schreiben will?
Private Sub CommandButton1_Click()
z = Range("A1").End(xlDown).Row + 1
If z > 65000 Then z = 2
Cells(z, 1) = TextBox1
Cells(z, 2) = TextBox2
Cells(z, 3) = TextBox3
Cells(z, 4) = TextBox4
Cells(z, 5) = Cells(8, 8)
End Sub
dank euch!
Antwort 1 von coros
Hi Joker55,
der VBA COde würde dann folgendermaßen aussehen:
Ich hoffe, Dir hilfts.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
der VBA COde würde dann folgendermaßen aussehen:
Private Sub CommandButton1_Click()
z = Range("A1").End(xlDown).Row + 1
If z > 65000 Then z = 2
Sheets("Tabelle2").Cells(z, 1) = TextBox1
Sheets("Tabelle2").Cells(z, 2) = TextBox2
Sheets("Tabelle2").Cells(z, 3) = TextBox3
Sheets("Tabelle2").Cells(z, 4) = TextBox4
Sheets("Tabelle2").Cells(z, 5) = Cells(8, 8)
End Sub
Ich hoffe, Dir hilfts.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.