Bestimmtes Format wenn

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Makro2() wenn also in spalte B ein "B.. oder Q .. " anfängt das Format: Range("C39").Select Selection.NumberFormat = "### ## ##" wenn also in spalte B ein "A.. oder N .." anfängt das Format: Range("C40").Select Selection.NumberFormat = "000 000 00 00" End Sub

…auf Linux bin, Walli… ;-)
Also zuerst im VBEditor-Baumverzeichnis auf das entsprechende TabBlatt klicken, so dass der VBE quasi seine „Rückseite“ zeigt (nennt man Dokument-Klassenmodul des Tabellenblattes). Oben hast du ja dann die beiden Auswahl-Dropdown-Menüs. Auf dem linken Worksheet einstellen → schwupps wird da auch schon eine EventProc angelegt. ich glaube, das ist auch schon die richtige. Wenn nicht, im rechten Menü die richtige auswählen und die andere wieder entfernen. Um diese Prozz nicht allzusehr zu belasten, treffe ich in diesen stets nur eine Vorauswahl und rufe dann ggf ein normales Makro auf, also ungefähr so…

If Not Intersect(Target, Range("derrelevanteaktionsbereich")) Is Nothing Then _
Call FormatKorrektur(Target)

Das bitte entsprechend präzisiert in die leere PgmZeile einfügen.
Dein Makro änderst du dann wie folgt…

Sub FormatKorrektur(FormatQuellZelle As Range)
If FormatQuellZelle Like "[BQ]*" Then
Rem wenn also in spalte B ein "B.. oder Q .. " anfängt das Format:
Range("C39").NumberFormat = "### ## ##"
ElseIf FormatQuellZelle Like "[AN]*" Then
Rem wenn also in spalte B ein "A.. oder N .." anfängt das Format:
Range("C40").NumberFormat = "000 000 00 00"
End If
End Sub

Das müsste es dann auch schon gewesen sein…
Viel Erfolg! Gruß, Luc :-?

…Walli,
denn FormatQuellZelle Like "[BQ]*" bedeutet, dass der Wert in der an die Subroutine übergebenen Zelle mit B bzw Q (groß geschrieben, sonst musst du in die eckige Klammer noch bq einfügen) anfängt und sich dann beliebig oder auch nicht (*) fortsetzt. Wenn nach B/Q immer und nur Zahlen kommen, kannst du auch "[BQ]#*" schreiben. Die Klammer steht nur für 1 Zeichen, also B oder Q, der * steht für 0 bis beliebig viele beliebige Zeichen, # steht für eine beliebige Ziffer. Kannst du in der VBE-Hilfe unter Operator Like nachlesen.
Aber evtl fkt es ja aus einem anderen Grund nicht. Teste das mal im Debug-Modus schrittweise und teile das Ergebnis mit, falls erforderlich…!
Gruß Luc :-?

Sub FormatKorrektur(FormatQuellZelle As Range) If FormatQuellZelle Like "[BQ]*" Then 'Rem wenn also in spalte B ein "B.. oder Q .. " anfängt das Format: FormatQuellZelle.Offset(0, 1).NumberFormat = "### ## ##" ElseIf FormatQuellZelle Like "[AN]*" Then 'Rem wenn also in spalte B ein "A.. oder N .." anfängt das Format: FormatQuellZelle.Offset(0, 1).NumberFormat = "000 000 00 00" End If End Sub

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread