PDA

Vollständige Version anzeigen : Benutzerdefiniertes Format über Zelleninhalt


User111
29.06.2014, 11:35
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

ransi
29.06.2014, 12:05
HAllo

Teste mal so:

<nobr><span style="font-family:Courier New,Arial; font-size:9pt ;" ><span style="color:#2BA100"; >' **********************************************************************</span><br /><span style="color:#2BA100"; >' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)</span><br /><span style="color:#2BA100"; >' **********************************************************************</span><br /><br /><span style="color:#0000FF"; >Option</span> <span style="color:#0000FF"; >Explicit</span><br /><br /><b><span style="color:#0000FF"; >Sub</span> machs()</b><br />Range(<span style="color:#FF0000"; >"A6:A100"</span>).NumberFormat = """" & Range(<span style="color:#FF0000"; >"N3"</span>).Text & <span style="color:#FF0000"; >"_"</span> & """" & <span style="color:#FF0000"; >"000"</span><br /><span style="color:#2BA100"; >'Debug.Print Range("A6:A100").NumberFormat</span><br /><b><span style="color:#0000FF"; >End</span> <span style="color:#0000FF"; >Sub</span></b><br /><br /></span></nobr>

ransi

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

User111
29.06.2014, 14:10
Besten Dank für eure Hilfe.

Funktioniert einwandfrei.