Hallo Experten,
ich habe eine Tabelle mit geschützten Bereichen.
In den freien Zellen sollen nun einzelne Strings innerhalb einer Zelle z.B. rot eingefärbt werden.
Die temporäre Aufhebung des Balttschutzes erreiche ich mit untenstehendem Makro.
Die Formatänderung (fett und rot) klappt auch, aber nur für die ganze Zelle.
Frage: Wie muß der Befehl lauten, um nur ein markiertes Wort in der Zelle rot und fett zu bekommen?
Feedback versprochen und schon mal danke!
Ullrich Sander
Private Sub CommandButton1\_Click()
'
' Makro am 16.11.2005 von IV\_Sander erstellt
Sheets("Verlegung").Unprotect ("klaus")
With Selection.Font
.FontStyle = "Fett"
.ColorIndex = 3
End With
Sheets("Verlegung").Protect ("klaus")
End Sub
Hallo Experten,
ich habe eine Tabelle mit geschützten Bereichen.
In den freien Zellen sollen nun einzelne Strings innerhalb
einer Zelle z.B. rot eingefärbt werden.
Die temporäre Aufhebung des Balttschutzes erreiche ich mit
untenstehendem Makro.
Die Formatänderung (fett und rot) klappt auch, aber nur für
die ganze Zelle.
Frage: Wie muß der Befehl lauten, um nur ein markiertes Wort
in der Zelle rot und fett zu bekommen?
Feedback versprochen und schon mal danke!
Ullrich Sander
Hallo Ullrich,
in Excel kann man kein Makro (per Button oder Nenü) starten, wenn man Text innerhalb einer Zelle markiert hat. Was Du vorhast kann so leider nicht funktionieren.
Falls Du einen bestimmten Text in mehreren Zellen einfärben möchtest, dann funktioniert folgendes Makro. Diesen Code könntets Du in Deinen Code einbauen.
Private Sub CommandButton1\_Click()
Dim Zelle As Range, Bereich As Range, Wort As String
Wort = InputBox("Welches Wort rot färben?", "Text färben")
If Wort = "" Then Exit Sub
Set Bereich = Selection
For Each Zelle In Bereich
If InStr(1, Zelle.Value, Wort) \> 0 Then
With Zelle.Characters(Start:=InStr(1, Zelle.Value, Wort), Length:=Len(Wort)).Font
.ColorIndex = 3 ' rot
End With
End If
Next Zelle
End Sub
Gruß
Franz
Hallo Franz,
erstmal danke für Deinen Tip!
Evtl. ist die Menge der einzufärbenden Worte begrenzt, dann kann ich diese ja im Makro in einer Liste abarbeiten.
Es handelt sich um einen Patientenplan wo in den Bemerkungen ein Signal gesetzt werden soll z.B. wenn eine OP ansteht oder eine Verlegung.
Kannst Du mir noch einen Tip geben, wie Dein Makro dann aussehen müsste, wenn ich im markierten Bereich die Wörter Verlegung und OP einfärben möchte?
Nochmals Danke
Ullrich Sander
Hallo Franz,
das mit den verschiedenen Wörten in der Liste hat sich erübrigt.
Wir verwenden jetzt Dein Makro so wie es ist.
Nochmals vielen Dank!
Ullrich Sander