Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
488to492
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
488to492
488to492
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code beim Verlassen eines Worksheets

Code beim Verlassen eines Worksheets
27.09.2004 10:16:21
Torsten
Hallo beisammen,
folgendes Makro würde ich gerne so einrichten, daß es startet, sobald das Worksheet("ENTRYFC") verlassen wird:
Application.ScreenUpdating = False
ActiveSheet.Unprotect "Kennwort"
Range("A5:M523").Select
Selection.Sort Key1:=Range("I5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A5").Select
ActiveSheet.Protect "Kennwort"
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
Application.ScreenUpdating = True
Könnt Ihr mir einen Tip geben? (Mit Worksheet Deactivate funktioniert's nicht)
Vielen Dank im voraus.
Gruß
Torsten

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

Betreff
Datum
Anwender
Anzeige
AW: Code beim Verlassen eines Worksheets
27.09.2004 10:54:32
Oberschlumpf
Hi Torsten
Zuerst einmal...
...mit Worksheet_Deactive wird dann für das aktuelle Tabellenblatt ein Ereignis ausgelöst, wenn Du innerhalb einer Excel-Datei in ein anderes Tabellenblatt wechselst.
Bsp:

Private Sub Worksheet_Deactivate()
MsgBox "test"
End Sub

Gibt die Meldung "Test", wenn ich ein anderes Tabellenblatt anklicke.
Dein Problem könnte darin liegen, dass Dein Code keinen Bezug auf das gewünschte sondern auf das NACH dem Wechsel aktuelle Tabellenblatt nimmt.
Ändere Deinen Code mal um wie folgt:

Application.ScreenUpdating = False
Sheet("ENTRYFC").Unprotect "Kennwort"
Sheet("ENTRYFC").Range("A5:M523").Select
Selection.Sort Key1:=Sheet("ENTRYFC").Range("I5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Sheet("ENTRYFC").Range("A5").Select
Sheet("ENTRYFC").Protect "Kennwort"
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
Application.ScreenUpdating = True

Da ich dieses Bsp nicht getestet habe, empfehle ich Dir, vor Änderung, eine Sicherheitskopie Deiner Datei zu erstellen.
Konnte ich helfen?
Ciao
Thorsten
Anzeige
AW: Code beim Verlassen eines Worksheets
Torsten
Hallo Thorsten,
vielen Dank für Deine Rückmeldung.
nachdem ich Sheet in Sheets geändert habe, bleibt Excel nunmehr an der Stelle:
Sheets("ENTRYFC").Range("A5:M523").Select
hängen, mit der Meldung, daß die Select-Methode auf das Range-Objekt nicht ausgeführt werden kann. Außerdem scheint Excel gerade abgestürtzt zu sein...:-(
Hast Du noch eine Idee?
Gruß
Torsten
AW: Code beim Verlassen eines Worksheets
27.09.2004 12:20:55
Oberschlumpf
Hi Thorsten
Versuch es mal so:

Dim lstrBlattName As String
Application.ScreenUpdating = False
lstrBlattName = ActiveSheet.Name
Sheets("ENTRYFC").Unprotect "Kennwort"
Sheets("ENTRYFC").Select
Range("A5:M523").Select
Selection.Sort Key1:=Range("I5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A5").Select
Sheet("ENTRYFC").Protect "Kennwort"
Sheets(lstrBlattName).Select
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
Application.ScreenUpdating = True

Der Grund der aufgetretenen Fehlermeldung ist, dass ein Bereich nur selektiert werden kann, wenn das dazugehörige Tabellenblatt aktiv ist.
(wie gesagt, ich hatte es nicht getestet :-) )
Und gegen den Absturz hilft vielleicht die Tastenkombi Strg-Pause.
Je nach Quellcode läuft Excel bei einem Fehler in eine Endlosschleife und es sieht so aus, als ob Excel abgestürzt ist. Mit Strg-Pause kann ein fehlerhaftes Makro unterbrochen werden.
Konnte ich denn diesmal helfen?
Ciao
Thorsten
Anzeige
AW: Code beim Verlassen eines Worksheets
ypsilon
hi Thorsten,
ist es nicht einfacher auf dieses unnötige select zu verzichten ?
Sheets("ENTRYFC").Range("A5:M523").Sort Key1:=Sheets("ENTRYFC").Range("I5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
cu Micha
AW: ereldigt - mT
Torsten
Hi Micha,
zweifellos richtig, Dein Einwand.
Das kommt vom Rekordern ohne nachzubessern :-)
Gruß
Torsten
AW: Code beim Verlassen eines Worksheets
27.09.2004 13:03:27
Oberschlumpf
Hi Micha
Ich wartete nur auf so eine Bemerkung :-)
Ja, Du hast sicher Recht, auf Select etc. verzichten zu können.
Aber...Asche auf mein Haupt...ich übernahm den Code von Thorsten einfach, bzw ergänzte/korrigierte ihn, OHNE zu testen. Deshalb hab ich nich weiter auf die Selects geachtet.
Und nun is der Torsten ohne H ja dank unserer Beider Hilfe glücklich ;-)
Bye
Thorsten
Anzeige
AW: erledigt - mT
Torsten
Hi Thorsten,
ja, sieht gut aus. :-)
Allerdings zuckt Excel beim Verlassen des bewußten Sheets ca. 10 sec. lang, trotz des Screenupdating = False. Merkwürdigerweise stelle ich dieses Phänomen nicht fest, wenn ich das Sortieren über einen Button im Sheet ausführen lasse.
Da ich nicht weiß, ob meine User dann nicht auch anfangen zu zucken, muß ich noch mal überlegen, ob ich Deine Lösung drin lasse oder ob ich die Button-Variante wähle.
Schau'n mer mal.
Zunächst also vielen Dank für Deine Hilfe.
Gruß
Torsten

