Dropdown Lupe

Forumthread: Dropdown Lupe
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Dropdown Lupe

Dropdown Lupe

10.09.2020 13: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!

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Dropdown Lupe

10.09.2020 13:32:16

Daniel

AW: Dropdown Lupe

10.09.2020 13: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