Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1496to1500
1496to1500
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopie von PersonL.xlsb in andere Ordner

Forumthread: Kopie von PersonL.xlsb in andere Ordner

Kopie von PersonL.xlsb in andere Ordner
20.06.2016 20:18:56
PersonL.xlsb
Guten Abend, VBA Spezilisten.
Mit folgendem Makro möchte ich die PersonL.xlsb, die ausgeblendet ist, in zusätzlich andere Ordner kopieren und soll überschrieben werden. Das Makro bricht immer mit "Fehler beim kompilieren, Falsche Anzahl an Argumenten oder ungültige Zuweisung einer Eigenschaft", ab.
Mit der Btte um Hilfe.
Gruß, Dieter(Drummer)
'Herber: von Josef Ehrensberger, geschrieben am: 11.07.2012 20:23:16
Option Explicit
  • 
Sub SaveMultiPersonL()
With ThisWorkbook
.Save "C:\Users\Max\AppData\Roaming\Microsoft\Excel\XLSTART\PersonL.xlsb"
.SaveCopyAs "C:\MxDiverse\" & .PersonL.xlsb '1. Kopie
.SaveCopyAs "C:\Test\" & .PersonL.xlsb '2. Kopie
'.SaveCopyAs "C:\" & .PersonL.xlsb '3. Kopie
.Close
End With
End Sub


    • Anzeige

    8
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Kopie von PersonL.xlsb in andere Ordner
    20.06.2016 22:02:43
    PersonL.xlsb
    Hallo!
    Prüfe mal den Pfad bei "SaveCopyAs". Der kann so nicht stimmen, denn "ThisWorkbook.PersonL.xlsb" dürfte es nicht geben. Versuche: .SaveCopyAs "C:\MxDiverse\PersonL.xlsb"
    Gruß, René

    AW: Kopie von PersonL.xlsb in andere Ordner
    20.06.2016 22:52:33
    PersonL.xlsb
    Danke René für Info.
    Ich werde es morgen prüfen und mich wieder melden.
    Gruß, Dieter(Drummer)

    Anzeige
    AW: Zusätzlich sichern der PersonL.xlsb
    21.06.2016 09:52:42
    Dieter(Drummer)
    Guten Morgen René,
    ich habe es ausprobiert und es ist nicht so das richtige. Ich möchte lediglich, dass die Datei "PersonL.xlsb" ins verschiedene Ordner zustzlich gesichert wird. Bei Copy wird immer noch die Copynummer hinzugefügt. Es soll so sein, dass der Name nicht verändert wird. Z.B.:
    1) Die Datei "PersonL.xlsb", aus dem Verzeichnis "C:\Users\Max\AppData\Roaming\Microsoft\Excel\XLSTART\PersonL.xlsb" soll in Ordner "C:\MxDiverse\" zusätzlich gespeichert und überschrieben werden.
    2. Ebenfalls soll die Datei auch in den Ordner "C:\Test\" gespeichert und auch überschrieben werden.
    Die Originaldatei "PersonL.xlsb" wird im XLSTART Ordner nicht verändert! Zu beachten ist, dass die PersonL.xlsb nur ausgeblendet, also entsprechend aktiv ist.
    Wäre toll, wenn es da eine Lösung gibt.
    Gruß, Dieter(Drummer)

    Anzeige
    AW: Zusätzlich sichern der PersonL.xlsb
    21.06.2016 11:50:57
    UweD
    Heist die wirklich "PersonL.xlsb" bei dir?
    bei mir seit etlichen Officeversionen mit a "Personal.xlsb"
    Gruß UweD

    AW: Zusätzlich sichern der PersonL.xlsb
    21.06.2016 12:05:33
    Dieter(Drummer)
    Hallo Uwe,
    bei mir heißt sie "PersonL.xlsb", liegt im XLSTART (Excel 14)Ordner und funktioniert problemlos.
    Gruß, Dieter(Drummer)

    AW: Zusätzlich sichern der PersonL.xlsb
    21.06.2016 12:53:40
    UweD
    Hallo nochmal
    dann mach es doch so (geht auch bei geöffneter Datei)
    Sub SaveMultiPersonL()
     Dim FSO As Object
     Dim Quelle As String, Ziel As String
     
     Set FSO = CreateObject("Scripting.FileSystemObject")
     
     Quelle = "C:\Users\Max\AppData\Roaming\Microsoft\Excel\XLSTART\PersonL.xlsb"
     
     Ziel = "C:\MxDiverse\" '1. Kopie 
     FSO.CopyFile Quelle, Ziel
     
     Ziel = "C:\Test\" '2. Kopie 
     FSO.CopyFile Quelle, Ziel
     
     Ziel = "C:\" '3. Kopie 
     FSO.CopyFile Quelle, Ziel
End Sub
    

    VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
    Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0

    Gruß UweD

    Anzeige
    AW: Sorry für späte Rückmeldung ...
    21.06.2016 14:08:24
    Dieter(Drummer)
    ... und herzlichen Dank für dein Makro, UweD, dass perfekt funktioniert. Du hast mir sehr geholfen.
    So kann ich auch bei Bedarf noch andere Ordner mit einbeziehen.
    Danke mit Gruß und einen schönen Resttag,
    Dieter(Drummer)

    Danke für die Rückmeldung owT
    21.06.2016 14:14:56
    UweD
    ;

    Forumthreads zu verwandten Themen

    Menü in Excel von VB6.0 aus erzeugen??
    VB6.0

    Hallo zusammen,
    ich hoffe ihr könnt mir bei meinem Anliegen helfen. Ich möchte den VBA-Code in eine dll transportieren (VB 6.0) und scheitere schon an dem Menüaufbau in Excel.
    In der dll steht in einer Klasse:
    Sub Test_Excel() Set xl = GetObject(, "Visio.Application") Set objMenu...
    07.08.2008 20:23:28
    Thread-ID: 1000091
    13 Beiträge
    Färben von Textboxen in Userform
    Textboxen

    Guten Morgen!
    Ich habe in einer UserForm 22 TextBoxen in denen Zahlen stehen.
    Wenn eine positive Zahl in den Textboxen steht, dann soll der Hintergrund (Backcolor) grün gefärbt werden.
    Wenn eine negative Zahl in den Textboxen steht dann soll der Hintergrund hellrot gefärbt werden.<...
    21.08.2008 07:38:00
    Thread-ID: 1003354
    4 Beiträge
    Anzeige
    Wenn nur Text in Zelle...
    MichiM

    Hallo,
    ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
    Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
    E...
    22.08.2008 16:24:44
    Thread-ID: 1003960
    4 Beiträge
    Indexierung von Steuerelementen in VBA
    Steuerelementen

    Hallo,
    aus VB kenne ich die Vorgehensweise, dass man Steuerelemente (z.B. Labels) Indexieren kann. Man kann sie dan komfortabel über eine Schleife ansteuern.
    Ein simples Beispiel zum verdeutlichen:
    For i=1 to 10
    label(i).text=i
    next i
    Die zehn Labels haben nun eine Besc...
    01.09.2008 11:30:41
    Thread-ID: 1006376
    3 Beiträge
    Verknüpfung von xls in ppt
    xls

    Hallo,
    Ich möchte Grafiken in ppt mit einer separaten xls verknüpfen, die sich die Daten von dort automatisch bei Aktuallisierung zieht. Die Basis soll eine xls sein, die auf verschiedenen Blättern Grafiken in ppt erzeugen soll.
    Habt Ihr eine Idee?
    Danke im voraus.
    Gruß,
    Al...
    08.09.2008 18:21:00
    Thread-ID: 1008232
    2 Beiträge
    Formateierung von Textboxen in einer Userform
    Textboxen

    Hallo, nochmal 'ne warscheinlich blöde Frage:
    Wie man Schriftart, Farbe etc. für Textboxen einstellt, bekomme ich hin. Aber
    wie lege ich fest, dass es sich um das Format "Zahl" mit x Kommastellen oder
    ähnliches handeln soll? - Hintergrund:
    Auf einer Userform muß der Benutzer in...
    16.09.2008 16:24:26
    Thread-ID: 1010158
    2 Beiträge
    Index von Optionsbuttons
    Optionsbuttons

    Hallo.
    Ich habe in einem TB über die Symbolleiste Formulare gaaanz viele Optionbuttons erzeugt.
    Diese liefern bei Zellposition A1 eine fortlaufende Zahl.
    Die Zahl verwende ich über einen Sverweis für eine Art "Menüsteuerung".
    Nun möchte ich etwas zwischen 15 und 16 einfügen, u...
    26.09.2008 11:56:05
    Thread-ID: 1012571
    2 Beiträge
    Anzeige
    Darstellung von Variablen in Textfeldern von Grafi
    Variablen

    Ich habe in einer EXCEL-Anwendung mehrere Grafiken mit eingefügten Textfeldern. Die Inhalte der Textfelder wurden bisher manuell erfasst. Besteht eine Möglichkeit, die Textfelder mit den Inhalten von Zellen aus der EXCEL-Anwendung zu verknüpfen? Mein Wunsch ist, in Zukunft bei Aktualisierung de...
    06.10.2008 18:22:00
    Thread-ID: 1014516
    5 Beiträge
    Unicode-Zeichen in Textfeld von Userform
    Userform

    Hallo,
    Ich bin auf der Suche nach gut praktikablen Möglichkeiten in ein Textfeld eines Userforms Unicode-Zeichen (z.B. ć kleines c mit Akut - Code 0107 oder č kleines c mit Caron - Code 010D) einzutippen.
    Danke im voraus für alle Tipps!
    Grüße
    Günther
    12.10.2008 12:34:00
    Thread-ID: 1015836
    5 Beiträge
    Datumsübernahme von Exel in Serienbrief Word
    Exel

    Hallo Ihr Spezialisten,
    ich habe ein kleines Problem mit der Übertragung von zwei Spalten, die Datumsangaben enthalten. Diese werden in einen Word Serienbrief übertragen und werfen dann leider nur noch 5-stellige Zahlen aus.
    Wo ist das Problem? Wir haben die Formatierungen alle abgesche...
    17.10.2008 12:37:30
    Thread-ID: 1017121
    3 Beiträge
    Werte von Checkboxen in Userform speichern
    Checkboxen

    Hallo liebe Forumleser,
    ich habe in VBA Excel eine Userform mit Checkboxen erstellt. Ein "OK Button" in der Userform schreibt die Captions der angekreuzten Checkboxen in eine Tabelle:
    Worksheets("BDaten").Range("D65:D67").Clear
    If chkAKurzI1 = True Then
    Worksheets("BDaten").Cell...
    17.10.2008 16:39:00
    Thread-ID: 1017214
    8 Beiträge
    Anzeige
    Inhalte von Worddatei in Excel einlesen
    Worddatei

    Hallo,
    gibt es eine Moglichkeit die Inhalte von mehreren Worddatei, die sich alle in einem Ordner befinden in Excel einfügen zu lassen.
    Dabei soll auf jeder Tabelle der Excelmappe der Inhalt einer Worddatei erscheinen. auf der ersten Tabelle will ich später ein Inhaltsverzeichnis mit L...
    26.10.2008 13:30:00
    Thread-ID: 1019368
    7 Beiträge
    Entdecke relevante Threads

    Schau dir verwandte Threads basierend auf dem aktuellen Thema an

    Alle relevanten Threads mit Inhaltsvorschau entdecken
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
    Anzeige
    Anzeige
    Entdecke mehr
    Finde genau, was du suchst

    Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

    Suche nach den besten Antworten
    Unsere beliebtesten Threads

    Entdecke unsere meistgeklickten Beiträge in der Google Suche

    Top 100 Threads jetzt ansehen
    Anzeige