Das Archiv des Excel-Forums

Relativer Arbeitsmappenverweis...

Bild

Betrifft: Relativer Arbeitsmappenverweis...
von: Holi

Geschrieben am: 13.10.2003 13:33:34

Hab ein Makro erstellt, das über einen Button in der Arbeitsmappe "Protokoll_1" aktiviert wird und bestimmte Zeilen des Arbeitsblattes "Protokoll_1" in das Arbeitsblatt "Ergebnis" reinkopiert und gleichzeitig eine Kopie von "Protokoll_1" anlegt, die dann ja automatisch von Excel "Protokoll_1(2)" benannt wird!!! Mein Makro inkl. Button befindet sich dann ja automatisch auch in dem kopierten Arbeitsblatt!!! Will ich jetzt wieder das Makro im neuen Arbeitsblatt ausführen, so nimmt er die Werte von "Protokoll_1", anstatt die neuen Werte, die ich in Protokoll_1(2) eingegeben habe. =(

Gibt es eine Möglichkeit dem Makro zu sagen, er soll das aktuelle Arbeitsblatt nehmen? Also einen relativen Verweis auf immer den aktuellen Arbeitsmappennamen?
Bild


Betrifft: AW: Relativer Arbeitsmappenverweis...
von: Dirk
Geschrieben am: 13.10.2003 13:37:09

Hallo.

Ja, statt worksheets("Protokoll_1") verwendest Du ActiveSheet im Makro.

Cheers


Bild


Betrifft: AW: Relativer Arbeitsmappenverweis...
von: Holi
Geschrieben am: 13.10.2003 13:40:13

Hab in meinem Makro drinstehen sheets("Protokoll_1"). Muss ich da einfach active.sheet("Protokoll_1"9 reinschreiben?

Kenn mich da net so mit Makros aus, sorry!!!


Bild


Betrifft: AW: Relativer Arbeitsmappenverweis...
von: Dirk
Geschrieben am: 13.10.2003 13:42:34

Nee, statt sheets("Protokoll_1") schreibst Du "ActiveSheet" also meinetwegen ActiveSheet.copy


Bild


Betrifft: AW: Relativer Arbeitsmappenverweis...
von: Holi
Geschrieben am: 13.10.2003 13:49:36

Hmmm irgendwie bin ich blöd: hab jetzt eingegeben:


Sub Makro3()
' Makro3 Makro
' Makro am 13.10.2003 von xxx aufgezeichnet
ActiveSheet.Select
AvtiveSheet.Copy Before:=Sheets("OPL Liste")
End Sub


da kommt aber immer eine Fehlermeldung beim Ausführen!!!


Bild


Betrifft: AW: Relativer Arbeitsmappenverweis...
von: Dirk
Geschrieben am: 13.10.2003 13:53:24

Sorry.

Welche Fehlermeldung? Bei mir funktioniert der oben gepostete Teil einwandfrei.


Bild


Betrifft: AW: Relativer Arbeitsmappenverweis...
von: Holi
Geschrieben am: 13.10.2003 13:56:07

Laufzeitfehler 424

Objekt erforderlich


Bild


Betrifft: AW: Relativer Arbeitsmappenverweis...
von: Dirk
Geschrieben am: 13.10.2003 13:58:43

Versuch mal, den Code schrittweise auszuführen (mittels F8) um den Fehler einzugrenzen. Oder bist Du Dir sicher, dass der Fehler in der Zeile liegt? zur Not schick mir die Datei mal s-di@gmx.de


Bild


Betrifft: AW: Relativer Arbeitsmappenverweis...
von: Holi
Geschrieben am: 13.10.2003 14:04:04

Hab Dir mal ne Mail geschickt mit nem ganz einfach Beispiel, wos schon net tut!!!


Bild


Betrifft: AW: Relativer Arbeitsmappenverweis...
von: Holi
Geschrieben am: 13.10.2003 14:08:31

Habs hinbekommen!!! "" haben gefehlt =)))

Sorry!!! Trotzdem danke für die Mühe!!!


Bild


Betrifft: AW: Relativer Arbeitsmappenverweis...
von: Dirk
Geschrieben am: 13.10.2003 14:10:34

Zur Hälfte mein Fehler *g*
Du musst den Blattnamen in Anführungszeichen setzen.
Also ActiveSheet.Copy before:=sheets("OPL Liste")
Okay?


Bild


Betrifft: AW: Relativer Arbeitsmappenverweis...
von: Holi
Geschrieben am: 13.10.2003 14:16:52

Jo, thanx!!! Danke für Deine Geduld!!!


 Bild