title image


Smiley Fast....
Hi!



Bei einer Zelle klappt das danke.

Kann ich das auch über eine ganze Spalte machen?



Mein Verständnis zum Makro

Cells(1, 3). => ist die Zelle C1 ??

Value = Cells(1, 1) => Zelle A1?

Cells(1, 2) => Zelle B1?



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

=> eigentliche Formatierung: Formatiere den Wert gem. der Anweisung BOLD= fett



Ich habe versucht die Formel auf Spalten anzupassne, funtzt aber nicht:



Sub fett()

Cells(3) => Spalte 3, also Spalte C



Value = Cells(1) => Spalte 1 = A



Cells(2) => Spalte B



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

=> Formatiere das jeweilige Feld in der Spalte C so wie gewünscht?





Ganzes Makro:

Sub fett()

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

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

End Sub



Schön gell, nur funktionieren tut es nicht :o(



Hast du ne Ahnung wieso?

TXH

Thomas





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: