Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Fragenkatalog vom 19.06.2021, 11:22 Options

text suchen und formatieren

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

Antwort schreiben

Antwort 1 von Beverly vom 19.06.2021, 11:54 Options

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

Antwort 2 von nighty vom 19.06.2021, 11:58 Options

hi all :-))

("Deckblatt") !

("Deckbaltt") ?

gruss nighty

Antwort 3 von Fragenkatalog vom 19.06.2021, 13:01 Options

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

danke für den Hinweis mit deckblatt :-)

Antwort 4 von Beverly vom 19.06.2021, 13:13 Options

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

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken