Neue Zeile in Excel

[TheFalcon]

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

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]

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.

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