title image


Smiley Re: Fast....
Hi CPU,

so gehts:



Sub fett()

i = 2

Do Until Cells(i, 1).Value = ""

Cells(i, 3).Value = Cells(i, 1).Value & " " & Cells(i, 2).Value

Cells(i, 3).Characters(Start:=Len(Cells(i, 1).Value) + 2, Length:=Len(Cells(i, 2).Value)).Font.FontStyle = "Bold"

i = i + 1

Loop

End Sub



Macro startet in Zeile 2 (i = 2), in Zeile 1 vermute ich jetzt mal eine Überschrift, und geht dann Zeile für Zeile durch bis in der Zelle in Spalte 1 nix drin ist.

Ansonsten hast Du das Macro ganz richtig interpretiert.



cu

BCM

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: