Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Seite per VBA ansprechen und wieder zu Ursprungseite

Forumthread: Seite per VBA ansprechen und wieder zu Ursprungseite

Seite per VBA ansprechen und wieder zu Ursprungseite
21.02.2025 20:46:54
Robert Pilz
Hallo liebe Exeler;

habe mal wieder ein Problem für das ich Eure Hilfe bräuchte.
Ich habe ein Makro geschrieben mit dem ich ein Seite anspreche in der offenen Arbeitsmappe, Autosortiere und dann will ich auf die Ursrprungsseite zurück. Genau das geht aber nicht und bringt immer einen Fehlermeldung.
Hier mal dfas Makro
Sub AutoFilterung()



Worksheets("Lohn aufbereitet").Activate
Range("Aa2:ak2").AutoFilter

Range("Aj2").AutoFilter 10, ">0"
Worksheets("Makros Lohn ").Activate

End Sub


Der Schritt zurück funktioniert nicht und bringt Debug-Modus.

Für Hilfe wäre ich sehr dankbar.


LG Robert
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Seite per VBA ansprechen und wieder zu Ursprungseite
21.02.2025 20:50:53
Onur
Gibt es denn ein Blatt, dessen Name EXAKT SO (MIT Leerzeichen am Ende) aussieht "Makros Lohn " ?
AW: Seite per VBA ansprechen und wieder zu Ursprungseite
21.02.2025 20:52:35
Uduuh
Hallo,
"Makros Lohn " oder "Makros Lohn" ?

Gruß aus'm Pott
Udo
ohne hin und her
21.02.2025 21:04:03
Uduuh
Sub AutoFilterung()


With Worksheets("Lohn aufbereitet")
.Range("AA2:AK2").AutoFilter
.Range("AJ2").AutoFilter 10, ">0"
End With

End Sub

Sollte auch funktionieren

Gruß aus'm Pott
Udo
Anzeige
AW: ohne hin und her
27.02.2025 17:25:31
Robert Pilz
Hallo Ihr lieben Exeler.


Ich danke Euch von ganzen Herzen. Habe die Variante von Uduuh "ohne hin und her" genommen. Funzt ganz ausgezeichnet. Danke für Eure Mühe.




LG Robert
AW: Seite per VBA ansprechen und wieder zu Ursprungseite
21.02.2025 22:10:26
Daniel
hättest du auch die Güte, uns mitzuteilen, wie genau die Fehlermeldung lautet, mit der der Debug-Modus startet?
das ist häufig schon der erste Hinweis auf die Fehlerursache.
Oder hast du Gründe, warum du das verschweigst?

im Prinzip müsste hier eine Zeile reichen, dann musst du auch nicht hin- und herspringen, sondern das Ausgangsblatt bleibt aktiv.

Worksheets("Lohn aufbereitet").Range("Aa2:ak2").AutoFilter Field:=10, Criteria1:=">0"


Gruß Daniel
Anzeige
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18