Office: Werte in nächste leere Zeile schreiben/kopieren/einfügen

Hallo zusammen,

habe wieder mal ein Problem.
Folgende Formel dient dazu, Werte/Angaben aus ComboBox(en) einer UserForm in gewisse Zellen eines Tabellenblatts zu übertragen.
Beim erneuten Aufruf dieser Anweisung soll jedoch die Zeile ( die Zellen ) nicht überschrieben werden, sondern die nächste Zeile ( Zelle )aufgesucht werden, usw.
( untereinander schreiben ).
Als Anhaltspunkt könnte man F2 benutzen. Diese Zelle wird immer gefüllt.
Quasi, wenn beim Übertragen ins Tabellenblatt in F2 bzw. später F3,F4,F5,usw. ) etwas steht, den ganzen Vorgang in die nächste Zeile kopieren.
Ihr seid in dieser Hinsicht fitter als ich, und bekommt diese Anweisung bestimmt in null-komma-nix hin!

Private Sub CommandButton5_Click()
'z ist Wert aus ComboBox1 und zugleich der Tabellenblattname
z = ComboBox1.Value
'wenn z größer null-komma-nix, dann......
If z > "" Then
'Wert aus ComboBox(en) in jeweilige Zelle(n) des Tabellenblatts (z) eintragen!
Worksheets(z).Range("F2").Value = ComboBox13.Value
Worksheets(z).Range("G2").Value = ComboBox14.Value
Worksheets(z).Range("H2").Value = ComboBox15.Value
Worksheets(z).Range("J2").Value = ComboBox17.Value
Worksheets(z).Range("K2").Value = ComboBox18.Value
Worksheets(z).Range("L2").Value = ComboBox19.Value
Worksheets(z).Range("M2").Value = ComboBox20.Value
Worksheets(z).Range("N2").Value = ComboBox21.Value
Worksheets(z).Range("O2").Value = ComboBox22.Value
Worksheets(z).Range("P2").Value = ComboBox23.Value
Worksheets(z).Range("Q2").Value = ComboBox24.Value
Worksheets(z).Range("R2").Value = ComboBox25.Value
Worksheets(z).Range("S2").Value = ComboBox26.Value
Worksheets(z).Range("T2").Value = ComboBox27.Value
Worksheets(z).Range("U2").Value = ComboBox28.Value
Worksheets(z).Range("V2").Value = ComboBox29.Value
'sonst
Else
'UserForm:"HinweisKeineAuswahlVorgenommen2" anzeigen
HinweisKeineAuswahlVorgenommen2.Show
'Hinweis: geöffnete UserForm beendet sich autom. nach 4 Sekunden
End If
End Sub

Gruß Timi

 

Hallo!

Die letzte beschriebene Zeile aus Spalte F findest du z.B. so:

x = Worksheets(z).Range("F65536").End(xlUp).Row

Die Werte werden dann so eingetragen:

Worksheets(z).Cells(x + 1, 6) = ComboBox13.Value
Worksheets(z).Cells(x + 1, 7) = ComboBox14.Value
Worksheets(z).Cells(x + 1, 8) = ComboBox15.Value
usw.

 

Hallo Schatzi

klappt, wie geschmiert!

Vielen Dank!

Gruß Timi