Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1780to1784
1780to1784
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dropdown Lupe

Forumthread: Dropdown Lupe

Dropdown Lupe
10.09.2020 11:07:22
Max
Hallo,
hat jemand einen Code mit dem ich beim Anklicken einer Dropdownliste (Datenüberprüfung-Liste) heranzoomen kann und beim verlassen der Zelle wieder hinaus zoomen kann?
Danke für Eure Hilfe!
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dropdown Lupe
10.09.2020 11:32:16
Daniel
Hi
für das DropDown direkt gibt es keinen Code.
man könnte höchstens den Zoom anpassen, wenn man eine Zelle mit DropDown anklickt:
im Modul des Tabellenblatts: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Target.CountLarge = 1 Then
If Not Intersect(Target, Cells.SpecialCells(xlCellTypeAllValidation)) Is Nothing Then
If Target.Validation.Type = xlValidateList Then
If ActiveWindow.Zoom  200 Then
ActiveWindow.Zoom = 200
Application.EnableEvents = True
Exit Sub
End If
End If
End If
End If
If ActiveWindow.Zoom  100 Then ActiveWindow.Zoom = 100
Application.EnableEvents = True
End Sub
alternativ kann man die DropDowns auch durch eine ActiveX-Combobox simulieren, welche man die jeweilge Position verschiebt.
da hätte man dann mehr Möglichkeiten oder kann die Größe der Liste auch unabhängig von der Zellreite gestalten.
Gruß Daniel
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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