Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
896to900
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
896to900
896to900
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige