Formatierung Zelle

Forumthread: Formatierung Zelle
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Formatierung Zelle

Formatierung Zelle

25.01.2006 14:19:30

Gerhard

Hallo!
Kann mit jemand von Euch sagen wie ich die Zelle formatieren muss dass ich das immer gleich stehen habe. Z. B.
CF 150
Ich habe immer zwei Buchstaben (gross) zusmmenhängend dann ein Leerzeichen und dann eine dreistellige Zahl. Es passiert manchmal dass das Leerzeiche vergessen wird, drum hätte ich gerne in die Zelle das richtige Format eingegeben.
Danke im Voraus
Gerhard

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Formatierung Zelle

25.01.2006 14:36:11

Josef
AW: Formatierung Zelle

25.01.2006 16:12:17

Gerhard

AW: Formatierung Zelle

25.01.2006 14:36:11

Josef

Hallo Gerhard!
Über Format geht das nicht, weil das Format nur bei Zahlen greift!
Du könntest aber z.B. den folgenden Code in die Tabelle kopieren.
(Rechtsklick auf Blattregister &gt Code anzeigen &gt in das rechte Fenster kopieren)

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

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
'Für Spalte "A"! A=1, B=2, C=3, ...
If Target.Column = 1 And Target.Count = 1 Then
  If Not Target Like "[A-Z][A-Z] ###" Then
    Application.EnableEvents = False
    Target = UCase(Left(Target, 2)) & " " & Right(Target, 3)
    Application.EnableEvents = True
  End If
End If
End Sub

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************