Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
140to144
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
140to144
140to144
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Menüs ändern bei Aufrufen eines Blattes

Menüs ändern bei Aufrufen eines Blattes
01.08.2002 10:51:33
Mike S.
Hallo,
gibt es in Excel die Möglichkeit, bei Aufrufen eines Arbeitsblattes im Excel-Menü automatisch Änderungen vorzunehmen?

Der Hintergrund ist folgender: Ich möchte in einem Arbeitsblatt per Makro eine bestimmte Ansicht wieder herstellen lassen, falls diese verändert wurde (Das Arbeitsblatt ist gesplittet und soll oben bzw. unten bestimmte Bereiche zeigen. Eigentlich hatte ich vor, dies per Button zu machen: Allerdings verschwindet dieses Button ja auch, wenn jeman die Ansicht "verscrollt".

(Alternativ wäre mir auch geholfen, wenn ich dieses Button auf eine bestimmte Bildschirmposition festlegen könnte).

Vielen Dank schon mal vorab!

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Menüs ändern bei Aufrufen eines Blattes
01.08.2002 10:54:58
L.Vira
Verwende das Ereignis
Private Sub Worksheet_Deactivate()
Re: Menüs ändern bei Aufrufen eines Blattes
01.08.2002 11:02:45
Mike S.
Hi L.!
Kannst Du das bitte etwas genauer erklären? Stehe gerade auf dem Schlauch...
~<:-)?

Re: Menüs ändern bei Aufrufen eines Blattes
01.08.2002 11:17:51
Mike S.
Hi L.!
Ich mach's noch mal kurz genauer: Dies ist der Code für die Aktion, die durchgeführt werden soll:

ActiveWindow.Panes(1).Activate
Range("A1").Select
ActiveWindow.SplitRow = 27
ActiveWindow.Panes(3).Activate
Range("A1435:B1435").Select

Und das muss ich eigentlich nur da einfügen

Private Sub ???_SheetActivate(ByVal ??? As Object)
.
.
.
End Sub


Bei den Fragezeichen bin ich mir nicht sicher, was ich da eintragen muss. Kannst Du mir weiterhelfen?
Danke!
:-)

Anzeige
Re: Menüs ändern bei Aufrufen eines Blattes
01.08.2002 11:48:13
L.Vira
Wenn es in allen Blättern passieren soll:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Call Deine_AktioN
End Sub

Wenn in einem bestimmten Blatt sein soll im Modul des Blatts:

Private Sub Worksheet_Activate()
Call Deine_AktioN

End Sub

sub Deine_AktioN()
ActiveWindow.Panes(1).Activate
Range("A1").Select
ActiveWindow.SplitRow = 27
ActiveWindow.Panes(3).Activate
Range("A1435:B1435").Select
End Sub

Re: Menüs ändern bei Aufrufen eines Blattes
01.08.2002 12:08:13
Mike S.
Wunderbar! Es funktioniert.... Vielen Dank!

Ich habe da noch eine Frage: Im oberen Teil des Fensters soll der Cursor immer in eine bestimmte Zelle springen, die sich aus der aktuellen Kalenderwoche generiert. Da Excel (meines Wissens) nicht mit Kalenderwochen arbeitet, müsste diese Info eingegeben werden. Was aber nicht so schlimm ist, weil man manchmal nicht in die aktuelle Woche springen möchte.

Ich habe allerdings keine Erfahrung damit, wie ich einen einzugebenden Wert in eine Formel einfließen lassen kann. In diesem konkreten Fall wäre es die Formel Range("zu eingegebenem Wert + x").

Kannst Du mir auch da weiterhelfen? Sollte ich dazu einen neuen Thread öffnen? (Bin relativ neu im Forum)

:-)

Anzeige
Re: Menüs ändern bei Aufrufen eines Blattes
01.08.2002 12:38:25
L.Vira
die korrekte Kalenderwoche bekommst du mit:
Function KW_DIN(Datum)
KW_DIN = DatePart("ww", Datum, vbMonday, vbFirstFourDays)
End Function

Gern, aber ich komm nicht so ganz klar mit deiner Beschreibung.
Welche soll die active zelle werden und unter welcher Bedingung?

Re: Menüs ändern bei Aufrufen eines Blattes
01.08.2002 12:51:29
Mike S.
Ich habe ein zweigeteiltes Blatt, im oberen Bereich sollen Kalenderwochen auftauchen, im unteren Teil Adressen bzw. Anschriften. Da ständig die Ansicht verstellt wird, möchte ich, dass beim Aufrufen die Grundeinstellung hergestellt wird: Oben sieht man genau eine Woche (und nicht 1 1/2 oder 2 3/4 oder so) und unten die Adressen. Das funktioniert jetzt (dank Deiner Hilfe) perfekt.

Allerdings springt der obere Teil immer auf Kalenderwoche 1 [Range("A1").Select]. Es wäre aber viel schöner, wenn der obere Teil immer auf die aktuelle Kalenderwoche springt. Jede Kalenderwoche besteht aus der gleichen Anzahl von Zeilen, d.h. mit einem Multiplikator könnte ich dann die entsprechende Zelle errechnen [Range("A('aktuelle Kalenderwoche' x 7)").Select].

Was ich aber nicht weiss: Wie kann ich in die Range-Funktion diesen Wert übernehmen: Ich aktiviere den Sheet -> Excel errechnet die genaue Position anhand der Kalenderwoche und setzt den Cursor da hin.

Ich hoffe, dass ich mich verständlicher ausgedrückt habe...

;-)

Anzeige
Re: Menüs ändern bei Aufrufen eines Blattes
01.08.2002 13:34:41
L.Vira
Tut mir Leid, irgenwie hab ich ein Brett vorm Kopf:
mail mir mal ein Beispiel: softsmith@web.de

302 Forumthreads zu ähnlichen Themen

zwei Diagramme auf eine Seite drucken, ohne Tabell
Christian

Hallo Forum,
ich möchte zwei Diagramme auf einer A4 Seite ausdrucken, ohne die Zellen im Hintergrund mitzudrucken.
Dazu wähle ich die beiden Diagramme, klicke auf "Drucken", aber es werden immer die Zellen die neben den Diagrammen vorgucken mit ausgedruckt. Wenn ich nur ein Diagramm wäh...
14.07.2009 09:59:49
Thread-ID: 1088376
5 Beiträge
Anzeige
mehrere Seiten auf ein Blatt drucken
Joachim

Hallo,
ich hab ne Tabelle mit 10 Zeilen und 885 Spalten. Auf dem Plotter ergibt das bei DinA0 quer 26 Seiten.
Frage:
Kann ich die einzelnen Seiten untereinander (blockweise) auf eine oder zwei DinA0-Seiten drucken?
Also auf einem DinA0 Blatt so gedruckt werden:
Seite1
Le...
10.03.2011 13:49:31
Thread-ID: 1205114
2 Beiträge
2 Bereiche auf ein Blatt drucken
Matthias

Hallo Helferinnen u. Helfer,
Prosit,..allen ein frohes, gesundes," 2010 "
So, mein Problem:
Vorgabe Tabellenblättern 1 - 12 ist der Aufbau identisch somit eine gute Grundlage,
aber wenn ich nun in Blatt 1 , mir 2 Bereiche markiere z.B. A10 : AJ24 und A47 : AJ68
dann druc...
02.01.2012 18:23:01
Thread-ID: 1244283
7 Beiträge
Anzeige
2 Druckbereiche auf einer Seite drucken
Armin

Hallo zusammen,
ich möchte gerne die Druckbereiche B1:F16 und B37:F46
auf einer Seite ausdrucken.
Bisher macht Excel immer 2 Seiten daraus.
Kennt jemand eine Lösung dafür?
Besten Dank für eure Hilfe
Armin
15.05.2014 12:54:03
Thread-ID: 1361745
4 Beiträge
Mehrere Diagramme auf ein Blatt mit For- Schleife
Nemyk

Hallo Zusammen,
seit vielen Tagen setze ich vor dem Rechner und versuche herauszufinden, was ich fasch gemacht habe bzw. wo der Fehler im unterstehenden Code ist.
In den Spalten B bis O habe ich die Monaten. Jeder einzelner Monat ist dreimal vorhanden (d. h. in der Spalte B = Jan15, Sp...
29.09.2014 19:08:01
Thread-ID: 1383996
11 Beiträge
Makro zum Drucken mehrerer Tabellenblätter
Martin

Hallo zusammen,
ich benötige ein Makro zum Drucken mehrerer Tabellenblätter. Der Name der Tabellenblätter steht in einem Übersichtsblatt in der Range B4:B70, wobei nicht alle Zeilen gefüllt sind. Des Weiteren muss es ein Error Handling geben, falls es kein Tabellenblatt mit einem der Namen...
23.05.2015 11:30:37
Thread-ID: 1427446
5 Beiträge
Makro zum Drucken mehrerer Tabellenblätter
Martin

Hallo zusammen,
ich benötige ein Makro zum Drucken mehrerer Tabellenblätter. Der Name der Tabellenblätter steht in einem Übersichtsblatt in der Range B4:B70, wobei nicht alle Zeilen gefüllt sind. Des Weiteren muss es ein Error Handling geben, falls es kein Tabellenblatt mit einem der Namen...
23.05.2015 14:10:46
Thread-ID: 1427459
2 Beiträge
Mit Makro Vorder und Rückseite drucken
carsten_ranke@web.de

Hallo an euch im Forum,
ich habe folgenden Code um eine Seite aus Excel heraus zu drucken:
Private Sub CommandButton1_Click() Sheets("0001").Range("b1:n29").PrintOut End Sub
Kann man diesen erweitern das das Blatt auf der Rückseite den Bereich:
B35 - N68 automatisch mit druck...
08.08.2015 17:34:13
Thread-ID: 1441190
4 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
4
3
1
6
3
3
10
4
1
3
1
2
2
3
8
5
4
2
3
1
1
1
2
2
8