Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1700to1704
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
1700to1704
1700to1704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Worksheets Geswitche lästig

Worksheets Geswitche lästig
02.07.2019 11:16:52
Leon.DerProf
Liebe Community,
ich habe folgendes Problem.
Im Worksheet(1) möchte ich einen Button ausführen, der folgendes Makro beinhaltet.
Sub Einklappen()
Worksheets(2).Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
End Sub
Diesen führt er nicht aus, weil ich es so schreiben müsste:
Sub Einklappen()
Worksheets(2).activate
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
End Sub
Nun könnt ihr euch denken, dass bei dem zweiten Makro (der auch funktioniert) Excel von Tabellenblatt 1 zu 2 springt. Ich könnte nun noch hinzufügen "Worksheets(1).Activate", aber das hin und her gespringe ist lasting furs Auge.
Habt ihr eine Idee wie ich dieses Problem lösen könnte. Gibt es bei Excel VBA einen Befehl, der das ganze umgehen kann.
Grüße
Leon

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Worksheets Geswitche lästig
02.07.2019 11:27:42
Torsten 

Sub Einklappen()
With Worksheets(2)
.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
End With
End Sub
Gruss Torsten
AW: Worksheets Geswitche lästig
02.07.2019 11:27:55
Nepumuk
Hallo Leon,
teste mal:
Public Sub Einklappen()
    Application.ScreenUpdating = False
    With Worksheets(2)
        .Activate
        .Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
    End With
    Worksheets(1).Activate
    Application.ScreenUpdating = True
End Sub

Gruß
Nepumuk
Anzeige
AW: Worksheets Geswitche lästig
02.07.2019 11:50:53
Leon.DerProf
Das funktioniert super und ich habe einen neuen Befehl gelernt.
Danke :)
AW: Worksheets Geswitche lästig
02.07.2019 12:05:49
Leon.DerProf
Ah sorry. Leider klappt es doch nicht so ganz.
Aber eine nette Idee. Wirklich :)
AW: Worksheets Geswitche lästig
02.07.2019 12:09:09
Leon.DerProf
Ach Gott. Vergiss, was ich gesagt habe. Meine Makros gehen mittlerweile seitenweise.
Deine Idee ist Gold und klappt sicherlich. Ich muss nur noch herausfinden, wie ich das ganze Paket zum Laufen bringe. Aber dein Befehl klappt natürlich perfekt.
AW: Worksheets Geswitche lästig
02.07.2019 11:31:35
Daniel
Hi
wenn ein Befehl nur im aktiven Fenster anwendbar ist, kannst du mit: 
Application.ScreenUpdating = False

den Bildschirm während des Makrolaufs einfrieren, so dass man das hin- und her-gespringe nicht sieht.
nach Makroende wird die Bildschirmaktualisierung automatisch wieder aktiviert, dh das 
Application.ScreenUpdating = True

bei Makroende kann man schreiben, muss aber nicht.
Gruß Daniel
Anzeige
AW: Worksheets Geswitche lästig
02.07.2019 12:06:34
Leon.DerProf
Ich probiere mal rum. Danke für den Befehl :)

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige