For Each C In Sheets("Basicdata").Range("4:4")
 
        If C.Value <> "" Then
 
 
	debug.print C.Value		'<- um den aktuellen Zelleninhalt auszugeben
	debug.print C.Address	'<- um die aktuelle Spaltenbezeichnung (z. B. A) 
' auszugeben
 
        Else
            Exit For
        End If
 
    Next C

    Public oXL As Excel.Application
    Public oWB As Excel.Workbook                    'Öffnen der Datei
    Public oSheetBasicdata As Excel.Worksheet       'Aufruf der Tabelle 
    ' "Basicdata"
    Public oRng As Excel.Range                      'eine Zelle wird instanziert
    Dim xElement As Object
 
        ' Start Excel and get Application object.
        oXL = CreateObject("Excel.Application")
        oXL.Visible = True
 
        'Aufruf der xls-Datei test.xls
        oWB = oXL.Workbooks.Open("C:\test.xls")
 
        'Aufruf der Tabelle "Basicdata"
        oSheetBasicdata = oWB.Sheets("Basicdata")
 
        'der Zelle oRng wird die Spalte A42 im Basicdata-Sheet zugewiesen
        oRng = oSheetBasicdata.Range("4:4")
 
        'MessageBox.Show(oRng.Row.ToString())
 
        For Each xElement In oRng
            MessageBox.Show(CType(xElement, String))
        Next