Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1228to1232
1228to1232
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inhalte aus Datein kopieren wenn

Forumthread: Inhalte aus Datein kopieren wenn

Inhalte aus Datein kopieren wenn
Marcus
Hi,
ich sitze vor etwas kniffligem (für mich zumindest).
Ich habe eine Arbeitsmappe mit 1 Tabelle. In der 1. Zeile stehen Überschriften. Nun würde ich gerne per Makro (VBA) Inhalte aus verschiedenen Dateien in diese Tabelle (untereinander weg) kopieren, wenn 2 Inhalte bei diesen Tabellen stimmen. Beispiel: in der Quelldatei muss in Spalte "J" ein Ort auftauchen (meinetwegen Hamburg) und in "K" muss Inhalt = "JA" sein. Dann soll das Makro die kompletten Zeilen in denen BEIDE Kriterien enthalten sind, in meine Tabelle kopiert werden. Wenn die Tabelle beides nicht enthält, soll das Makro diese wieder schliessen und die nächste Tabelle aufrufen. Es handelt sich insgesamt täglich um 7 Tabellen die immer gleich heißen.
Öffnen schließen usw kriege ich wohl hin, aber wie kriege ich es hin, dass das Makro die Inhalte sucht und vor allem die dann NUR diese Zeilen untereinander weg in meine neue Tabelle kopiert ?
Bin für jede Idee sehr dankbar !
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Inhalte aus Datein kopieren wenn
30.08.2011 21:24:23
fcs
Hallo Marcus,
das nachfolgende Makro (ungetestet) sollte es nach Anpassung der Namen etc. tun.
Gruß
Franz

Sub DatenHolen()
Dim arrFiles() As String, iFile As Integer
Dim wksZiel As Worksheet, ZeileZ As Long
Dim wbQuelle As Workbook, wksQuelle As Worksheet, ZeileQ As Long
Dim strOrt As String
strOrt = InputBox(Prompt:="Zu suchender Ort", _
Title:="Daten Holen - Suchbegriff Spalte J", _
Default:="Hamburg")
If strOrt = "" Then
'do nothing
Else
ReDim arrFiles(1 To 7)
'Namen der Dateien mit den Daten
arrFiles(1) = "C:\Users\Public\Test\01\File01.xlsx"
arrFiles(2) = "C:\Users\Public\Test\01\File02.xlsx"
arrFiles(3) = "C:\Users\Public\Test\01\File03.xlsx"
arrFiles(4) = "C:\Users\Public\Test\01\File04.xlsx"
arrFiles(5) = "C:\Users\Public\Test\01\File05.xlsx"
arrFiles(6) = "C:\Users\Public\Test\01\File06.xlsx"
arrFiles(7) = "C:\Users\Public\Test\01\File07.xlsx"
Application.ScreenUpdating = False
Set wksZiel = ActiveWorkbook.Worksheets("Tabelle1") 'oder = ActiveSheet 'Name ggf. anpassen
With wksZiel
'letzte Zeile mit Daten in Spalte J
ZeileZ = .Cells(.Rows.Count, 10).End(xlUp).Row
End With
strOrt = LCase(strOrt)  'Suchbegriff auf Kleinbuchstaben setzen
'Quelldateien abarbeiten
For iFile = LBound(arrFiles) To UBound(arrFiles)
'Quelldatei schreibgeschützt öffnen
Set wbQuelle = Workbooks.Open(Filename:=arrFiles(iFile), ReadOnly:=True)
Set wksQuelle = wbQuelle.Worksheets(1) 'Index-Nr. oder Blattname ggf. anpassen
With wksQuelle
For ZeileQ = 1 To .Cells(.Rows.Count, 10).End(xlUp).Row
'Prüfen Spalte J (10) = Suchbegriff, SPalte K (11) ist gleich "ja"
If strOrt = LCase(.Cells(ZeileQ, 10)) And LCase(.Cells(ZeileQ, 11)) = "ja" Then
ZeileZ = ZeileZ + 1
'Zeile mit Formaten und Formeln/Werten kopieren
.Rows(ZeileQ).Copy Destination:=wksZiel.Cells(ZeileZ, 1)
'oder wenn nur Werte kopiert werden sollen
.Rows(ZeileQ).Copy
wksZiel.Cells(ZeileZ, 1).PasteSpecial Paste:=xlPasteValues
End If
Next ZeileQ
Application.CutCopyMode = False
End With
'Quelldatei wieder schliessen
wbQuelle.Close savechanges:=False
Next iFile
End If
Erase arrFiles
Set wbQuelle = Nothing: Set wksQuelle = Nothing: Set wksZiel = Nothing
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Inhalte aus Datein kopieren wenn
31.08.2011 08:27:09
Marcus
Moin Franz,
vielen Dank vorab für Deine Mühe ! Klasse !
Ich habe Dein Makro soweit angepasst. Allerdings kopiert er mir die Zeilen nicht raus. Beispielquelldatei heisst '123', Suchbegriff in J 'Hamburg' und in K 'HH.'. Ich habe insgesamt 4 Zeilen mal eingefügt und nur in einer die Kriterien eingetragen. Leider holt er mir diese nicht raus. Es kommt aber auch keine Meldung woran es haken könnte. Hast Du noch eine Idee ?
Anzeige
AW: Inhalte aus Datein kopieren wenn
31.08.2011 23:02:24
fcs
Hallo Markus,
aus Tradition richte ich meine Makros beim Suchen meistens so ein, dass nicht zwischen Groß-/Kleinschreibung unterschieden wird. Dabei werden dann vor dem Vergleichen der Werte die Zellinhalte mit LCase(...) in kleine Zeichen umgesetzt. Das erfordert, dann natürlich auch, dass die Vergleichstexte in Kleinbuchstaben angegeben bzw. entsprechend umgewandelt werden.
Probiere mal eine der Anpassungen in der folgenden Zeile:

          If strOrt = LCase(.Cells(ZeileQ, 10)) And LCase(.Cells(ZeileQ, 11)) = "hh" Then
