Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Erzeugen der Personal.xlsb per Makro
zurück: Menge verteilen weiter: Name.Sheet1 != Name.Sheet2 -> Sheet3 Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
SDK
Gast


Verfasst am:
17. März 2014, 12:14
Rufname:


Erzeugen der Personal.xlsb per Makro - Erzeugen der Personal.xlsb per Makro

Nach oben
       Version: Office 2007

SDK am 13. März 2014 um 16:19 hat folgendes geschrieben:
Hallo liebe office-loesung community,

nachdem ich bisher sicher schon tausend mal hier im forum innerhalb kürzester zeit eine lösung für mein problem gefunden habe, will ich nun selbst auch eine frage stellen.

zu meinem problem:
ich möchte verschiedene makros schreiben, die sich die kollegen in ihre eigene persönliche arbeitsmappe ziehen können um die makros anschließend bequem über die symbolleiste zu verwenden. meine idee war nun:

- die makros in jeweiligen dateien hinterlegen
- der nutzer öffnet eine dieser dateien, wenn er vor hat das makro öfter zu benutzen. per vba soll nun geprüft werden, ob dieser nutzer bereits eine persönliche arbeitsmappe hat. wenn nicht, soll sie angelegt werden. wenn bereits eine existiert, soll das makro in seine persönliche arbeitsmappe hinzugefügt werden.

hintergrund ist, dass die kollegen hier mit excel auf kriegsfuß stehen. selbst wenn ich eine anleitung schreibe, wie man die persönliche arbeitsmappe anlegt, wird spätestens beim punkt "makro aufzeichnen" leichte panik aufkommen. ich möchte auch nicht irgendwo auf dem laufwerk eine persönliche arbeitsmappe ablegen, die dann auf das notebook des anwenders gespeichert wird. es soll eine neue personal.xlsb angelegt werden, wenn noch keine vorhanden ist.

der bisherige code sieht wie folgt aus:
Code:
Private Sub abc()
    Dim wb
    Dim persWB
    Dim objExcel As Object
    Dim nameAlt As String
    Dim nameNeu As String
   
    Set wb = ActiveWorkbook
    If Dir(Application.StartupPath & "\PERSONAL.XLSB") = "" Then
        nameAlt = "" & Application.StartupPath & "\PERSONAL.XLS"
        nameNeu = "" & Application.StartupPath & "\PERSONAL.XLSB"
        Set objExcel = CreateObject("Excel.Application")
        With objExcel
            .Visible = False
            .WorkBooks.Add
            .ActiveWorkbook.SaveAs nameAlt
            .Quit
        End With
        Set objExcel = Nothing
        Name nameAlt As nameNeu
    End If
End Sub
die damit erstellte datei will excel aber nicht als persönliche arbeitsmappe akzeptieren. man erhält beim öffnen (und somit automatischen laden der pers. mappe) die fehlermeldung:
Zitat:
Die Datei PERSONAL.XLSB kann von Excel nicht geöffnet werden, da das Dateiformat oder die dateierweiterung ungültig ist. Überprüfen Sie, ob die Datei beschäfigt ist und ob die Dateierweiterung dem Dateiformat entspricht.
vor diesem versuch hatte ich es so versucht:
Code:
    objExcel.ActiveWorkbook.SaveAs Application.StartupPath & "\PERSONAL.XLSB"
hier meckert excel allerdings auch, dass das das falsche dateiformat sei.


ich hoffe auf eure hilfe Smile

Hmm...auch übers Wochenende keine neue Idee :-/

Falls das Thema eher in den Excel Bereich gehört, bitte verschieben.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Anwendungsübergreifende Fragen: Ein Makro mit einem anderen Makro starten 1 Mung der Dritte 87 01. Okt 2013, 10:23
maninweb Ein Makro mit einem anderen Makro starten
Keine neuen Beiträge Anwendungsübergreifende Fragen: Infopath - Zeilen in Bestelliste per Dropdown ausfüllen 2 robsky 215 13. Aug 2013, 14:00
robsky Infopath - Zeilen in Bestelliste per Dropdown ausfüllen
Keine neuen Beiträge Anwendungsübergreifende Fragen: Über einen Button in Excel eine SAP Auswertung erzeugen 1 office_flo 1018 30. Sep 2012, 11:52
PablitoGon Über einen Button in Excel eine SAP Auswertung erzeugen
Keine neuen Beiträge Office 2010 Forum: Zeilen über ein Makro Einfügen wenn Stat. nicht abgeschlosse 0 Danielovic 188 30. Sep 2011, 12:30
Danielovic Zeilen über ein Makro Einfügen wenn Stat. nicht abgeschlosse
Keine neuen Beiträge Office 2010 Forum: Outlook Signatur per VBA erstellen 0 Betta 1399 27. März 2011, 09:58
Betta Outlook Signatur per VBA erstellen
Keine neuen Beiträge Office 2010 Forum: Der Makro konnte nicht erstellt werde 1 network 716 12. Feb 2011, 15:22
Gast Der Makro konnte nicht erstellt werde
Keine neuen Beiträge Office 2010 Forum: Nach Start von Word: Makro Fehlermeldung 0 ppanning 2317 12. Aug 2010, 23:10
ppanning Nach Start von Word: Makro Fehlermeldung
Keine neuen Beiträge Office 2010 Forum: Office 2007 Makro unter Win7 x64 2 Gast 8490 22. Apr 2010, 23:21
Gast Office 2007 Makro unter Win7 x64
Keine neuen Beiträge Anwendungsübergreifende Fragen: Export/Import von Excel als bmp in Powerpoint per vba 0 felix_der_gast 1215 10. März 2010, 09:51
felix_der_gast Export/Import von Excel als bmp in Powerpoint per vba
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Anwendungsübergreifende Fragen: word datei per email 2 luckyluke2003 1842 24. Jul 2009, 18:40
CaBe word datei per email
Keine neuen Beiträge Anwendungsübergreifende Fragen: Erzeugen von Exceldateien analog zu Worddateien 7 McAdder 593 20. Mai 2009, 23:34
derArb Erzeugen von Exceldateien analog zu Worddateien
Keine neuen Beiträge Office 2007 Forum: Makro Sicherheitseinstellungen 10 Gachl 16388 01. Apr 2009, 20:30
Gast Makro Sicherheitseinstellungen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen