thefalcon
Goto Top

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

Content-ID: 299568

Url: https://administrator.de/forum/neue-zeile-in-excel-per-vb-script-299568.html

Ausgedruckt am: 23.12.2024 um 15:12 Uhr

114757
Lösung 114757 19.03.2016 aktualisiert um 11:33:38 Uhr
Goto Top
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