Nächste frei Zeile ausfüllen VB Script

  • VBScript

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von TheFalcon.

    Nächste frei Zeile ausfüllen VB Script

    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

    VB.NET-Quellcode

    1. Sub Auswertung()
    3. Set XL=CreateObject("Excel.Application")
    4. Set wb=XL.Workbooks.Open("C:\Auswertung.xlsm")
    5. wb.Sheets("Montage_1").Range("D2").Formula= comboParts.value 'Ergebnis 1
    6. wb.Sheets("Montage_1").Range("E2").Formula= txtAuswahl 'Ergebnis 2
    7. wb.Sheets("Montage_1").Range("F2").Formula= txtAuswahl1 ''Ergebnis 3
    8. wb.Sheets("Montage_1").Range("C2").Formula= txtbeschreibung ''Ergebnis 4
    9. wb.Save
    10. wb.Close
    11. Set wb = Nothing
    12. End Sub

    Wenn ich dich richtig verstanden habe, so vielleicht?

    Visual Basic-Quellcode

    1. Sub Auswertung()
    2. dim i
    3. Set XL=CreateObject("Excel.Application")
    4. Set wb=XL.Workbooks.Open("C:\Auswertung.xlsm")
    5. for i = 2 to 100 ' Hier max. Zeile eintragen!
    6. wb.Sheets("Montage_1").Range("D" & i).Formula= comboParts.value 'Ergebnis 1
    7. wb.Sheets("Montage_1").Range("E" & i).Formula= txtAuswahl 'Ergebnis 2
    8. wb.Sheets("Montage_1").Range("F" & i).Formula= txtAuswahl1 ''Ergebnis 3
    9. wb.Sheets("Montage_1").Range("C" & i).Formula= txtbeschreibung ''Ergebnis 4
    10. next i
    11. wb.Save
    12. wb.Close
    13. Set wb = Nothing
    14. End Sub
    Besucht auch mein anderes Forum:
    Das Amateurfilm-Forum

    Dann lass die For Schleife weg und mach folgendes:

    Visual Basic-Quellcode

    1. ​
    2. dim i
    3. Const xlup = -4162
    4. i = wb.Worksheets("Montage_1").Cells(wb.Worksheets("Montage_1").Rows.Count, "D").End(xlUp).Row +1
    Das ist meine Signatur und sie wird wunderbar sein!

Facebook
Telefonspende