text suchen und formatieren

Question

servus an alle,

ich hab etwas gebastelt, aber bin am verzeifeln.

Sub Map_malanders()

For tb = 6 To 10
Name = Sheets(tb).Name
letzteZeile = Sheets(Name).Cells(65536, 2).End(xlUp).Row
For zeilq = 2 To letzteZeile
If Sheets(Name).Cells(zeilq, 1).Value = Sheets(Name).Cells(1, 1).Value Then
Überschrift = Cells(zeilq, 4).Value
Detail = Cells(zeilq, 5).Value
For sp = 4 To 268 Step 6
bishier = Sheets("Risk Map").Cells(65536, sp).End(xlUp).Row
If Sheets("Deckblatt").Cells(17, sp).Value = Überschrift Then

Sheets("Deckbaltt").Range(Cells(20, sp), Cells(bishier, sp)).Find(what:=Detail)
Selection.Find
Selection.Font.Bold = True


End If
Next

End If
Next zeilq
Next tb
End Sub

Was es machen soll ist eigentlich einfach.
Wenn eine Zelle in der Spalte A in einer von 5 Tabellen der Inhalt der Überschrift entspricht, möchte ich dass im Deckblatt die Zelle gesucht wird die der Variablen Detail entspricht und die soll dann Fett makiert werden.
Da die Details nicht eineindeutig sind, muss auch die Überschrift entsprechen.


Die schleifen funktionieren.. wo das problem ist der Fett makierte Bereich...

Vielen Dank für die schnellen Antworten..
Grüße

Answer 1

Hi,

versuche es mal nach diesem Prinzip:

Dim raZelle As Range
With Worksheets("Deckblatt")
Set raZelle = .Range(.Cells(20, sp), .Cells(bishier, sp)).Find(what:=Detail)
If Not raZelle Is Nothing Then raZelle.Font.Bold = True
End If
Set raZelle = Nothing

Bis später,
Karin

Answer 2

hi all :-))

("Deckblatt") !

("Deckbaltt") ?

gruss nighty

Answer 3

vielen Dank für die Infos..
irgendwie bekomme ich mit der ersten Antwort probleme mit End If.

danke für den Hinweis mit deckblatt :-)

Answer 4

Hi,

vom Prinzip her müsste er so in deinen Code eingebunden werden (deinen Code habe ich nicht getestet):

Sub Map_malanders()
Dim raZelle As Range
For tb = 6 To 10
Name = Sheets(tb).Name
letzteZeile = Sheets(Name).Cells(65536, 2).End(xlUp).Row
For zeilq = 2 To letzteZeile
If Sheets(Name).Cells(zeilq, 1).Value = Sheets(Name).Cells(1, 1).Value Then
Überschrift = Cells(zeilq, 4).Value
Detail = Cells(zeilq, 5).Value
For sp = 4 To 268 Step 6
bishier = Sheets("Risk Map").Cells(65536, sp).End(xlUp).Row
If Sheets("Deckblatt").Cells(17, sp).Value = Überschrift Then
With Worksheets("Deckblatt")
Set raZelle = .Range(.Cells(20, sp), .Cells(bishier, sp)).Find(what:=Detail)
If Not raZelle Is Nothing Then raZelle.Font.Bold = True
End If
Set raZelle = Nothing
End If
Next
End If
Next zeilq
Next tb
End Sub

Bis später,
Karin