Neue Zeile in Excel per VB Script

Hallo zusammen,

ich habe ein Script welches soweit auch funktioniert. Ich möchte jetzt aber gerne, dass die Werte fortlaufend eingetragen werden. Jetzt werden Sie immer in die zweite Zeile geschrieben, soll aber in die 3, 4, 5, usw.

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("Team").Range("A2").Value= comboParts1.value	  
wb.Sheets("Team").Range("B2").Value= comboParts2.value		  
wb.Sheets("Team").Range("C2").Value= comboParts3.value	  
wb.Sheets("Team").Range("D2").Value= comboParts4.value	  
wb.Save
wb.Close
Set wb = Nothing
End Sub

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 299568

Url: https://administrator.de/contentid/299568

Ausgedruckt am: 23.11.2024 um 02:11 Uhr

1 Kommentar

Moin.
Du meinst wie du immer die nächste freie Zeile ermittelst ?

Das geht z.B. für deinen gewünschten Code so

Set XL=CreateObject("Excel.Application")  
Set wb=XL.Workbooks.Open("G:\Auswertung_X30.xlsm")  
XL.Visible = True
With wb.Sheets("Team")  
    .Cells(Rows.Count,"A").End(-4162).Offset(1,0).Resize(1,4).Value = Array(comboParts1.Value,comboParts2.Value,comboParts3.Value,comboParts4.Value)  
End with

Gruß jodel32