Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

xlDialogs

Forumthread: xlDialogs

xlDialogs
05.10.2006 11:33:11
Alex
hallo zusammen,
kann mir jemand sagen, wie ich die argumente der integrierten excel-dialoge bekomme?
beispiel
ich rufe den format-dialog zum auswählen der schriftart- und grösse mit
Application.Dialogs(xlDialogActiveCellFont).Show
auf. wie kann ich nun die vom user eingestellte schriftgösse und farbe auslesen?
danke
alex
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: xlDialogs
05.10.2006 11:41:28
Rudi
Hallo,
dazu kannst du den Dialog nicht verwenden.
du kannst aber die Eigenschaften des Font-Objekts auslesen.
z.B. Msgbox activecell.Font.Name
Gruß
Rudi
AW: xlDialogs
05.10.2006 12:00:34
Alex
hallo,
danke für die schnellen antworten.
mit der argumentenliste kann ich die parameter in den dialogen vordefinieren.
ich möchte aber, dass der user eine schriftart auswählt ohne eine zelle zu formatieren.
danke
alex
AW: xlDialogs
05.10.2006 12:59:33
EtoPHG
hallo Alex,
Ok, Du möchtest das! Die Schriftart wurde ausgewählt ... und dann ?
Was soll den mit der ausgewählten Schriftart passieren ?
Gruss Hansueli
Anzeige
AW: xlDialogs
05.10.2006 13:03:48
Rudi
Hallo,
das geht nicht. Dazu müsstest du dir einen eigenen Dialog (Userform) basteln.
Du kannst aber die Formatierung wieder rückgängig machen, indem du vorher alle Eigenschaften des Font-Objekts in Variable packst und wieder zurückschreibst.
Unvollständig:

Sub tt()
Dim strFName, strFSize, test
Dim strFNameOld, strFSizeOld
With ActiveCell.Font
strFNameOld = .Name
strFSizeOld = .Size
End With
test = Application.Dialogs(xlDialogActiveCellFont).Show
If test = True Then
With ActiveCell.Font
strFName = .Name
strFSize = .Size
.Name = strFNameOld
.Size = strFSizeOld
End With
MsgBox strFName & " " & strFSize
End If
End Sub
Gruß
Rudi
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige