Mehrere Zellen einer Tabelle markieren

Ich sitze mal wieder vor einem Problem. Ich habe folgendes Makro eingegeben, um (auch wiederholt auftretende) Namen in einer Tabelle einzufärben.


Sub Markieren()
Dim finden As Range
Set finden = Range("B6:L31").Find(what:=Range("P7").Value)
If Not finden Is Nothing Then
finden.Interior.ColorIndex = 6
Else
MsgBox "Der Name ist nicht gefunden"
End If
End Sub

Leider markiert dieses Makro nur einen Wert.
Ich wollte nun ein Makro mit einer For Each-Schleife formulieren, schaffe dieses aber nicht .


Sub Markieren()
Dim Zelle As Range
Dim Name As Range
Set Name =Range("P7")
Range ("B6:L13").Select
For Each Zelle In Selection
If Zelle = Name Then
Zelle.Select
Interior. ColorIndex = 6
Exit Sub
End If
Next Zelle
End Sub

Dieses Makro markiert zwar den gesamten Tabellenbereich, macht aber nicht mehr und endet nicht. Ich denke, ich habe im Bereich If Zelle = Name Then irgendetwas falsch programmiert. Ich würde mich über eine Hilfe sehr freuen.
Wolfgang

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub FindenUndFärben() Dim r As Range If Range("P7") = "" Then Exit Sub With Range("B6:L31") Set r = .Find(Range("P7").Value) Do r.Interior.ColorIndex = 6 Set r = .FindNext (r) Loop While Not r Is Nothing End With End Sub

Sub FindenUndFärben() Dim r As Range Dim i If Range("P7") = "" Then Exit Sub With Range("B6:L31") Set r = .Find(Range("P7").Value) Do i = i + 1 r.Interior.ColorIndex = 6 Set r = .FindNext (r) Loop While Not (r Is Nothing) And i

Sub FindenUndFärben() Dim r As Range Dim a as string If Range("P7") = "" Then Exit Sub With Range("B6:L31") Set r = .Find(Range("P7").Value) if not r is nothing then a = r.address Do r.Interior.ColorIndex = 6 Set r = .FindNext (r) Loop until r.address = a end if End With End Sub

Hi Yal
ja mag sein, aber du hast den entscheidenden Punkt übersehen.
in diesem MS-Beispiel wird der Wert der gefundenen Zelle verändert, beachte das "c.Value = 5"


Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing

Durch diese Veränderung des Zellwertes wird verhindert, dass diese Zelle erneut gefunden werden kann.
Das machst du aber nicht,
Damit kann eine bereits gefundene Zelle wiederholt gefunden werden und somit landest du in der Endlosschleife.
Entweder brauchst du eine andere Abbruchbedingung (z.B. Zelladresse der ersten Fundstelle merken und diese Vergleichen) oder du musst zusätzlich noch das Format der Zelle als Suchkriterum mit verwenden, da du dieses ja veränderst, kann dann die Zelle auch nicht wiederholt gefunden werden.
oder du ermittelst mit Worksheetfunction.CountIF wie oft der gesuchte Wert im Zellbereich vorkommt und verwendest dann eine For-Schleife mit diesem Wert anstelle des Do-Loop.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Mehrere Zellen einer Tabelle markieren

29
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mehrere Zellen einer Tabelle markieren

29 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

29
Beiträge zum Forumthread

Beiträge zu diesem Forumthread