Office: Benutzerdefiniertes Format über Zelleninhalt

Hallo Zusammen

Habe ein Problem mit der VBA-Programmierung.
Zur Info ich bin noch nicht sehr Sattelfest mit VBA


Ich möchte eine Benutzerdefinierte Formatierung in Zellen A6:A100 Schreiben.
Zelle N3 enthält einen Text der vor der Zahl stehen soll. Ebenfalls soll ein "_" vor der Zahl stehen

Ich bin auf diesen Code gekommen:

Sub Format()
Range("A6:A100").Select
Selection.NumberFormat = Range("N3") & """_""000"
End Sub

Mein Problem ist aber, dass wenn der Text der Zelle z.b. ein d enthält funktioniert es nicht.
Ich nehme an das liegt im Zusammenhang d = Tag.

Wie kann man das Problem umgehen?
Es würde auch gehen auf der ganzen Tabelle/Mappe die Datumsformatireun abzuschalten.

FG User111

Danke schon im voraus für eure Hilfe

:)

 

HAllo

Teste mal so:

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Sub machs()
Range("A6:A100").NumberFormat = """" & Range("N3").Text & "_" & """" & "000"
'Debug.Print Range("A6:A100").NumberFormat
End Sub


ransi

 

Moin
Ein wenig kuerzer ;-)
Range("A6:A100").NumberFormat = """" & Range("N3") & "_""000"
gruss hary

 

Besten Dank für eure Hilfe.

Funktioniert einwandfrei.