Microsoft Excel

Herbers Excel/VBA-Archiv

Abweichende Formatierungen in einer Zelle | Herbers Excel-Forum


Betrifft: Abweichende Formatierungen in einer Zelle von: Pfannen-Meister
Geschrieben am: 01.02.2010 10:19:37

Guten Morgen,

ich bräuchte Rat bei einem Formatierungsproblem in Excel:

Ich habe eine lange Liste an Zellen (A1:A280) , bei denen jeweils der erste Buchstabe der Zelle anders formatiert werden soll als der restliche Zelleninhalt.

Dies kann man zwar manuell machen, ist bei dieser Anzahl Zellen aber ein rechter Aufwand und ich muß zugeben, daß ich das per Excel-Makro nicht gelöst bekomme.

Wer könnte mir helfen ?

Besten Dank schon mal,
Der P(f)annen-Meister

  

Betrifft: beschreibe ANDERS! (owT) von: Renee
Geschrieben am: 01.02.2010 10:25:47




  

Betrifft: AW: beschreibe ANDERS! (owT) von: Pfannen-Meister
Geschrieben am: 01.02.2010 10:30:44

O.k. , kann ich gerne machen, kein Problem:

Zelleninhalt Auto

A = Arial Black, Fett und Schriftgröße 13
uto = Arial, NICHT Fett und Schriftgröße 10

Besten Dank !


  

Betrifft: 1Char FETT und Grösser von: Renee
Geschrieben am: 01.02.2010 10:38:08

Hi Dirk,

Keine Ursache:

Sub FettErste()
    Dim rC As Range
    Dim lRow As Long
    With ActiveSheet.Range("A:A")
        For lRow = 2 To .Cells(.Rows.Count).End(xlUp).Row
            With .Cells(lRow, 1).Characters(1, 1)
                .Font.Bold = True
                .Font.Size = 13
            End With
        Next lRow
    End With
End Sub

GreetZ Renée


  

Betrifft: AW: 1Char FETT und Grösser von: Pfannen-Meister
Geschrieben am: 01.02.2010 10:39:39

Renée, besten Dank für Deine Hilfe, wirklich klasse *Applaus*

Grüße vom
Pfannen-Meister