Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
500to504
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
500to504
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Möchte Aktion sobald Arbeitsblatt aktiv ist

Möchte Aktion sobald Arbeitsblatt aktiv ist
19.10.2004 09:45:27
Jule
Hallo liebe Leute,
habe von vba nicht wirklich viel Plan. Mein Prob. Habe eine Arbeitsmappe mit vielen Tabellenblättern. Nennen wir sie Tabelle1 usw. Möchte nun, das jedes Arbeitsblatt, sobald es aktiv ist, sortiert wird. Das Makro zum sortieren hab ich schon im Forum gefunden, nur weiß ich nicht, wie ich es so einbinden kann, das es wie oben beschrieben funktioniert.
danke an alle die mithelfen
Jule

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Möchte Aktion sobald Arbeitsblatt aktiv ist
19.10.2004 09:53:24
xule

  • VBA Editor öffnen (Alt F11)

  • Project Explorer öffnen (Strg+R)

  • "Tabelle1" doppelklicken (bzw. Deine Tabelle)

  • Im neuen Fenster das Makro einfügen



Private Sub Worksheet_Activate()
Spalte = 1 ' anpassen
Columns(Spalte).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

Dankeschön! Es funktioniert!
Jule
.
Und wenn es für ALLE Blätter gelten soll:
19.10.2004 10:39:10
Franz
Hallo Jule,
wenn es für ausnahmslos alle Blätter gelten soll, dann gib im VBA-Editor in "Diese Arbeitsmappe" deinen Code ein unter:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Spalte = 1 ' anpassen
Columns(Spalte).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

Dann brauchst du es nicht in jedes Sheet eingeben, es gilt für die gesamte Mappe
Grüße
Franz
Anzeige
Danke Franz. Funktioniert prima!!!
jule
.
Gern geschehen :-)) o.T.
20.10.2004 16:34:47
Franz

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige