Neue Zeile in Excel

TheFalcon

Grünschnabel
Hallo zusammen,

ich habe ein Script welches soweit auch funktioniert. Ich möchte jetzt aber gerne, dass die Werte fortlaufend eingetragen werden. D2, E2, F2, C2 ; D3, E3, F3, C3 usw. sprich immer eine neue Zeile

Wie frage ich das ab?

Viele Grüße

Code:
Sub Auswertung()

Set XL=CreateObject("Excel.Application")
Set wb=XL.Workbooks.Open("G:\Auswertung_X30.xlsm")
wb.Sheets("Test_1").Range("D2").Value = comboParts.value    'Ergebnis Gruppe 1
wb.Sheets("Test_1").Range("E2").Value= txtAuswahl        'Ergebnis Gruppe 2
wb.Sheets("Test_1").Range("F2").Value= txtAuswahl1        'Ergebnis Gruppe 3
wb.Sheets("Test_1").Range("C2").Value= txtbeschreibung    'Ergebnis Gruppe 4
wb.Save
wb.Close
Set wb = Nothing
End Sub
 

Yaslaw

alter Rempler
Moderator
Ich versteh die Frage nur halb.
Das fortlaufende kannst du über eine Schleife machen. Aber woher nimmst du die Werte für die weiteren Zeilen?

Hier mal ein Beispiel, bei dem von C2 bis F10 abgefüllt wird. Jedoch jede Zeile mit denselben Werten.
Visual Basic:
Dim i as Long
Dim ws As Worksheet

Set ws = wb.Sheets("Test_1")
'Machen wir mal vin C2 bis C10
for i = 2 to 10
    ws.Range("D" & i).Value = comboParts.value    'Ergebnis Gruppe 1
    ws.Range("E" & i).Value= txtAuswahl        'Ergebnis Gruppe 2
    ws.Range("F" & i).Value= txtAuswahl1        'Ergebnis Gruppe 3
    ws.Range("C" & i).Value= txtbeschreibung    'Ergebnis Gruppe 4
next i
Set ws = nothing