1
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
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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 299568
Url: https://administrator.de/contentid/299568
Printed on: April 19, 2024 at 22:04 o'clock
1 Comment
Moin.
Du meinst wie du immer die nächste freie Zeile ermittelst ?
Das geht z.B. für deinen gewünschten Code so
Gruß jodel32
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
