Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1744to1748
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1744to1748
1744to1748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dropdownliste - Schriftgröße

Dropdownliste - Schriftgröße
04.03.2020 00:25:18
Kisska
Hallo zusammen,
ich suche nach einem Makro, um die Dropdownlisten leserlicher zu machen.
Wünschenswert wäre, dass die Schriftgröße automatisch so angepasst wird, dass man die einzelnen Elemente lesen kann.
Ich habe folgendes Makro gefunden: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'updateby Extendoffice 20160530
On Error GoTo LZoom
Dim xZoom As Long
xZoom = 100
If Target.Validation.Type = xlValidateList Then xZoom = 130
LZoom:
ActiveWindow.Zoom = xZoom
End Sub

Quelle: https://www.extendoffice.com/fi/documents/excel/3615-excel-increase-drop-down-list-font-size.html
Was mir bei dieser Lösung nicht gefällt:
- Es wird nicht in ein Modul eingefügt, sodass es für alle Tabellenblätter Anwendung findet.
- Der Zoomfaktor ist starr und variabel in Abhängigkeit der Listegröße
Gibt es eine besser Lösung, die meinen Anforderungen entspricht?
Viele Grüße
Kisska

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dropdownliste - Schriftgröße
04.03.2020 05:47:57
Hajo_Zi
schreibe den Code nur unter der Tabelle in der es wirken soll, nicht unter jede.

AW: Dropdownliste - Schriftgröße
04.03.2020 10:31:51
Kisska
Hallo Hajo,
gerade das möchte ich ja nicht haben.
Mein Wunsch ist es, den Code für die gesamte Arbeitsmappe zu nutzen. Am liebsten wäre die Integration in die persönliche Arbeitsmappe, um den Code bei allen Dateien anwenden zu können.
VG, Kisska
AW: Dropdownliste - Schriftgröße
04.03.2020 06:56:00
Luschi
Hallo Kisska,
schreibe den folgenden Ereignis-Code in das Klassenmodul 'DieseArbeitsmappe' bzw. 'Thisworkbook' _ : 

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'updated by Extendoffice 20160530
'upgraded by Lusachi     20200304
If Sh.Type  xlWorksheet Then Exit Sub
On Error GoTo LZoom
Dim xZoom As Long
xZoom = 100
If Target.Validation.Type = xlValidateList Then xZoom = 130
LZoom:
ActiveWindow.Zoom = xZoom
End Sub
Gruß von Luschi
aus klein-Paris
Anzeige
AW: Dropdownliste - Schriftgröße
04.03.2020 10:28:42
Kisska
Hallo Luschi,
danke für die Hilfe! Der Code funktioniert gut.
Kann man den Code um diese 2 Punkte erweitern:
1) Die Tabellenblätter haben nicht immer den Zoomfaktor 100. Manche stehen bei 80%, andere bei 60%.
Kann man den Ausgangszoom automatisch erkennen lassen?
2) Ist es möglich den Code in die persönliche Arbeitsmappe zu integrieren?
Viele Grüße
Kisska
AW: Dropdownliste - Schriftgröße
08.03.2020 08:50:43
Luschi
Hallo Kisska,
dann mach es so - der gesamte Code gehöhrt in das Klassenmodul 'DieseArbeitsmappe': 

Option Explicit
Dim xZoom As Long
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
xZoom = ActiveWindow.Zoom
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'updated by Extendoffice 20160530
'upgraded by Luschi     20200304
If Sh.Type  xlWorksheet Then Exit Sub
On Error GoTo LZoom
If Target.Validation.Type = xlValidateList Then
ActiveWindow.Zoom = 130
Else
ActiveWindow.Zoom = xZoom
End If
'ohne Fehler
Exit Sub
LZoom:
'bei Fehler
ActiveWindow.Zoom = xZoom
End Sub
Gruß von Luschi
aus klein-Paris
Anzeige
AW: Dropdownliste - Schriftgröße
12.03.2020 00:23:38
Kisska
Hallo Luschi,
danke für deine Antwort!
Der Code funktioniert zwar nicht unter der persönlichen Arbeitsmappe (in 'DieseArbeitsmappe'), aber dafür direkt in der jeweiligen Datei (in 'DieseArbeitsmappe').
Komischerweise funktioniert der Code mal gut, mal taucht der Laufzeitfehler 1004 auf: Die Zoom-Eigenschaft des PageSetup-Objektes kann nicht festgelegt werden.
Wenn ich auf Debuggen gehe, dann wird diese Zeile gelb markiert: 

ActiveWindow.Zoom = xZoom

Weißt du vielleicht wieso?
Viele Grüße
Kisska

16 Forumthreads zu ähnlichen Themen

DropDownListen voneinander abhängig machen!? | Herbers Excel-Forum
scav
Hallo,
ich hatte das Problem in ähnlicher Form schonmal geschildet, aber bisher ist noch keine Lösung bei rumgekommen. Von daher nochmal:
Es gibt 2 definierte Bereiche "Bereich A" und "Bereich B".
"Bereich A" enthält folgende Einträge:
01 Eintrag1
02 Eintrag2
03 Eintrag3
...
14.01.2010 15:51:18
Thread-ID: 1129985
4 Beiträge
Anzeige
Inhalt Dropdown-Liste anpassen
Peter

Hallo,
Ich möchte in einer Dropdownliste nur die Einträge sehen, die noch nicht für ein Bauteil vergeben sind.
Mit meiner, etwas aus der Hüfte geschossenen, Lösung bleibt das Problem, dass die Liste im Dropdownfeld auseinandergezogen wird.
Die schon vergebenen Werte werden zwar aus...
08.08.2013 14:30:07
Thread-ID: 1326166
7 Beiträge
Bilder in Dropdownliste anzeigen lassen
Lena

Guten Morgen,
Zurzeit arbeite ich an einem Excel-Sheet, in dem man passend zur jeweiligen Aufgabe einen Abteilungsbereich aus einer Dropdown-Liste auswählen soll. Damit das ganze dann übersichtlich und schön aussieht, möchte ich, je nach ausgewähltem Bereich, ein passendes Bildchen neben de...
11.05.2016 07:26:13
Thread-ID: 1492662
3 Beiträge
Anzeige
Häufigkeit mittels Dropdownliste anzeigen
Marc

Servus alle,
ich habe mal wieder eine Frage. Und zwar habe ich eine Dropdownliste, die beim öffnen der datei automatisch befüllt wird. Wenn ich jetzt ein bundesland in dieser List auswähle, und vorher einen zeitraum in k4 und k5 eingebe, möchte ich alle namen aufgelistet bekommen mit deren...
19.12.2017 04:16:44
Thread-ID: 1597940
2 Beiträge
Dynamische Dropdown Liste Anpassen
Franz

Hallo zusammen,
meine dynamische DropdownListe funktioniert soweit einwandfrei.
Wenn ich bspweise Eis auswähle habe ich im "verwandten" Dropdown (mit Indirekt) die Auswahlmöglichkeiten blau, gelb, grün.
Wenn ich nun jedoch das erste Dropdown ändere in Farbe, dann bleibt das gekoppel...
22.05.2018 09:06:54
Thread-ID: 1625019
7 Beiträge
Dropdown Größe nach Textlänge anpassen
Franz

Hallo zusammen,
ich habe mehrere Dropdownfelder. Nun möchte ich etwas längere Texte auswählbar machen. Ist es möglich, das Dropdownfeld mit Hilfe eines automatischen Textumbruchs an den jeweiligen Text anzupassen?
Bisher hatte ich leider keinen Erfolg bei der Auswahl mit Textumbruch.
22.05.2018 14:12:09
Thread-ID: 1625135
7 Beiträge
Dropdown Größe nach Textlänge anpassen
Franz

Hallo zusammen,
ich habe mehrere Dropdownfelder. Nun möchte ich etwas längere Texte auswählbar machen. Ist es möglich, das Dropdownfeld mit Hilfe eines automatischen Textumbruchs an den jeweiligen Text anzupassen?
Bisher hatte ich leider keinen Erfolg bei der Auswahl mit Textumbruch.
22.05.2018 14:18:40
Thread-ID: 1625138
2 Beiträge
Dropdownliste gefiltert anzeigen wenn Eintrag D
STeve

https://www.herber.de/bbs/user/124328.xlsm
Liebe Helfer.
Hätte wieder mal eine Bitte:
In der Beispielmappe auf Blatt "Auswahl" sind in den Feldern (blau) B2 bis B6 - Dropdownfelder die auf die Liste im Blatt "Liste" A1 bis A6 zugreifen.
Bräuchte aber wenn in der Spalte "D" der...
30.09.2018 18:41:04
Thread-ID: 1648671
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
2
6
2
1
1
6
6
1
2
1
1
5
4
5
8