Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1032to1036
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Dateien übertragen-speichern

Dateien übertragen-speichern
15.12.2008 08:56:41
rofu
Guten Morgen,
ich möchte meine Excel Dateien an verschieden Orten speichern.
Und zwar z.B.vom USB-Stick auf einen Laptop oder umgekehrt.
Ich möchte aber nicht den ganzen Stick kopieren, ich möchte nur die geänderten Dateien übertragen.
Gruß
Robert

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateien übertragen-speichern
15.12.2008 09:53:06
rofu
Hallo Matthias,
muss jetzt mit meiner Frau einkaufen gehen, habe aber einen Punkt vergessen:
wenn Datei noch nicht vorhanden, ebenfalls speichern.
Also-alle geänderten und neuen Dateien sollen übertragen werden.
Gruß
Robert
AW: Dateien übertragen-speichern-offen
15.12.2008 11:55:00
rofu
mit If Dir( ... ) lkannst Du das prüfen
16.12.2008 09:40:49
Matthias
Hallo Robert
so kannst Du prüfen, ob eine Datei schon existiert.
als Beispiel:
erstelle eine Datei mit Namen rofu.xls auf Laufwerk C:\

Sub speichern()
Dim StrgPfad
Dim Datei
StrgPfad = "C:"
Datei = "rofu"
If Dir(StrgPfad & "\" & Datei & ".xls")  "" Then
MsgBox Datei & ".xls - Datei ist vorhanden"
Else
MsgBox Datei & ".xls - Datei ist nicht vorhanden"
End If
End Sub


das mußt Du dann natürlich an Deine Bedürfnisse anpassen.
rufst Du nun die Prozedur auf, wird sie Deine Datei rofu.xls finden.
lösche nun die Datei wieder und lass den Code erneut laufen.
nun findet er auch die Datei nicht mehr.
Gruß Matthias

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige