textbox inhalt in mehreren Tabellenblätter einfüge

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Dim i As Integer Dim lngZiel As Long With Sheets("Tabelle1") lngZiel = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 For i = 1 To 8 .Cells(lngZiel, i).Value = Controls("Textbox" & i).Value Next End With With Sheets("Tabelle2") lngZiel = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 For i = 1 To 2 .Cells(lngZiel, i).Value = Controls("Textbox" & i).Value Next End With End Sub

Private Sub CommandButton1_Click() Dim i As Integer Dim lngZiel As Long With Sheets("Tabelle1") lngZiel = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 For i = 1 To 8 .Cells(lngZiel, i).Value = Controls("Textbox" & i).Value Next End With With Sheets("Tabelle2") lngZiel = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 .Cells(lngZiel, 1).Value = TextBox4.Value .Cells(lngZiel, 2).Value = TextBox7.Value End With End Sub

Hallo Andre,
der Code von Tom ermittelt die erste freie Zeile in beiden Blättern in Spalte A, somit würde das deinen Anforderungen entsptechen.
Damit der Code von Tom läuft, müssen deine Textboxen TextBox1 bis TextBox8 heißen. Wenn du die umbenannt hast, dann läuft das nicht.
Der Code von Tom schreibt den Inhalt von TextBox 1 und 2 ins Tabellenblatt 2. Wenn das der Inhalt von anderen Textboxen sein soll, dann müsstest du die zweite For - Next Schleife anpassen.

For i = 1 To 2

Textbox 1 und 2

For i = 2 To 3

Textbox 2 und 3
Deine Datei kann ich im Moment nicht herunter laden, da ich hier keine .xlsm herunterladen kann. Entweder wartest du, dass Tom sich das nochmals anschaut, oder du lädst die Datei noch mal ohne Makros hoch, als .xls und stellst deinen bisherigen Code separat hier ein.
Gruß Werner

Private Sub CommandButton1_Click() Dim i As Integer Dim lngZiel As Long Application.ScreenUpdating = False With Sheets("Tabelle1") lngZiel = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 For i = 1 To 8 .Cells(lngZiel, i).Value = Controls("Textbox" & i).Value Next End With With Sheets("Tabelle2") lngZiel = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 .Cells(lngZiel, 1).Value = TextBox4.Value .Cells(lngZiel, 2).Value = TextBox7.Value End With Application.ScreenUpdating = True End Sub

Application.ScreenUpdating = False 'Bildschirmaktualisierung ausschalten Application.Calculation = xlCalculationManual 'automat.Berechnung ausschalten '***weiterer Code*** Application.Calculation = xlCalculationAutomatic 'automat.Berechnung einschalten Application.ScreenUpdating = True 'Bildschirmaktualisierung einschalten

Beliebteste Forumthreads (12 Monate)

textbox inhalt in mehreren Tabellenblätter einfüge

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

textbox inhalt in mehreren Tabellenblätter einfüge

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread