Supportnet / Forum / Tabellenkalkulation

Hallo zusammen ich habe folgendes Problem: in einer alphabetisch sortierten liste mit namen die als bereich definiert ist (a_nam)soll mit einer bedingten formatierung der jeweils erste name der mit einem neuen anfangsbuchstaben beginnt grau hinterlegt werden. Beispiel : ebert engels fuhrmann (grau hinterlegt) folz . . habe folgende bedingte formatierung eingetragen formel ist =TEIL(a_nam;1;1)>TEIL(BEREICH.VERSCHIEBEN(a_nam;ZEILE()-3;0;1;1);1;1) geht aber nicht wenn ich die formel auf eine leere spalte anwende funktioniert sie. =WENN(TEIL(a_nam;1;1)>TEIL(BEREICH.VERSCHIEBEN(a_nam;ZEILE()-3;0;1;1);1;1);1;0) (zeilen mit Buchstabenwechsel haben eine "1". hat jemand eine Idee ? vielen Dank uli

Hallo Uli,

wenn ichs richtig verstanden habe, dann könntest es mal wie folgt mit der bedingten Formatierung versuchen:

FORMEL IST: =LINKS(A2;1)<>LINKS(A2;1)

Viele Grüße
martl

Hi martl
geht leider auch nich

gruss uli

Hallo,

korrektur:

FORMEL IST: =LINKS(A2;1)<>LINKS(A1;1)

Gruß

hi
hatte ich schon so angepasst dann geht es auch problem dabei ist nur:
1.
ich muss jede der ca. 250 zellen einzeln anfassen (oder existiert eine möglichkeit bedingte formatierungen von zelle zu zelle zu kopieren)
2.
die daten verändern sich monatlich und die formatierung sollte automatisch funktionieren.

zum Hintergrund:
Ich habe eine Tabelle (Telefonliste) mit zwei arbeitsblättern. blatt1 = eingabeseite, blatt2 = Ausgabeseite (speziell zusammengestellt für den Ausdruck der Liste.
Die werte aus blatt1 werden automatisch in blatt1 übernommen und für den druck formatiert.
das funktioniert alles bis auf das grau hinterlegen

gruss

Hallo,

die Bedingte Formatierung in A2 erstellen und mit dem Pinsel soweit wie nötig kopieren.
Dazu A2 anwählen auf den Pinsel in der Standartsymbolleiste klicken und bei gehaltener linker Maustaste die zu formatierenden Zellen anwählen.


Gruß

JöKe

super geht

danke

Hallo
Hier noch eine vba-Lösung:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim zelle As Object
For Each zelle In ActiveWorkbook.Names("a_nam").RefersToRange
If zelle.Cells.Row > 1 Then
If Left(zelle, 1) <> Left(Cells(zelle.Cells.Row - 1, _
zelle.Cells.Column), 1) Then
zelle.Interior.ColorIndex = 27
Else
zelle.Interior.ColorIndex = xlColorIndexAutomatic
End If
End If
Next
End Sub

Gruß

danke
das geht auch

gruss

• Excelproblem!!! einzelne Zelle sperren
• Excelproblem Makros und Laufwerke
• sverweis ziffern auslesen mit mehreren ergebnissen