title image


Smiley vorhandenes Makro modifizieren.
Hi,ich habe ein vorhandenes Makro, welches eine txt-Datei in Excel einliest und ein wenig für die Optik formatiert. Das Makro sucht z.B. nach gewissen Wörten um diese als Überschrift zu formatieren. Nun hat sich die tägliche Textdatei geändert und ein gesuchtes Wort (Mobiles) kommt nicht mehr in jeder Text-Datei vor, weshalb das Makro einen Fehler bei der Ausführung meldet. Einen Teil des Makros habe ich unten dargestellt. Kann man das Problem nicht durch eine kleine Änderung umgehen? (Wenn der Begriff halt nicht gefunden wird, dann soll die nächste Zeile im Makro ausgeführt werden.)...Cells.Select Selection.Find(What:="Mobiles", After:=ActiveCell, LookIn _ :=xlFormulas, LookAt:=xlPart, SearchOrder:= _ xlByRows, SearchDirection:=xlNext, MatchCase:=False). _ Activate ActiveCell.Select Selection.Font.Bold = True Cells.Select Selection.Find(What:="transportables", After:=ActiveCell, _ LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:= _ xlByRows, SearchDirection:=xlNext, MatchCase:=False). _ Activate Selection.FindNext(After:=ActiveCell).Activate ActiveCell.Select Selection.Font.Bold = True Cells.Select Selection.Find(What:="handies", After:=ActiveCell, LookIn _ :=xlFormulas, LookAt:=xlPart, SearchOrder:= _ xlByRows, SearchDirection:=xlNext, MatchCase:=False). _ Activate ActiveCell.Select Selection.Font.Bold = True Cells.Select Selection.Find(What:="e-netz", After:=ActiveCell, LookIn _ :=xlFormulas, LookAt:=xlPart, SearchOrder:= _ xlByRows, SearchDirection:=xlNext, MatchCase:=False). _ Activate ActiveCell.Select Selection.Font.Bold = True Cells.Select Selection.Find(What:="zubehoer", After:=ActiveCell, LookIn _ :=xlFormulas, LookAt:=xlPart, SearchOrder:= _ xlByRows, SearchDirection:=xlNext, MatchCase:=False). _ Activate ActiveCell.Select Selection.Font.Bold = True ActiveCell.Cells.Select...

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: