Office: Workbook öffnen und umbenennen

Ein Hallo an die VBA Gemeinde
Bin ein neu registrierter User und ebenso ein VBA Anfänger. Suche für folgende Sache eine Problemlösung:
Ich habe ein Workbook geöffnet in welchem sich viele verschiedene WorkSheets befinden. Ich möchte nun ein bestimmtes Worksheet auf einem Server in einen bestimmten Ordner kopieren. Dafür öffne ich ein neues Workbook, kopiere das gewünschte WorkSheet an die gewünschte Stelle im neuen Workbook und speicher dieses neue Workbook mit meinem gewünschten Namen am Server ab. Mein Problem ist nun, wenn ich diese Prozedur wiederhole wird ein neues Workbook mit z.B. anstelle von Mappe1 als Mappe2 usw. geöffnet. Damit erkennt mein Makro dieses Workbook nicht mehr. Ich möchte daher das neue Workbook immer mit einem bestimmten Namen (z.B. Checkliste) öffnen.
Hoffe ich habe mich verständlich genug ausgedrückt.

Vielen Dank Klaus

:)

 

Hallo Klaus,

wenn du eine neue Mappe erzeugst, hat die immer einen von Excel vorgegebenen Namen. Dein Name entsteht ja erst durch das speichern. Du kannst aber beim hinzufügen der Mappe diese schon an eine Objektvariable verweisen und mit dieser Variablen weiterarbeiten. Der Name spielt dann überhaupt keine Rolle mehr. Beispiel:

Public Sub Klaus()
Dim objWorkbook As Workbook
Set objWorkbook = Workbooks.Add 'neue Mappe erzeugen
ThisWorkbook.Worksheets("Tabelle1").Copy Before:=objWorkbook.Sheets(1) 'Tabelle kopieren
objWorkbook.SaveAs "C:\Checkliste.xls" 'Mappe speichern
objWorkbook.Close 'Mappe schließen
End Sub

 

Hallo Nepumuk
Danke für den Hinweis, funktioniert. Hatte schon eine umständlichere Lösung getestet, aber deine ist besser. Muß nun übers Wochenende ein wenig testen, da dass abspeichern auf den Server immer einen Laufzeitfehler 1004 bringt. Speichere ich das Workbook jedoch direkt mittels "Speichern unter" ab, funktioniert alles.

Bis dann Klaus

 

Hallo!

Da hast du irgendwo einen Rechtschreibfehler in deinem Programm. Die Logik von Nepumuk ist richtig. Nur speichert dieser die Daten ja auf C:\. Wenn du auf einem Netzlaufwerk schreiben möchtest, musst du die Codezeile geändert haben. Schreib uns die doch mal, dann können wir dir den Fehler analysieren und beheben!

Gruß
rastrans

 

Hallo Rastrans
Den Pfad habe ich natürlich geändert auf meine Einstellungen. Eventuell habe ich jedoch ein Zeitproblem bei der Übertragung. Bei meinen Tests bin ich nämlich zu Hause gesessen und habe mittels W-Lan und VPN mit meiner Firma kommuniziert. Probiere die Sache noch einmal am Montag im Büro und gebe dann Bescheid.
Danke für die Hilfe
Klaus *rolleyes.gif*

 

Guten Morgen Nepumuk und Rastrans
Habe den "Fehler" schon gefunden. Anscheinend leide ich unter leichter Legastenie. Habe einfach nur einen falschen Pfadnamen eingeben. Anstelle von 205 war 250 eingetragen. Hat eine Weile gedauert aber nun läufts.
Danke nochmal Klaus