xlAtom Nr. 000003

Alle Zellen zwischen 2 Werten werden markiert. Der Beginn ist mit "Start und das Ende mit "Ende" gekennzeichnet: Der Code:

Sub AnfangEndeMarkieren()
   Dim wks As Worksheet, rngA As Range, rngE As Range, rngBereich As Range
   Set wks = ActiveSheet
   Set rngBereich = wks.UsedRange 'Bereich in dem irgendwo Anfang und Ende stehen können
   Set rngA = rngBereich.Find(what:="Anfang", LookIn:=xlValues, lookat:=xlWhole)
   Set rngE = rngBereich.Find(what:="Ende", LookIn:=xlValues, lookat:=xlWhole)
   If rngA Is Nothing Or rngE Is Nothing Then
     MsgBox "Anfang und/oder Ende sind im Bereich " & rngBereich.Address & " nicht eingetragen"
   Else
     Set rngBereich = wks.Range(rngA, rngE)
     rngBereich.Select
   End If
 End Sub