Clever-Excel-Forum

Hallo Ihr,

ich habe den Bereich A15:A18, in dem Zahlen stehen:
1
8
12
390

In Zelle C15 steht: "OG1"

Kann ich über eine benutzerdefinierte Formatierung folgende Anzeige ohne Einbindung von anderen Zellen erreichen?
OG1-1
OG1-8
OG1-12
OG1-390

Ändere ich C15 in "EG", soll die Anzeige so aussehen:
EG1-1
EG1-8
EG1-12
EG1-390

Würde mir das Leben sehr erleichtern Smile

VG

Peter

Hallo,

ja, es sollte möglich sein, aber nicht so ganz trivial.

Zum setzten der Formatierung:

Code:
Sub iFormat()

Const Pre As String = "OG1-"

Dim NF As String

For i = 15 To 18

    NF = Pre & Cells(i, 1)

    Cells(i, 1).NumberFormat = """" & NF & """"

Next i

End Sub

Änderungen müssten über Events des Sheets (Private Sub Worksheet_SelectionChange(ByVal Target As Range)
programmiert werden.

mfg

pethen

Fennek