Office: bei bedingung bestimmtes wort fett markieren

handyaner · 7. Juli 2013

hallo,

ich habe im feld A1 das wort "hotel" stehe
und im Feld A2 das wort restaurant.
in den Feldern A3, B3, C3, etc. steht bspw. "Hotel & Restaurant Fürstenberg"

wenn die wörter aus den Felder A1 und A2 vorkommen, sollen die wörter in den Feldern A3, B3, C3, etc. fett markiert werden. also nur die wörter und nicht die ganze spalte. Siehe Screenshot.

wie mache ich das?

:)

Hajo_Zi · 9. Juli 2013

bei mir gibt es keine Spalte A3;B3.
Falls es Zellen sind ist mir nicht klar was in den Zellen steht?

handyaner · 9. Juli 2013

Hallo Hajo_Zi ich habe den Text überarbeitet und ein Screenshot für ein besseres Verständnis hinzugefügt.

Hajo_Zi · 9. Juli 2013

das geht nur per VBA.
Ich benutze schon Version 2013, aber selbst diese Version kann aus einem Bild keine Tabelle erstellen.

handyaner · 10. Juli 2013

hallo Hajo_Zi kann ich von deinem Beitrag ausgehen, dass du die Excel-Datei benötigst um mir zu helfen?
Leider weiß ich nicht, wie ich hier eine Excel-Datei anhängen kann.

Hajo_Zi · 10. Juli 2013

falls VBA erlaubt, wäre eine Datei nicht schlecht. Ein Nachbau sieht meist anders aus als das Original.
nicht die Schnellantwort benutzen, unter dem Antwortformular.

handyaner · 10. Juli 2013

demo.xlsx
Anbei findest du die Ecxel Datei.
VBA wäre möglich.

Hajo_Zi · 10. Juli 2013

speichere die Datei als XLSM.
Code:

Option Explicit

Sub Fett()
Dim LoLetzte As Long
Dim LoI As Long
LoLetzte = IIf(IsEmpty(Cells(3, Columns.Count)), _
Cells(3, Columns.Count).End(xlToLeft).Column, Columns.Count)
For LoI = 1 To LoLetzte
If InStr(Cells(3, LoI), "Hotel") > 0 Then
Cells(3, LoI).Characters(Start:=InStr(Cells(3, LoI), "Hotel"), _
Length:=5).Font.Bold = True
End If
If InStr(Cells(3, LoI), "Restaurant") > 0 Then
Cells(3, LoI).Characters(Start:=InStr(Cells(3, LoI), "Restaurant"), _
Length:=9).Font.Bold = True
End If
Next LoI
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

handyaner · 12. Juli 2013

Hallo

erstmal danke für den code. es funktioniert.
nun ist es jedoch so, dass die begriffe nach denen gesucht werden soll, sich je fall ändern. deshalb hatte ich die in die felder geschrieben.
im vba script muss statt ein fixer begriff ein feld referenziert werden.

so funktioniert es leider nicht

Code:

Option Explicit

Sub Fett()
Dim LoLetzte As Long
Dim LoI As Long
LoLetzte = IIf(IsEmpty(Cells(3, Columns.Count)), _
Cells(3, Columns.Count).End(xlToLeft).Column, Columns.Count)
For LoI = 1 To LoLetzte
If InStr(Cells(3, LoI), A1 > 0 Then
Cells(3, LoI).Characters(Start:=InStr(Cells(3, LoI), "Hotel"), _
Length:=5).Font.Bold = True
End If
If InStr(Cells(3, LoI), A2 > 0 Then
Cells(3, LoI).Characters(Start:=InStr(Cells(3, LoI), "Restaurant"), _
Length:=9).Font.Bold = True
End If
Next LoI
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mücke · 12. Juli 2013

Moin,
Code:

Option Explicit

Sub Fett_2()
Dim LoLetzte As Long
Dim LoI As Long
LoLetzte = IIf(IsEmpty(Cells(3, Columns.Count)), _
Cells(3, Columns.Count).End(xlToLeft).Column, Columns.Count)
For LoI = 1 To LoLetzte
If InStr(Cells(3, LoI), Range("A1")) > 0 Then
Cells(3, LoI).Characters(Start:=InStr(Cells(3, LoI), Range("A1")), _
Length:=5).Font.Bold = True
End If
If InStr(Cells(3, LoI), Range("A2")) > 0 Then
Cells(3, LoI).Characters(Start:=InStr(Cells(3, LoI), Range("A2")), _
Length:=9).Font.Bold = True
End If
Next LoI
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hajo_Zi · 12. Juli 2013

nicht Length:=5) sondern Length:=len(range("a1")))

Office: bei bedingung bestimmtes wort fett markieren

bei bedingung bestimmtes wort fett markieren

bei bedingung bestimmtes wort fett markieren

bei bedingung bestimmtes wort fett markieren

bei bedingung bestimmtes wort fett markieren

bei bedingung bestimmtes wort fett markieren - Similar Threads - bedingung bestimmtes wort

XVERWEIS, SVERWEIS: Nur unter bestimmter Bedingung ausgeben, sonst weitersuchen

Zeilen aufgrund von bestimmten Informationen in anderes Tabellenblatt kopieren

Berechnung verschiedener Felder unter bestimmten Bedingungen

Excel Zeile kopieren und unterhalb einfügen

Bestimmte Zeilen nach Bedingungen in andere Tabelle Verschieben

VBA - Makro nur unter bestimmten Bedingungen starten

Meldung kreieren wenn bestimmte Bedingung eintritt