Dim oExcel As Object = Nothing
        Dim oBook As Object = Nothing
        Dim oSheet As Object = Nothing
 
        'Arbeitsmappe öffnen:
        oExcel = CreateObject("Excel.Application")
        oBook = oExcel.Workbooks.Open("C:\Temp\Mappe4.xlsx")
        oSheet = oBook.Worksheets(1)
        'Zeilennummer nach der letzten Zeile bestimmen:
        Dim Zeile As Integer = oSheet.UsedRange.Rows.Count + 1
 
        'Daten in neue Zeile einfügen:
        oSheet.Range("A" & Zeile).Value = "Test"
 
        oBook.Save("C:\Temp\Mappe4.xlsx")
        oSheet = Nothing
        oBook = Nothing
        oExcel.Quit()
        oExcel = Nothing
        GC.Collect()

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Imports Microsoft.Office.Interop

        Dim oExcel As Excel.Application = Nothing
        Dim oBook As Excel.Workbook = Nothing
        Dim oSheet As Excel.Worksheet = Nothing

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Dim GefZelle As Object
Dim GefRow As Integer
 
GefZelle=oSheet.Range("A:A").Find("")
 
If Not GefZelle Is Nothing Then
GefRow=GefZelle.Row
End If

EALA FREYA FRESENA

 Zeile = oSheet.UsedRange.Rows.Count + 1

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist