Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
1372to1376
1372to1376
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen auslesen, in Ordnern suchen und kopieren

Forumthread: Zellen auslesen, in Ordnern suchen und kopieren

Zellen auslesen, in Ordnern suchen und kopieren
01.08.2014 12:53:59
Thomas
Hallo liebe Community,
folgendes Szenario möchte ich mit Hilfe von VBA Excel verwirklichen:
Ich habe ein Excel File mit einem Formular in das Seriennummern eingetragen werden. Das Formular hat 8 Zeilen und 8 Spalten. In jede Zelle wird eine 4-stellige Seriennummer eingetragen. Die Seriennummer wird manuell eingetragen durch Sichtprüfung. Bisher wurde immer manuell der dazu passende Prüfbericht in den Ordnern gesucht. Ich möchte nun das sobald ich alle SN eingetragen habe, die Excel Programmierung mir in den Ordnern das jeweilige txt. Dokument raussucht für jede einzelne Zelle und in einen seperaten Ordner kopiert. Der Name des Orderns kann der Zelleninhalt einer Zelle zu Beginn sein ("Lieferung 1" etwa).
Wäre super wenn mir jemand helfen könnte!
Besten Dank!

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen auslesen, in Ordnern suchen und kopieren
01.08.2014 14:32:26
Tino
Hallo,
mal eine Version.
Sub Kopieren_()
Dim rngRange As Range
Dim sDir$

'Bereich 
Set rngRange = Tabelle2.Range("A2:H9")
'Pfad Quelle 
Const sPathQuelle$ = "G:\1 Forum\"
'Pfad Ziel 
Const sPathZiel$ = "G:\1 Forum\Neuer Ordner (4)\"

For Each rngRange In rngRange.Cells
    If rngRange.Value <> "" Then
        sDir = Dir$(sPathQuelle & rngRange.Value & "*.txt", vbNormal)
        If sDir <> "" Then
            FileCopy sPathQuelle & sDir, sPathZiel & sDir
        End If
    End If
Next rngRange

MsgBox "Fertig"
End Sub
Gruß Tino

Anzeige
AW: Zellen auslesen, in Ordnern suchen und kopieren
01.08.2014 14:52:11
Thomas
Vielen Dank! Also funktionieren tut es! Jedoch muss ich den Ordner in der er die Dateien speichert seblst anlegen. Geht das auch automatisiert das ich oben ein Feld habe und der Zelleninhalt wird mein Ordner.

AW: Zellen auslesen, in Ordnern suchen und kopieren
02.08.2014 09:51:35
Tino
Hallo,
müsste so funktionieren!
Private Declare Function apiCreateFullPath _
Lib "imagehlp.dll" Alias "MakeSureDirectoryPathExists" (ByVal lpPath As String) As Long

Sub Kopieren_()
Dim rngRange As Range
Dim sDir$
Dim lngCreatePath&

