Das Archiv des Excel-Forums

Dialogfenster zum kopieren

Bild

Betrifft: Dialogfenster zum kopieren
von: Andre´

Geschrieben am: 05.01.2008 21:30:30

Hallo alle zusammen,
ich habe in Zelle A2 den Pfad stehen, wo alle Dateien die mit SS... beginnen
in einem Dialogfenster angezeigt werden sollen.
Userbild
Wenn ich eine Datei markiere, soll bei Druck auf Kopieren die Datei in den Zielpfad
der in A1 steht kopiert werden.
Kann mir bitte Jemand dabei behilflich sein dies zu realisieren.
Danke im Voraus.
MFG Andre

Bild

Betrifft: AW: Dialogfenster zum kopieren
von: {Boris}
Geschrieben am: 05.01.2008 21:46:29
Hi Andre,
benutze die GetOpenFileName-Methode - damit wird nix geöffnet, sondern nur der gesamte Pfad der angewählten Datei zurückgegeben.
Mit Hilfe dieses Pfades kannst Du dann mit der FileCopy-Methode die Datei in dem Zielpfad abspeichern.
Grüße Boris

Bild

Betrifft: AW: Dialogfenster zum kopieren
von: Andre´

Geschrieben am: 05.01.2008 21:56:36
Hallo Boris,
danke für den Tipp, hast Du dafür ein Makro auf Lager.
MFG Andre

Bild

Betrifft: AW: Dialogfenster zum kopieren
von: {Boris}
Geschrieben am: 05.01.2008 22:16:51
Hi André,


Option Explicit
Sub Datei_kopieren()
Dim strFile As String
Dim strPath As String
On Error GoTo Uups
strFile = Application.GetOpenFilename(, , "Welche Datei soll´s denn sein?")
If strFile = "Falsch" Then Exit Sub
strPath = Range("A1") & Mid(strFile, InStrRev(strFile, "\"))
FileCopy strFile, strPath
MsgBox "Erfolgreich kopiert!", , "Gebe bekannt..."
Exit Sub
Uups:
MsgBox "Datei kann nicht kopiert werden", vbInformation, "Gebe bekannt..."
End Sub


Grüße Boris

Bild

Betrifft: Setz noch 1 Zeile dazu...
von: {Boris}

Geschrieben am: 05.01.2008 22:21:01
Hi André,
zwischen "On Error Goto Uups" und strFile = .... füge ein:
ChDir Range("A2")
Grüße Boris

Bild

Betrifft: AW: Dialogfenster zum kopieren
von: Andre´
Geschrieben am: 05.01.2008 22:30:04
Hallo Boris,
Vielen Dank für die Hilfe.
Funktioniert ganz gut. Gibt es noch die Möglichkeit nur die Dateien anzuzeigen die mit SS beginnen.
MFG Andre

Bild

Betrifft: Keine Ahnung....
von: {Boris}

Geschrieben am: 05.01.2008 22:49:29
Hi André,
Frage daher noch offen.
Grüße Boris

Bild

Betrifft: AW: Dialogfenster zum kopieren
von: K.Rola
Geschrieben am: 06.01.2008 12:20:44
Hallo,


Sub FileDialog_File_Picker()
Dim strFile As String
With Application.FileDialog(3)
.InitialFileName = "C:\ordner\ss*"
.InitialView = 2
If .Show = -1 Then
strFile = .SelectedItems(1)
MsgBox strFile
Else
MsgBox "Nix gewählt!"
End If
End With
End Sub


Gruß K.Rola

Bild

Betrifft: AW: Dialogfenster zum kopieren
von: Andre´

Geschrieben am: 06.01.2008 18:02:38
Hallo K.Rola,
DANKE für Deine Hilfe. Mit der Kombination von Boris und Deiner Variante funktioniert es :-))
MFG Andre

 Bild

Excel-Beispiele zum Thema "Dialogfenster zum kopieren"

Blätter in andere Arbeitsmappen kopieren download Module von Mappe zu Mappe kopieren download
Arbeitsblatt 40 mal kopieren download Schriftgröße beim Kopieren verdoppeln download
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen download Tabellencode nach Kopieren des Blattes löschen download
Arbeitsmappe blitzschnell kopieren download VBE-Namen der Blattmodule beim Kopieren festlegen download
Blattinhalt von einer zur anderen Arbeitsmappe kopieren download Formel bis zur letzten Zeile der Nebenspalte kopieren download
Datei kopieren, wenn noch nicht vorhanden download Zeilenweise von Blatt zu Blatt kopieren download
Erste Druckseite in eine neue Arbeitsmappe kopieren download Durch DoppelKlick Spalte in zweites Arbeitsblatt kopieren download
Teilergebnisse einer Serie von Tabellen in anderes Blatt kopieren download Bei Eintrag in Spalte A aktuelle Zeile kopieren download
Filtern und Kopieren download Zeile mit aktiver Zelle in anderes Blatt kopieren download
Zeilen in Abhängigkeit des Wertes in Spalte A kopieren download Einen von einer Schlüsselziffer abhängigen Bereich kopieren download
Vorgegebene Anzahl von Einträgen in 2. Blatt kopieren download Über InputBox festzulegenden Bereich kopieren download
Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen download Tabellenblatt kopieren und dreistellig fortlaufend numerieren download
Jede zweite Zelle kopieren download Werte aus UserForm-ComboBox suchen und Fundstelle kopieren download
Gruppe von Optionsfeldern kopieren und Makro zuweisen download Nicht zusammenhängenden Bereich in nächste Zeile kopieren download
Wert aus UserForm-TextBox suchen und Fundstelle kopieren download Nur sichtbare Zellen in anderes Arbeitsblatt kopieren download
Zeile in Abhängigkeit zur Eingabe in Blätter kopieren download Werte prüfen und kopieren download
Bei Eintrag von X Zeile in andere Tabelle kopieren download Daten kopieren wenn kein Datum oder Datum > Heute download
Blattinhalte dreier Blätter in neues Blatt kopieren download Kopieren und Umbenennen eines Blattes download
Nur Zeilen mit bestimmtem Inhalt kopieren download Artikelnummern nach Kriterien suchen und Datensätze kopieren download
Bild in zweites Blatt an gleiche Position kopieren download Alle Zeilen ohne Wert in vorgegebener Spalte kopieren download
Bei Eintrag Zeile in 2. Blatt kopieren und Tabellen sortieren download Bildergruppe in anderes Blatt kopieren download
Bei Eingabe Formel in der Nebenspalte nach unten kopieren download Auswahl in andere Arbeitsmappe kopieren, speichern, schließen download
Begriff suchen und Fundzeilen in anderes Blatt kopieren download Aktive Zeile kopieren und löschen download
Datensätze, die öfter als 3 mal vorkommen, kopieren download Den jeweils darüberliegenden Wert in Leerzellen kopieren download
Alle Zeilen mit einem Suchbegriff in nächstes Blatt kopieren download Dateien listen und Blätter in neue Arbeitsmappe kopieren download