Attribute VB_Name = "Modul1"
Option Explicit
'
' Zeilen markieren z.B. als Lesehilfe
' Tabelle muß so aufgebaut sein, daß eine Spalte
' durchgegend gefüllt ist(wegen Abbruch)
'
Sub LeseLinie()
Dim zeile As Integer
Dim spalte As Integer   'durchgehend gefüllte Spalte
Dim kz As String
'
' Tabellenblatt öffnen
Sheets("Tabelle1").Select
'Parameter füllen
zeile = 1
spalte = 1
kz = ""     'erste Zeile bleibt unverändert
While Trim(Cells(zeile, spalte)) <> ""
    If kz <> "" Then
        Rows(zeile).Select
        With Selection.Interior
            .ColorIndex = 6
            .Pattern = xlSolid
        End With
        kz = ""
    Else
        kz = "x"
    End If
    zeile = zeile + 1
Wend
MsgBox ("Ausfüllen beeendet")
End Sub