Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
644to648
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
644to648
644to648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Blatt kopieren

Blatt kopieren
03.08.2005 09:02:56
VEnno
Hallo,
habe ein Makro aufgezeichnet, dass die Schritte des Tabellenblatt kopierens ausführt:

Sub Blatt_kopieren()
' Blatt_kopieren Makro
' Makro am 03.08.2005 von Michael Vennemann aufgezeichnet
Sheets("W2_Mo (4)").Select
Sheets("W2_Mo (4)").Copy After:=Sheets(11)
End Sub

Gibt es die Möglichkeit den Blattnamen zu "neutralisieren". Jetzt funktioniert dieses Makro ja nur, wenn ich ein Tabellenblatt W2_Mo in der Arbeitsmappe habe. Ich möchte aber gerne, dass immer das ausgewählte Tabellenblatt kopiert wird.
Danke für Eure Hilfe!
Grüße
Venno

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blatt kopieren
03.08.2005 09:08:15
Hajo_Zi
Hallo Venno,
schreibe
ActiveSheet
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


AW: Blatt kopieren
03.08.2005 09:18:46
Venno
Hallo Hajo,
wenn ich es so schreibe funzt es nicht (auch nicht mit Hochkommata):

Sub Blatt_kopieren()
' Blatt_kopieren Makro
' Makro am 03.08.2005 von Michael Vennemann aufgezeichnet
Sheets(ActiveSheet).Select
Sheets(ActiveSheet).Copy After:=Sheets(11)
End Sub

Sorry, bin kein Makro Experte.
Grüße
Michael
Anzeige
AW: Blatt kopieren
03.08.2005 09:23:52
Venno
Hallo Hajo,
habe in eine andere Antwort von Dir geschaut und die richtige Schreibweise
gefunden. Danke!!
Übrigens: Deine Beispiele für die Zähling von Zahlen sind auch super!!
Viele Grüße
Michael

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige