Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
812to816
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
812to816
812to816
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Eine Spalte absuchen nach Dateinamen und Dateien..

Eine Spalte absuchen nach Dateinamen und Dateien..
27.10.2006 19:05:40
Ben
Hallo zusammen,
hab mal wieder ne Frage. Kennt einer eine Möglichkeit in der Spalte A z.B. der Mappe1, die dort gelisteten Datei-Namen nacheinander zu lesen und diese mit einem Verzeichnis-Ordner und deren Inhalt zu vergleichen (Datei-Namen meist PDF sind identisch teilweise mit Spalte A - Einträgen) und anschließend in einen anderen Ordner zu kopieren? Geht sowas mit VBA?
Das würde mir SEHR viel Arbeit sparen.
Danke vorab.
Gruß
Ben

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

Betreff
Datum
Anwender
Anzeige
AW: Eine Spalte absuchen nach Dateinamen und Datei
27.10.2006 20:07:56
ramses
Hallo
probier mal
Option Explicit

Sub MoveFile()
Dim myQ As String, myT As String
Dim myFile As String
Dim myFSO As Object
Dim i As Long, lastRow As Long, startRow As Integer
Dim myQPath As String, myTPath As String
Set myFSO = CreateObject("scripting.filesystemobject")
'Hier beginnen die Daten
startRow = 1
'letzter Eintrag wird automatisch berechnet
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
'Quellpfad
myQPath = "D:\DeinOrdner\"
'Zielpfad
myTPath = "D:\Dein_Anderer_Ordner\"
For i = startRow To lastRow
'Dateiprüfung
'Wenn vorhanden...
If Dir(myQPath & Cells(i, 1)) <> "" Then
'... dann Datei verschieben
myFSO.MoveFile myQPath & Cells(i, 1), myT & Cells(i, 1)
End If
Next i
End Sub

Gruss Rainer
Anzeige
AW: Eine Spalte absuchen nach Dateinamen und Datei
28.10.2006 11:17:20
Ben
Hallo Rainer,
SUPER vielen Dank für die Rückmeldung. Hab es ausprobiert, er bringt mir jetzt aber ne Fehlermeldung in der letzten Zeile
myFSO.MoveFile myQPath & Cells(i, 1), myT & Cells(i, 1)
End If
Beim ersten Male hat er von D:\DeinOrdner (Quelle) die Datei zwar weggenommen, aber nicht in den Ordner D:\Dein_Anderer_Ordner verschoben.
Weißt du was ich falsch mache?
Wäre wirklich eine EXTREME Arbeitserleichterung. Ich gehe von 30 Min. pro Tag aus.
Gruß + Danke vorab Rainer!
Ben
AW: Eine Spalte absuchen nach Dateinamen und Datei
28.10.2006 11:42:46
Reinhard
Hi Ben,
Option Explicit
Sub MoveFile()
Dim myFile As String
Dim myFSO As Object
Dim i As Long, lastRow As Long, startRow As Integer
Dim myQPath As String, myTPath As String
Set myFSO = CreateObject("scripting.filesystemobject")
'Hier beginnen die Daten
startRow = 1
'letzter Eintrag wird automatisch berechnet
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
'Quellpfad
myQPath = "D:\DeinOrdner\"
'Zielpfad
myTPath = "D:\Dein_Anderer_Ordner\"
For i = startRow To lastRow
'Dateiprüfung
'Wenn vorhanden...
If Dir(myQPath & Cells(i, 1)) <> "" Then
'... dann Datei verschieben
myFSO.MoveFile myQPath & Cells(i, 1), myTPath & Cells(i, 1)
End If
Next i
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Eine Spalte absuchen nach Dateinamen und Datei
29.10.2006 21:12:00
Ben
Hallo,
wäre ich euer Chef gäb's jetzt ne Gehaltserhöhung. Wie bereits erwähnt spare ich TÄGLICH dadurch ca. 30min meiner Arbeitszeit. EINFACH KLASSE! DANKE! DANKE! DANKE! Das Tool läuft!
Gruß
Ben

305 Forumthreads zu ähnlichen Themen

In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
Anzeige
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 15:11:51
Thread-ID: 1006816
2 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Anzeige
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 12:52:00
Thread-ID: 1014231
5 Beiträge
Filtern, gefilterte Daten benutzen, Suchen und Aus
Merle


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...
13.10.2008 15:48:00
Thread-ID: 1016087
3 Beiträge
Gleiche Eintäge in einer Spalte nacheinander finde
Malcolm_p

Hallo zusammen!
Wenn ich einen bestimmten Eintrag - per VBA - in einer Spalte finden möchte verwende ich der Regel den folgenden Code:
Dim NameSP As Range
Set NameSP = Sheets("Konten").Rows(1).Find( _
What:=Textbox1, _
Lookat:=xlWhole, _
LookIn:=xlValues)
Dim Erfdat...
15.10.2008 23:08:59
Thread-ID: 1016705
5 Beiträge
Suchen und Ersetzen schnelleres Makro
Susi

Hallo liebe Excel-Freunde,
ich habe folgendes kleines Makro.
Sub Suchen_Ersetzen() out = "15200" 'zu ersetzender String in = "43900" 'einzufügender String For Each cell In Selection If cell.HasFormula = True Then cell.Formula = Application.WorksheetFunction.Substitute(cell.Formula, ou...
20.10.2008 12:19:00
Thread-ID: 1017624
17 Beiträge
Doppelte Einträge in einer Spalte farbig markieren
Robert

Hallo,
ich hab eine Tabelle mit riesigem Datenbestand. Mein Problem ist nun, dass doppelte Eintrage, die in einer Spalte vorkommen, farbig markiert werden sollten - und das gleiche bei jeder weiteren Spalte mit Inhalt.
Sollten in einer Spalte doppelte Einträge vorhanden sein, müsste die...
27.10.2008 19:09:00
Thread-ID: 1019713
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
8
1
7
5
4
2
4
16
10
2
3
6
8
4
2
3
4
2
15
10
5
1
5
3