Dim rg As Excel.Range = ws.Range("C2", "D4")
        Dim this_row As ExcelRows
 
        For row As Integer = 1 To 3
            If rg(row, 1).Text <> "" Then
                this_row.test_1 = rg(row, 1).Text
                this_row.Test_2 = rg(row, 2).Text
                Debug.WriteLine("r1: " & this_row.test_1 & " r2: " & _
                  this_row.Test_2)
            End If
        Next

________
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