Benutzerdefiniertes Format mit Zellbezug

[pethen]

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

VG

Peter

[Fennek]

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