Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1916to1920
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
1916to1920
1916to1920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel - VBA - Zoomen bei Dropdown-Liste

Excel - VBA - Zoomen bei Dropdown-Liste
20.01.2023 11:47:01
Pascal
Hallo liebes Forum,
gibt es die Möglichkeit per VBA-Code eine Funktion zu schaffen,
die ranzoomt sobald ich in ein Feld mit Dropdown-Liste klicke und wieder rauszoomt wenn ich eine Zelle ohne Dropdown-Liste anklicke?
Zoom 100% bei Zelle mit Dropdown
Zoom 60% bei Zelle ohne Dropdown
mfg
Pascal

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel - VBA - Zoomen bei Dropdown-Liste
20.01.2023 12:10:28
Rudi
hallo,
nicht schön, tut es aber
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim x
  On Error Resume Next
  x = Target.Validation.AlertStyle
  If Err.Number Then
    ActiveWindow.Zoom = 60
  Else
    ActiveWindow.Zoom = 100
  End If
  On Error GoTo 0
End Sub
Gruß
Rudi
AW: Excel - VBA - Zoomen bei Dropdown-Liste
20.01.2023 12:32:30
Pascal
Hi Rudi,
funktioniert!
Allerdings nur für alle Dropdownliste bis zur Spalte BU, alles danach funktioniert nicht mehr...
Hast du eine Erklärung dafür?
mfg
Pascal
keine Erklärung. owT
20.01.2023 12:43:05
Rudi
AW: keine Erklärung. owT
20.01.2023 12:53:44
Pascal
War ein Problem aufgrund von verbundenen Zellen.
Passt super! Danke dir!
mfg
Pascal
Anzeige
AW: Excel - VBA - Zoomen bei Dropdown-Liste
20.01.2023 12:14:22
UweD
Hallo
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- Diesen Code rechts reinkopieren
Hier mal begrenzt auf die Spalte "C"
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim x
    If Not Intersect(Target, Columns("C")) Is Nothing Then
        On Error Resume Next
        x = Target.Validation.Type
        On Error GoTo 0
        If Not IsEmpty(x) Then
            ActiveWindow.Zoom = 200
            
        Else
            ActiveWindow.Zoom = 100
        End If
    End If
End Sub
LG UweD
AW: Excel - VBA - Zoomen bei Dropdown-Liste
20.01.2023 12:30:46
Pascal
Hi Uwe,
danke dafür!
Wie kann ich das ganze für das gesamte Blatt aktivieren?
mfg
Pascal
Anzeige
AW: Excel - VBA - Zoomen bei Dropdown-Liste
20.01.2023 12:44:48
UweD
Hallo nochmal
theoretisch könnte die Bergrenzungsabfrage komplett raus.
aber so wird auf den "Benutzen Bereich" begrenzt
    If Not Intersect(Target, UsedRange) Is Nothing Then

LG UweD
AW: Excel - VBA - Zoomen bei Dropdown-Liste
20.01.2023 12:53:00
Pascal
Hat super geklappt danke!!
mfg
Pascal
AW: Excel - VBA - Zoomen bei Dropdown-Liste
20.01.2023 12:55:57
UweD
Besser so, 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim x
    On Error Resume Next
    x = Target.Validation.Type
    On Error GoTo 0
    If Not IsEmpty(x) Then
        ActiveWindow.Zoom = 200
        
    Else
        ActiveWindow.Zoom = 100
    End If
End Sub
sonst wird nach dem Großzoomen ggf nicht zurückgesetzt, wenn du außerhalb des benutzten Bereiches klickst
Anzeige
AW: Excel - VBA - Zoomen bei Dropdown-Liste
20.01.2023 16:27:39
snb 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  activewindow.zoom=100+40*(intersect(target,cells.specialcells(-4174)) is nothing)
End Sub

307 Forumthreads zu ähnlichen Themen

ComboBox1.AddItem automatisch
Vera

Hallo liebe Excelfreunde
ich möchte die ComboBox einer Userform mit den letzten 20 unterschiedlichen Bemerkungen füllen.
Vieleicht hat jemand ein Beispiel rumliegen welches:
- die Bemerkungsspalte von unten nach oben durchgeht
- 20 unterschiedlich!! Bemerkungen findet
- die...
12.09.2008 09:28:00
Thread-ID: 1009278
3 Beiträge
Anzeige
UserForm ComboBox füllen
chrissey

Hallo Excel-Volk,
hab mal wieder ein Problemchen:
Ich habe ein UserForm mit einer ComboBox1 jetz möchte ich diese mit einem Datensatz füllen.
Den Namen des Datenbreichs habe ich bereits als DD1 definiert. Normalerweise müsste ich dies
doch unter Eigenschaften ListFillRange eintr...
18.08.2009 11:43:39
Thread-ID: 1096692
5 Beiträge
Combobox aus immer größer werdende Tabelle füllen
Ralf

Hallo!
Ich habe eine 6 Spaltige Tabelle.
Die Spalten B D und F füllen die Comboboxen 1-3 und die Spalten C E und G füllen die Bezeichnungsfelder.
Die Datenfelder sind über Listindex verbunden, so dass immer alles aus derselben Zeile gezogen wird.
Nur habe ich aber das Problem da...
03.10.2009 14:52:21
Thread-ID: 1106973
4 Beiträge
Anzeige
ComboBox3.AddItem
Heinz

Hallo Leute
Ich habe 18 Comboboxen 3-20
Üverall sollte der selbe Wert wie unten erscheinen. Gibt es eine Möglichkeit diese ComboBoxen vereinfacht zu füllen?
Gruß
Heinz
ComboBox3.AddItem "311" ComboBox3.AddItem "312" ComboBox3.AddItem "321" ComboBox3.AddItem "321" Combo...
16.10.2010 16:11:46
Thread-ID: 1182753
5 Beiträge
Combobox füllen bei Auswahl des Tabellenblatts
Frank

Hallo Zusammen,
erst mal möchte mich nochmals bedanken.
Dieses Forum ist einfach klasse.
Nun zu meinem Problem.
Ich habe eine Arbeitsmappe mit zwei Tabellen.
Soll immer mit Tabelle1 geöffnet werden.
Die Combobox die gefüllt wird liegt auf einer Userform die beim öffnen d...
25.02.2011 10:28:20
Thread-ID: 1202874
3 Beiträge
ComboBox befüllen aus mehreren Tabellen
Mister

Guten Morgen,
wer kann mir auf der Sprunge helfen? Ich habe 5 Tabellen (Gruppe1 bis 5) mit Namen jeweils in den Zellen C5 bis C41. Ich möchte diese Namen in einem ComboBox in einer UserForm auflisten und nach Möglichkeit sortiert.
Hat jemand eine Idee?
Danke und Gruß
Martin
07.09.2011 11:11:02
Thread-ID: 1228908
3 Beiträge
Füllen von Combobox in Userform
Combobox

Hallo Zusammen
Ich hätte eine Frage zum Thema füllen von einer Combobox in einer Userform.
Ausgangslage:
Userform in Tabelle 1 (inkl. Combobox)
Combobox ist zweispaltig
Daten in Tabelle 3 A2: B10
Problem:
Die Daten werden nicht eingefüllt. Was ist falsch?
Private...
03.12.2011 17:27:43
Thread-ID: 1240516
11 Beiträge
Userform Combobox füllen
snore

Hallo Excelprofis,
ich hab ein "hoffentlich" keines Problem, ich benutze folgenden Code in meiner Userform um Daten in eine Combobox einzulesen.
soweit so gut, funktioniert auch sehr gut, nur ich muss das Tabellenblatt offen haben um die Daten einzulesen, ich will aber auf einen Anderen...
20.08.2012 17:28:33
Thread-ID: 1275770
3 Beiträge

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
2
10
4
3
8
4
2
2
10
2
1
5
2
5
4
4
6
4
1
10
1
9
2
6
2