Hallo,
ich beisse mir die Zähne dran aus.
Wenn der Text in einer Zelle Fett + Unterstrichen formatiert ist, möchte ich den zellinhalt auf ein anderes Blatt kopieren (Inhaltsverzeichnis erstellen, geht das ggf. besser?)
Meine Formel dazu sieht so aus:
Do Until ActiveCell.Value = ""
If ActiveCell.Font.Bold = True And ActiveCell.Font.Underline = True Then
Selection.Copy
Sheets("Inhalt").Select
Bottom_Inhalt ----> Sub um die Position im Sheet Inhalt zu finden
ActiveSheet.Paste
Sheets("Tabelle1").Select
ActiveCell.Offset(1, 0).Select
Else: ActiveCell.Offset(1, 0).Select
End If
Loop

Problem: Nicht nur Fett+Underline wird kopiert, auch 'nur fette' Zellinhalte
Gruß,
Bernhard