title image


Smiley Das ® in allen Tabellenblättern suchen und "hochsetzen"
Hey Ingo,



hier das Makro, das alle Tabellenblätter der aktueleln Mappe nach dem ® durchsucht und hochformatiert. Du kannst das Makro einfach in Dein Gerüst zum Öffnen aller Mappen einbauen :







Sub RegisterSymbolHochsetzen()

    'Dieses Makro sucht ein bestimmtes Zeichen in allen Tabellenblättern

    'und formatiert es hochgestellt (superscript=TRUE)



    Dim gefunden

    RSymbol = "®" 'Dieses Zeichen wird gesucht



    For Each sh In Sheets

        sh.Activate

        ZelladresseAlt = ""

        Set gefunden = sh.Cells.Find(What:=RSymbol)

        If Not gefunden Is Nothing Then Zelladresse1 = gefunden.Address

        While Not (gefunden Is Nothing)

            If gefunden.Address <> ZelladresseAlt Then

                ZelladresseAlt = gefunden.Address

                'Stelle ermitteln, an der das Â® steht :

                RS = InStr(1, gefunden, RSymbol)

                '1 Zeichen hochstellen :

                gefunden.Characters(Start:=RS, Length:=1).Font.Superscript = True

                'Nächstes suchen

                Set gefunden = sh.Cells.FindNext(after:=gefunden)

                'Prüfen, ob wieder die erste Fundstelle gefunden wurde

                If Not gefunden Is Nothing And gefunden.Address = Zelladresse1 Then

                    Set gefunden = Nothing

                End If

            Else

                Set gefunden = Nothing

            End If

        Wend

    Next

End Sub








Grüße, NoNet

  1,2,3 - kleine Excelei :   Infos + Anmeldung zum Jährlichen Exceltreffen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: