Private sub setzeAnlArt()
   for Each Zeile as DatagridviewRow in DGV.Rows
       With Zeile.Cells("Anl_Art")
         If .Value<>Nothing Then
             Select Case .Value.ToString.First
                 Case "Wasserversorgungsanlage"
                     ZEIGE zugeordnete Wasserversorgungsanlage an
                 Case "Schwimmbad"
                     ZEIGE zugeordnetes Schwimmbad an
               .......
              End Select
         Endif
      End with
   next
End Class