Microsoft Excel

Herbers Excel/VBA-Archiv

Erste Zahlen eine Tel.-Tabelle in Farbe

Betrifft: Erste Zahlen eine Tel.-Tabelle in Farbe von: Bernie
Geschrieben am: 21.08.2008 12:04:53

Hallo,

in einer Telefontabelle, welche sich ständig ändert, möchte ich die ersten 4 Ziffern der Rufnummer per Makro rot einfärben.
Hat jemand eine gute Idee?

https://www.herber.de/bbs/user/54765.xls

  

Betrifft: AW: Erste Zahlen eine Tel.-Tabelle in Farbe von: ede
Geschrieben am: 21.08.2008 12:14:40

Hallo,

anbei mal ein einfacher Code, den Du bittte in ein Modul einbindest, den Zellbereich Deiner Telefonnummern markierst und das Makro starten.

Sub ersten4rot()
    With Selection.Characters(Start:=1, Length:=4).Font
      .ColorIndex = 3
    End With
End Sub




Gruss


  

Betrifft: AW: Erste Zahlen eine Tel.-Tabelle in Farbe von: mpb
Geschrieben am: 21.08.2008 12:17:46

Hallo Bernie,

so?

Sub Einfaerben()
z = Range("A65536").End(xlUp).Row
For i = 2 To z
    Cells(i, 1).Characters(Start:=1, Length:=4).Font.ColorIndex = 3
Next i
End Sub



Gruß
Martin


  

Betrifft: AW: Erste Zahlen eine Tel.-Tabelle in Farbe von: Bernie
Geschrieben am: 21.08.2008 13:49:51

Hallo Helfer,

vielen Dank für die super Hilfe.

Bernie


 

Beiträge aus den Excel-Beispielen zum Thema "Erste Zahlen eine Tel.-Tabelle in Farbe"