oder
If strOrt = LCase(.Cells(ZeileQ, 10)) And .Cells(ZeileQ, 11) = "HH" Then
für das Vergleichen von Zellinhalten und Vorgabewerten.
Gruß
Franz
Anzeige
AW: Inhalte aus Datein kopieren wenn
05.09.2011 12:14:09
Marcus
Moin Franz,
danke für das erneute Feedback. Leider funktioniert das auch nicht. Es scheint zwar durchzulaufen und die Datein zu durchsuchen, aber den Inhalt kopiert er mir nicht raus.
Noch eine Idee ? :-)
AW: Inhalte aus Datein kopieren wenn
05.09.2011 15:06:00
fcs
Hallo Markus,
dann arbeite das Makro im Schrittmosus ab bzw. setze im Code einen Haltepunkt und mach dann im Schrittmodus (Taste F8) weiter und beobachte die zu vergleichenden Werte. ggf. einzelne Variablen oder Ausdrücke unter Debuggen zur Überwachung hinzufügen. Da das Makro ja ansonsten scheinbar fehlerlos durchläuft kann es eigentlich nur an dem Vergleich liegen.
Gruß
Franz
Anzeige
;

Forumthreads zu verwandten Themen

aus Word-Datei in Excel kopieren
Florian

Hallo liebes Forum,
habe wieder mal eine Frage:
ich will ein Worde-file öffnen, alles kopieren und in ein xls-file einfügen. Kann mir da jemand weiterhelfen?
Danke schon im Voraus!
Gruss Florian
13.08.2008 11:22:00
Thread-ID: 1001444
11 Beiträge
Arbeitsblaetter aus Datei in Arbeitsmappe kopieren
Benjamin

Hallo erstmal,
normalerweise lese ich immer nur und finde alle loesungen, diesmal hab ich einfach nichts gefunden.
Ich wuerde gerne als sehr vielen Dateien immer das komplette dritte Arbeitsbaltt kopieren und in einer neuen Arbeitsmappe untereinander einfuegen. Hab auch schon einen ansa...
16.09.2008 06:03:00
Thread-ID: 1009929
2 Beiträge
Anzeige
aus ausgewählter Datei Tabellenblätter kopieren
Katrin

Hallo, wer kann mir helfen?
Ich möchte aus einer, vorher in einem Dialogfenster ausgewählten Datei (immer unterschiedlich), den Inhalt mehrerer Tabellenblätter in eine andere Datei kopieren. Dabei sind die Bezeichnungen der Tabellenblätter in den beiden Dateien identisch. Bis zum 1. Tabelle...
17.09.2008 10:35:00
Thread-ID: 1010267
2 Beiträge
Dateinamen aus Verzeichnis nach Excel kopieren
obelix-xxl

Hallo,
nachfolgenden Makro habe ich bei der Suche hier im Forum gefunden.
Es wäre schön, wenn mir Unterstützung geboten würde.
Für meinen Anwendungsfall benötige ich in einer Afrage, die
1.) Abfrage nach dem Unterverzeichnis im dem die zu kopierenden Dateinnamen stehen (Padangab...
08.10.2008 11:35:00
Thread-ID: 1014978
3 Beiträge
Kopieren in ausgeblendete Tabelle
Wolfgang

Hallo,
noch weiterhin auf der Suche nach Lösungsmöglichkeiten, folgende Frage. - Den untenstehenden Code entdeckte ich auf der "Herber-CD"; Wie kann ich den Code umstellen, wenn die Daten aus Tabelle "Grunddaten" und "Altdaten" in die ausgeblendete Tabelle "Gesamt" kopiert werden soll. Dabe...
09.11.2008 15:48:00
Thread-ID: 1023078
3 Beiträge
Zeilen aus anderer datei kopieren
Dieter

Hi,
habe mal wieder ein schweres Problem:
ich möchte aus einer anderen Excel Date ein paar Zeilen kopieren. das Ganze soll folgendermassen funktionieren:
Quelldatei : "IMPORT.XLS
Tabellenblatt : "DATEN" oder "FPC"
Zieldatei : "EXPORT.XLS
Tabelnneblatt : "EINGABE"
so,...
01.12.2008 11:51:16
Thread-ID: 1029203
5 Beiträge
Worksheet aus geschl. in geöffn. Datei kopieren
Alexander

Hallo zusammen,
ich habe folgendes Problem. Meine VBA Kenntnisse sind leider nicht allzu gut.
Ich habe eine geöffnete Datei und eine geschlossene Datei. Nun will ich aus der geschlossenen Datei ein Worksheet/Arbeitsblatt komplett inklusive seiner Inhalte in die aktuell geöffnete Datei...
20.01.2009 13:38:00
Thread-ID: 1041825
4 Beiträge
Aus diversen Exceldateien einen Wert kopieren
Fabio

Hallo zusammen,
kann mir jemand helfen (vielleicht mit der Lösung) - oder zumindest einen Tipp nach was ich suchen könnte.
Problem:
in einem Verzeichnis liegen knapp 50 Excel-Dateien
ich will in einer neuen Datei (gesamt.xls)
in der Spalte "C" alle Werte aus jeder einzelnen...
13.02.2009 10:26:00
Thread-ID: 1050383
2 Beiträge
Tabellenblätter aus ext. Datei kopieren
Mandy

Hi,
such dringend Hilfe. Ich suche ein Makro, mit dem ich aus Excel heraus den ÖFFNEN-Dialog starten kann, eine externe Excel Tabelle auswählen kann und dann alle darin befindlichen Tabellenblätter in mein Sheet laden kann.
Muss dazu sagen, meine Tabelleblätter, die ich kopieren will, e...
20.03.2009 09:18:22
Thread-ID: 1062047
5 Beiträge
Sheet kopieren, einfügen und umbenennen
Mandy

Hi,
ich muss doch noch mal was fragen:
Ich möchte in meiner Datei von einem sheet einen Kopie machen , neu einfügen und mit Namen benennen. das mach ich so:
Sheets("Temp").Copy after:=Sheets("Temp")
ActiveSheet.Name = "Ablage"
Dazu nun zwei Fragen:
1. Das neue Sheet "Abl...
26.03.2009 22:31:22
Thread-ID: 1064423
5 Beiträge
Daten aus geöffneter Datei kopieren
Mone

Hallo Experten
ich bin wieder mal am "Durchdrehen" :-)
Vielleicht könnt ihr mir mal wieder helfen.
Ich habe eine Datei, die beim öffnen eine weitere Datei (Quelldatei) öffnet. Nun steuer ich mit einem Button ein Formular in der Quelldatei an. Auf diesem Formular ist ein weiterer But...
01.04.2009 19:43:56
Thread-ID: 1066102
8 Beiträge
Blatt in selber Mappe kopieren und umbenennen
SteffenS

Hallo Zusammen,
ich habe ein Blatt M1 und möchte dieses per Makro gern in der gleichen Mappe noch 11x kopieren und gleichzeitig umbennenn (M2.....M12).
Wie stelle ich dies am Besten an?
Danke im Voraus.
MFG
Steffen Schmerler
14.04.2009 22:30:25
Thread-ID: 1068755
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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