Herbers Excel-Forum - das Archiv
Relativer Arbeitsmappenverweis...

|
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?
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
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!!!
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
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!!!
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.
Betrifft: AW: Relativer Arbeitsmappenverweis...
von: Holi
Geschrieben am: 13.10.2003 13:56:07
Laufzeitfehler 424
Objekt erforderlich
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
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!!!
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!!!
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?
Betrifft: AW: Relativer Arbeitsmappenverweis...
von: Holi
Geschrieben am: 13.10.2003 14:16:52
Jo, thanx!!! Danke für Deine Geduld!!!