HERBERS Excel-Forum - die Beispiele

Thema: Zahlen-Formatierungs-Dialog aus UserForm aufrufen

Home

Gruppe

Format

Problem

Über eine UserForm-Schaltfläche wird der Zahlenformatierungsdialog aufgerufen und der Bereich C1:D12 gemäß der Formatauswahl formatiert.

Lösung
Geben Sie den nachstehenden Code in das Klassenmodul der UserForm ein.
ClassModule: frmFormat

Dim sFormat As String

Private Sub cmdCancel_Click()
   ActiveCell.NumberFormat = sFormat
   Unload Me
End Sub

Private Sub cmdFormat_Click()
   sFormat = ActiveCell.NumberFormat
   Application.Dialogs(xlDialogFormatNumber).Show
End Sub

Private Sub cmdOK_Click()
   Range("C1:D12").NumberFormat = ActiveCell.NumberFormat
   ActiveCell.NumberFormat = sFormat
   Unload Me
End Sub

Private Sub UserForm_Initialize()
   Range("A1").Select
End Sub

StandardModule: Modul1

Sub DialogAufruf()
   frmFormat.Show
End Sub

Beiträge aus dem Excel-Forum zu den Themen Format und Zahl

eine Zelle, 2 Formeln, Zahlen aber getrennt Counter durch Änderung vom Zelleninhalt hochzählen
VBA - Wochentage, zählenwenn Zufällige Auslosung mit Anzahlabfrage
Anzahl belegter Spalten pro Zeile Bedingte Formatierung vor Copy/Paste schützen
String(Zahlen) in Spalten aufteilen Zahlengruppe Zählen
Datei löschen mit unterschiedlichen Zahlen im Name Bed. Formatierung, wenn alle Beding. erfüllt.
Telefonnummer automatisch per VBA formatieren Komplettes Excel Sheet kopieren mit Formaten
Zahlenwerte zählen ab bestimmter Zahl Bedingte Formatierung per VBA mit Schleife
PQ - Zeichen in Zelle zählen Aus einer Zahlenreihe sollen alle Zahlen innerhalb
Kartendiagramm per VBA erstellen und formatieren bedingte Formatierung
Zählenwenn Zellfarbe per Cond Formatting nach Zellfarbe änder
UserForm im Querformat drucken Summe aus Texten+Zahl mit Bedingung
Bedingte Formatierung Teilstringabfrage bei bedingter Formatierung
Bedingte Formatierung mit UND Verknüpfung SVERWEIS mit Zählenwenn
Größte Zahl finden Textformat (VBA)
Teilzahlen runden / bestimmte Summe Bedingte Formatierung Frage
Array in Tabelle kopieren, Verlust von Format Wert suchen und ab Wert Zahlen addieren
Übernahme in Word Format wird nicht übernommen VBA, 4 Informationen in 4 Zellen schreiben
bedingte Formatierung mit mehreren Bedingungen Datum aus Oracle-Abfrage als Datum formatieren
Bedingte Formattierung Bedingte Formatierung - kleiner als Fehler
Zahlenformat Handynr. Diagramme und ihr Format
bedingte formatierung per VBA Bedingte Formatierung bezogen auf 2. Zelle
Formatgleichheit von Zeichenfolgen für SVERWEIS Zahl von Range herausfinden?
bedingte Formatierung Bedingte Formatierung
dynamische Ausgabe der Spaltenanzahl bei Argumentensuche Tabellen - Zellen - Formatieren -
Spaltenanzahl erweitern