40 Forumthreads zu ähnlichen Themen

Format beim verlassen
Christian

Hallo,
kann mir jeman sagen warum
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1.Value = Format(Time, "hh:mm:ss") End Sub
nicht funktioniert ?
Erhalte Meldung "Falsche Anzahl an Argumenten oder ungültige Zuweisung" !
Christian
05.09.2008 14:42:00
Thread-ID: 1007692
11 Beiträge
Anzeige
alle Blätter beim verlassen in Zelle A1
S.

Hallo zusammen,
ich möchte gern, dass beim Verlassen meiner Excel-Datei alle Blätter
nach oben und links gescrollt werden und zusätzlich alle Blätter in Zelle A1 springen.
Die Anzahl der Blätter ist variabel und ändert sich.
Für eine kurze Hilfe bin ich sehr Dankbar.
Gruß
11.12.2009 14:35:09
Thread-ID: 1123335
5 Beiträge
Replace beim verlassen einer Zelle
Ingrid

Hallo Leute,ich habe eine Excel Tabelle mit Adressen und Problemen.
In dieser Tabelle gibt es Adressen für den deutschen Sprachraum mit umlauten und Adressen für den englischen Sprachraum ohne Umlaute.
Wie kann ich beim Verlassen der Zellen mit einer Adresse für den englischen Sprachraum...
10.04.2002 14:42:58
Thread-ID: 112109
6 Beiträge
Anzeige
Aktion beim Verlassen des Feldes
Riccardo

Hallo Leute,
ich habe da mal eine Frage. Wie kann ich es realisieren, dass eine Aktion erst dann stattfindet, wenn ich eine Zelle geändert habe und diese verlassen will?
Also derzeitige Problemstellung:
Ich habe 2 Felder, die sich gegenseitig beeinflussen. Zusammen dürfen sie Maxima...
07.01.2013 12:50:51
Thread-ID: 1293153
4 Beiträge
rechnen beim Verlassen einer Zelle per Makro
Peter

Hallo Leute,
ich komme mal wieder nicht weiter !
Ich möchte im VBA Project "DieseArbeitsmappe" eine Funtion schreiben die mir nach verlassen einer Zelle einen Rechenvorgang auslöst.
z.B. A1 * B1 (Return) = C1, Courser - wechselt in die nächte Zelle
Ich habe versucht mit "Workbo...
16.03.2013 18:33:39
Thread-ID: 1304360
3 Beiträge
Makro beim Verlassen von Zellen bestimmter Spalten
Zellen

Guten Morgen liebe Forengemeinde,
ich steh momentan total auf dem Schlauch und hoffe, dass mir einer von euch schnell auf die Sprünge helfen kann.
Ich möchte gern beim Verlassen der Spalte "B" den Inhalt von Spalte "A" und Spalte "B" in Spalte "C" kombinieren. Das versuche ich mit folge...
21.01.2014 07:20:38
Thread-ID: 1346085
3 Beiträge
Makros aufrufen automatisch beim verlassen Tab.bla
Hepitus

Beim Verlassen eines Tabellenblattes sollen mehrere Makros (oder ein Makro) aufgerufen werden. Wie bekomme ich es hin, dass bei nach Beendigung des Makros, der Cursor sich in dem Arbeitsblatt befindet, welches ich bei Verlassen des bestimmten Arbeitsblattes angeklickt habe.Danke für die Hilfe i...
13.07.2002 11:46:46
Thread-ID: 136255
6 Beiträge
Beim Verlassen der Zelle Teilung durch 100
Ralf

Hallo,wir haben hier ein Problem auf einem Rechner.
Wenn man eine Zahl eingibt und die Zelle dann verläßt, wird der Wert durch 100 geteilt(Bsp.: Eingabe[6], Anzeige in Zelle[0,06]).
Nur die Anzeige ist nicht korrekt, intern rechnet EXCEL richtig.
Eine Neuinstallation, mit vorangegangen...
21.08.2002 11:55:07
Thread-ID: 151051
2 Beiträge
Anzeige

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