'Bereich 
Set rngRange = Tabelle2.Range("A2:H9")
'Pfad Quelle 
Const sPathQuelle$ = "G:\1 Forum\"
'Pfad Ziel 
Const sPathZiel$ = "G:\1 Forum\Neuer Ordner (5)\"
'Ordner anlegen wenn nicht vorhanden 
lngCreatePath = apiCreateFullPath(Left$(sPathZiel, InStrRev(sPathZiel, "\")))

If lngCreatePath = 1 Then
    For Each rngRange In rngRange.Cells
        If rngRange.Value <> "" Then
            sDir = Dir$(sPathQuelle & rngRange.Value & "*.txt", vbNormal)
            If sDir <> "" Then
                FileCopy sPathQuelle & sDir, sPathZiel & sDir
            End If
        End If
    Next rngRange
    MsgBox "Fertig"
Else
    MsgBox "Ordner konnte nicht angelegt werden!", vbCritical
End If
End Sub
Gruß Tino

Anzeige
AW: Zellen auslesen, in Ordnern suchen und kopieren
07.08.2014 09:06:03
Thomas
Hallo Tino!
Vielen Dank erstmal für deine Hilfe.
Funktioniert einwandfrei jedoch hätt ich noch ein paar Dinge:
Ist es möglich den Pfad (Quelle und Ziel) manuell auswählen zu lassen, damit der Nutzer den Quellordner auswählen kann und sagen kann unter welchem Ordnernamen er wo speichern soll.
Vielen Dank

Anzeige
AW: Zellen auslesen, in Ordnern suchen und kopieren
07.08.2014 11:02:32
Thomas
Hallo!
Mir ist eine neue Idee gekommen:
Für die Quelldatei wäre es sinnvoll das der Benutzer nicht den Ordner selbst suchen müsste in dem er die .txt Dateien finden kann sondern wenn das Makro es automatisch machen könnte. In der Excel Tabelle gibt es zwei Nummer: "123456" und "A12". Diese Nummern setzen sich zusammen zum Ordner "123456_A12". Jetzt wäre es klasse wenn das Makro den Quellpfad bekommt und in der Liste der vielen Ordner anhand der zwei Nummern den richtigne findet.
Dannach soll wie gehabt nach der Eingabe der Seriennnummern er die Zellen abgleichen und in dem Ordner nach der .txt Datei suchen, kopieren in einen Ordner mit dem Namen der in einer Zelle zu Beginn steht und diesen speichern und am Ende eine Msg Box aufpoppen.
Die Msg Box soll foglenden Inhalt haben: 15 von 15 kopiert oder noch besser wenn er sagen könnte welche Dateien nicht gefunden wurden, wenn es dazu kommt.
Vielen vielen Dank

Anzeige
AW: Zellen auslesen, in Ordnern suchen und kopieren
07.08.2014 11:02:49
Thomas
Hallo!
Mir ist eine neue Idee gekommen:
Für die Quelldatei wäre es sinnvoll das der Benutzer nicht den Ordner selbst suchen müsste in dem er die .txt Dateien finden kann sondern wenn das Makro es automatisch machen könnte. In der Excel Tabelle gibt es zwei Nummer: "123456" und "A12". Diese Nummern setzen sich zusammen zum Ordner "123456_A12". Jetzt wäre es klasse wenn das Makro den Quellpfad bekommt und in der Liste der vielen Ordner anhand der zwei Nummern den richtigne findet.
Dannach soll wie gehabt nach der Eingabe der Seriennnummern er die Zellen abgleichen und in dem Ordner nach der .txt Datei suchen, kopieren in einen Ordner mit dem Namen der in einer Zelle zu Beginn steht und diesen speichern und am Ende eine Msg Box aufpoppen.
Die Msg Box soll foglenden Inhalt haben: 15 von 15 kopiert oder noch besser wenn er sagen könnte welche Dateien nicht gefunden wurden, wenn es dazu kommt.
Vielen vielen Dank
Anzeige
;

Forumthreads zu verwandten Themen

String suchen und kopieren
Daniel

Hallo,
ich bin ein VBA Neuling und der Makroaufzeichner bringt mich nicht weiter, da dieser immer selectiert und aktiviert.
Ich brauche ein etwas allgemeineren Code.
Ok was ich habe sind folgende Inputdaten:
.............A......B.........C.............D
1
2............
12.08.2008 14:55:00
Thread-ID: 1001221
9 Beiträge
Anzeige
Zeile suchen und löschen bzw kopieren
Henner

Hallo VBAler,
ich möchte in einer Tabelle in der Spalte A einen Wert bzw. einen Text suchen, wenn der Wert gefunden wird, soll die komplette Zeile gelöscht werden. Wird der Wert nicht gefunden, soll eine MsgBox erscheinen. Dann brauche ich den Code nochmal, in dem allerdings nicht die Zeile...
10.09.2008 16:56:00
Thread-ID: 1008851
5 Beiträge
Zahlenfolge suchen und in neue Tabelle kopieren
Günter

Hallo,
ich habe da ein kleines Problem, vielleicht kann mir hier geholfen werden.
In einer Tabelle stehen in der ersten Spalte (A) die fld. Nr. 1 bis 10 und in der Spalte (B) dazu gehörige Zahlenreihen, in der weiteren Spalte (D) fld. Nr. 11 bis 20 und in Spalte (E) wieder die dazu gehö...
04.12.2008 00:39:00
Thread-ID: 1030003
4 Beiträge
Datensätze suchen und löschen / Kopieren
Holger

Hi,
ich möchte gerne folgendes per Makro erledigen:
Ich habe eine Exceltabelle "IMPORT", in der gibt es ziemlich viele Datensätze (geht von A bis M und runter ab Zeile10 bis je nachdem bis 500 oder 1000)
In der Tabelle gibt es Datensätze, die würde ich gerne automatisch (oder bess...
31.01.2009 10:51:00
Thread-ID: 1045602
6 Beiträge
Doppelte Inhalte suchen und kopieren
Joachim

HI,
ich habe eine Tabelle mit verschiedenen Einträgen in Spalte B. Diese habe ich seither farblich markiert (Spalte B) :
Dim lngRow As Long
lngRow = Cells(Rows.Count, "B").End(xlUp).Row
Dim I As Integer, xx As Integer
Dim szCompare As String
For I = 5 To lngRow
szCom...
08.02.2009 13:07:42
Thread-ID: 1048280
8 Beiträge
wert in zeile suchen und spalte kopieren
Astrid

Hallo Fachleute,
Ich stecke bei folgendem Excel problem fest:
Ich habe eine relativ komplexe Exceldatei mit der ich die Ergebnisse aus einem Simulationsprogramm auswerte. Alle Auswertung bezieht sich auf Werte aus einem Blatt "Datei" mit einer festen Struktur. D.h. ich habe in Zelle A 1...
11.03.2009 12:41:00
Thread-ID: 1059072
9 Beiträge
Text durchsuchen und Teile herauskopieren
Andy

Schönen guten Abend!
Ich habe folgendes "Problem":
Im Feld A1 steht ein längerer Text, welcher nach mehreren bestimmten Ausdrücken(zB. "1]","2]","3]","4]") durchsucht werden soll. Immer wenn einer dieser Ausdrücke gefunden wird, soll der gefundene Ausdruck in das jeweils nächste leere F...
17.03.2009 20:40:05
Thread-ID: 1061211
3 Beiträge
Anzeige
Text durchsuchen und Ergebnisse herauskopieren
Andy

Schönen guten Tag!
Ich habe folgendes "Problem":
Im Feld A1 steht ein längerer Text, welcher nach mehreren bestimmten Ausdrücken(zB. "1]","2]","3]","4]") durchsucht werden soll. Immer wenn einer dieser Ausdrücke gefunden wird, soll der gefundene Ausdruck in das jeweils nächste leere Fel...
18.03.2009 11:09:52
Thread-ID: 1061327
2 Beiträge
Werte In Tab 2 suchen und nach Tab 1 kopieren
Peter_weber

Liebe Experten,
versuche gerade VBA zu erlernen, um bestimmte wiederkehrende Abfragen schneller durchzuführen.
Wie könnte ein VBA Makro für folgendes Problem aussehen. Als Anfänger bin hier hoffnungslos überfordert.
Also
- ich habe eine Abfragemaske im Worksheet "Werte-Eingeben...
15.04.2009 09:50:31
Thread-ID: 1068812
5 Beiträge
Formel für Zahlen suchen und kopieren
Song

Hallo zusammen,
wäre super wenn mir hier jemand helfen kann. Suche eine Formel, die alle 6stelligen Zahlen sucht und dann in ein neues Tabellenblatt kopiert.
Hoffe es kann mir jemand helfen. Ist nämlich recht wichtig für mich.
Danke!
15.05.2009 11:53:40
Thread-ID: 1075397
13 Beiträge
Anzeige
Bereich suchen und kopieren
Lars

Hallo Leute,
ich habe eine kleines Problem beim Kopieren von Zellbereichen und möchte dieses gerne via Makro lösen.
In meiner Datei (siehe Beispiel) stehen in den Zellen A bis E Daten welche ich gerne runterkopieren möchte. Allderdings sollte das Makro den nächsten Eintrag erkennen und...
23.06.2009 17:10:37
Thread-ID: 1083877
3 Beiträge
Anzeige
In Tabelle Suchen und Bereich kopieren - Bitte Hil
Marc

Hallo,
auch nach ausgiebiger Suche habe ich leider keine Lösung zu meinem Problem gefunden.
Ich möchte aus einem anderen Workbook nach einem bestimmten Text suchen, dies mache ich bislang wie folgt
Dim Zelle as Range
Dim customers as Range
Set customers = Workbooks("Cus...
25.06.2009 20:52:35
Thread-ID: 1084450
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zellen auslesen, in Ordnern suchen und kopieren

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und erstelle ein neues VBA-Modul:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
    • Klicke mit der rechten Maustaste auf "VBAProject (DeinExcelDokument)", wähle Einfügen und dann Modul.

  2. Füge den folgenden Code ein:

    Sub Kopieren_()
   Dim rngRange As Range
   Dim sDir As String
   Dim lngCreatePath As Long

   ' Bereich
   Set rngRange = Tabelle2.Range("A2:H9")
   ' Pfade
   Const sPathQuelle As String = "G:\1 Forum\"
   Const sPathZiel As String = "G:\1 Forum\Neuer Ordner\"

   ' Ordner anlegen wenn nicht vorhanden
   lngCreatePath = apiCreateFullPath(Left$(sPathZiel, InStrRev(sPathZiel, "\")))

   If lngCreatePath = 1 Then
       For Each rngCell In rngRange.Cells
           If rngCell.Value <> "" Then
               sDir = Dir$(sPathQuelle & rngCell.Value & "*.txt", vbNormal)
               If sDir <> "" Then
                   FileCopy sPathQuelle & sDir, sPathZiel & sDir
               End If
           End If
       Next rngCell
       MsgBox "Fertig"
   Else
       MsgBox "Ordner konnte nicht angelegt werden!", vbCritical
   End If
End Sub

  3. Ersetze die Pfade nach Bedarf: Achte darauf, dass der Quell- und Zielpfad korrekt angegeben sind.

  4. Führe das Makro aus: Du kannst das Makro über F5 im VBA-Editor ausführen oder es direkt aus Excel aufrufen.

Häufige Fehler und Lösungen

  • Ordner kann nicht angelegt werden:

    • Überprüfe, ob der Zielpfad korrekt ist und ob Du über die notwendigen Berechtigungen verfügst.

  • Dateien werden nicht gefunden:

    • Stelle sicher, dass die Seriennummern in der richtigen Form eingegeben sind und dass die .txt-Dateien im Quellordner vorhanden sind.

Alternative Methoden

Falls Du keine VBA-Programmierung verwenden möchtest, kannst Du auch die Excel-Funktion SVERWEIS nutzen, um die Seriennummern zu überprüfen. Diese Methode erfordert jedoch manuelle Intervention, um die Dateien in den entsprechenden Ordner zu kopieren.

Praktische Beispiele

Angenommen, Du hast in den Zellen A2 bis H9 Seriennummern wie folgt eingetragen:

1234
5678
9101

Der VBA-Code wird die entsprechenden .txt-Dateien aus dem Quellordner suchen und sie in den Zielordner kopieren. Der Zielordner könnte dabei dynamisch durch die Inhalte der Zellen benannt werden, indem Du den Code anpasst.

Tipps für Profis

  • Automatisches Erstellen des Zielordners: Du kannst den Code erweitern, um den Zielordner basierend auf dem Zellinhalt dynamisch zu benennen.
  • Fehlerprotokollierung: Füge eine Protokollierungsfunktion hinzu, um nicht gefundene Dateien zu speichern und später anzuzeigen.

FAQ: Häufige Fragen

1. Wie kann ich den Quell- und Zielordner manuell auswählen?
Du kannst den FileDialog-Befehl in VBA nutzen, um dem Benutzer die Auswahl des Ordners zu ermöglichen.

2. Was mache ich, wenn ich mehrere Dateien kopieren möchte?
Der gezeigte Code kopiert alle Dateien basierend auf den Seriennummern. Du kannst die Logik anpassen, um auch mehrere Dateitypen zu unterstützen.

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