Dim i As Short
Dim dc as DataColumn
Dim avDt as DataAdapter
 
 For i = 4 To avDt.Columns.Count
 
         If dr.IsNull(dc.ColumnName) = False Then
         'Aktion
         End If
 
Next
'Mit der For-Each-Schleife funktionierts weil der Verweis da ist, wie setze ich 
' den Verweis ohne diese Schleife?
 
 For Each dc In avDt.Columns
 
      If dr.IsNull(dc.ColumnName) = False Then
         'Aktion
       End If
 
Next