Anzeige
Archiv - Navigation
956to960
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
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Aktive.Sheet wieder finden

Aktive.Sheet wieder finden
29.02.2008 11:59:19
Sebastian
Hallo User,
Habe folgendes Problem.
Exelmappe mit mehren Blättern. 1 Blatt ist zu drucken. jetzt soll per makro das Blatt zum drucken von allen anderen Blättern ausgewählt werden und gedruckt und anschliesend wieder auf das zuvor beutze blatt wechseln. ich brauche nur hilfe für den Befehl zum Aktivenblatt merken und wieder zurück zu kommen.
Mein Ansatzt ist volgender(klapt aber net):
Dim Start As String
Aktive.Sheet = Start
Sheets(Druck)Select
... jetzt kommt der ruckbefehl
Start = Aktive.Sheet
Finde den ansatzt echt gut, finde nur nicht den richtigen befehl für die Aktuelle seite
Vielen Dank
Gruß Sebbi

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aktive.Sheet wieder finden
29.02.2008 12:05:33
FM
ich würde den Namen des aktiven Blattes, welches du zuvor benutzt hast in eine Variable schreiben:
dim act_tab as string
act_tab = activesheet.name
sheets(act_tab).select

AW: Aktive.Sheet wieder finden
29.02.2008 12:06:53
Matthias
Hallo Sebbi,

Dim Sh As Worksheet
Set Sh = ActiveSheet
' dein Druckmakro
Sh.Activate


Allerdings kann man sich in den meisten Fällen sparen, ein Blatt vor dem Drucken zu aktivieren:
Sheets("Tabelle1").PrintOut
druckt Tabelle1 auch, wenn sie nicht aktiv ist.
Gruß Matthias

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige