Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zellen zwischen 2 Werten makieren

Zellen zwischen 2 Werten makieren
18.08.2007 03:21:00
Waven
Hallo Zusammen!
ich habe folgendes problem: ich möchte alle zellen zwischen 2 werten markieren.
nehmen wir als beispiel in A1 steht Anfang und in A15 Ende.
nun soll das makro nach diesen 2 werten suchen und den bereich dazwischen (A2:A14) markieren.
Die Zellen mit Anfang und Ende sind variabel, können also auch z.b. in den zellen A30 und A70 stehen.
Ich danke euch schon mal für allfällige Lösungsvorschläge.
Gruss
Waven

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen zwischen 2 Werten makieren
18.08.2007 07:29:00
fcs
Hallo waven,
hier mein Lösungsvorschlag:

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


Gruß
Franz

Anzeige
AW: Zellen zwischen 2 Werten makieren
18.08.2007 12:01:00
Waven
Hallo Franz
Vielen Dank für die Antwort, funktioniert super!
Gruss
Waven

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige