Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1276to1280
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
1276to1280
1276to1280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmte Zellen kopieren und in neue Datei kopier

Bestimmte Zellen kopieren und in neue Datei kopier
Tobias
Hallo,
folgende Aufgabe stellt sich mir:
Uns wurden Angebote (immer im gleichen Format und gleich aufgebaut, d.h. die Zellen sind immer identisch mit den Daten befüllt) übersandt. Diese befinden sich z.B. im Ordner: Desktop\angebote
Nun sollen diese Dateien nacheinander geöffnet werden und z.B. die Zellen A1, B2 kopiert und in die Datei datensammlung.xls in eine Zeile geschrieben werden. Nach Kopieren aller definierten Zelle soll das Makro die nächste Datei im Angebotsordner öffnen und die gleichen Zellen kopieren. Wobei die neuen Daten natürlich in dienächsten Zeile der Datensammlung.xls geschrieben werden sollen. Dies soll das Makro so lange tun, bis alle Dateien im Angebotsordner durchlaufen sind.
Mittels VBA-Rekorder konnte ich zwar erreichen, dass ich die Zellen kopieren lassen. Problem ist nur, dass ich beim Makroaufzeichnen die jeweiligen Dateien manuell immer erst einmal anklicken muss, damit er für die Folgezeit dann weiß, welche Datei er öffnen muss. Zweites Problem war, dass ich dem Makro nicht sagen kann, dass er die neuen kopierten Daten in die nächstfolgende Zeile schreiben soll.
Hat jemand eine solche Aufgabenstellung schon einmal gelöst und könnte mir ein entsprechendes Skript hier online stellen? Oder wie müßte der Code evtl. lauten?
Vielen Dank für eure Mühe und Hilfe!
Tobi

AW: Bestimmte Zellen kopieren und in neue Datei kopier
19.09.2012 13:17:35
UweD
Hallo
so z.B.
in deine Datei Datensammlung einbauen
Sub alle_Dateien_Verzeichnis() '
Dim TB1, TB2, LR&, Datei$, Dateiname$, Pfad$, SP%
Set TB1 = ThisWorkbook.ActiveSheet
SP = 1 'einfügen ab Spalte A
Pfad = "C:\temp\angebote\" ' anpassen
Datei = Dir(Pfad, vbArchive)
Do While Datei  ""
If Datei  "." And Datei  ".." Then
Dateiname = Pfad & Datei
Workbooks.Open Filename:=Dateiname
Set TB2 = Workbooks(Datei).Sheets(1)
LR = TB1.Cells(Rows.Count, SP).End(xlUp).Row + 1
TB1.Cells(LR, SP) = TB2.Range("A1")
TB1.Cells(LR, SP + 1) = TB2.Range("B2")
'weitere?
Workbooks(Datei).Close SaveChanges:=False
'evtl noch löschen
'Kill Dateiname
End If
Datei = Dir
Loop
End Sub
Gruß UweD

Anzeige
AW: Bestimmte Zellen kopieren und in neue Datei kopier
19.09.2012 13:30:47
Tobias
Hallo,
funktioniert soweit schon mal ganz gut. Jedoch schreibt er die Daten nicht in die datensammlung.xls Datei, sondern in die Personal.xlb Datei rein... Habe ich beim Anpassen des Pfadordners etwas falsch gemacht?
Gruß
Tobi
ub alle_Dateien_Verzeichnis() '
Dim TB1, TB2, LR&, Datei$, Dateiname$, Pfad$, SP%
Set TB1 = ThisWorkbook.ActiveSheet
SP = 1 'einfügen ab Spalte A
Pfad = "C:\Documents and Settings\z563164\Desktop\sonstiges\" ' anpassen
Datei = dir(Pfad, vbArchive)
Do While Datei ""
If Datei "." And Datei ".." Then
Dateiname = Pfad & Datei
Workbooks.Open Filename:=Dateiname
Set TB2 = Workbooks(Datei).Sheets(1)
LR = TB1.Cells(Rows.Count, SP).End(xlUp).Row + 1
TB1.Cells(LR, SP) = TB2.Range("A1")
TB1.Cells(LR, SP + 1) = TB2.Range("B2")
'weitere?
Workbooks(Datei).Close SaveChanges:=False
'evtl noch löschen
'Kill Dateiname
End If
Datei = dir
Loop
End Sub

Anzeige
AW: Bestimmte Zellen kopieren und in neue Datei kopier
19.09.2012 14:14:53
UweD
Hi
ich hatte geschrieben: in deine Datei Datensammlung einbauen
du hast das sicherlich in die Personal.xlb eingebaut.
Durch Set TB1 = ThisWorkbook.ActiveSheet wird das dann auch dort eingefügt.
Verschieb das makro in die Datensammlung.xls oder die o.g. Zeile muss angepasst werden.
Da ist aber dann noch die Frage: Ist die bereits geöffnet, oder soll das Makro Diese öffne und schließen.
Gruß UweD

AW: Bestimmte Zellen kopieren und in neue Datei kopier
20.09.2012 09:34:52
Tobias
Hallo Uwe,
danke schonmal für deine Antwort. Um vielleicht das Problem klar verständlich zu machen, habe ich einmal 2 Dateien mit angefügt. In die Datei "alle.xls" sollen alle Angebotsdaten gesammelt werden - die Datei "angebotsübersicht_geändert.xls" bekommen wir von den Lieferanten ausgefüllt zurückgeschickt.
Nun möchte ich gerne das die gesammelten Daten in der Datei alle.xls ab der Zelle A2 eingetragen werden, wobei z.B. das Feld Supplier die Daten enthalten soll aus der Datei "angebotsübersicht_geändert.xls" Zelle G15 (Lieferant1 habe ich mal eingetragen).
Eine Schwierigkeit kommt noch hinzu: Die Datei "angebotsübersicht_geändert.xls" verfügt noch über weitere Reiter (z.Bsp. mit dem Namen "Material"), wo auch noch Daten kopiert in die "alle.xls" kopiert werden müssen. Wie muss das noch in den Code gebastelt werden?
Grüße
Tobi
https://www.herber.de/bbs/user/81900.xls

Die Datei https://www.herber.de/bbs/user/81901.xlsx wurde aus Datenschutzgründen gelöscht


Anzeige
AW: Bestimmte Zellen kopieren und in neue Datei kopier
20.09.2012 12:56:46
UweD
Hallo
ich hab das mal angepasst:
- weitere Tabellenblätter möglich (müssen aber auch vorhanden sein)
- fixe Tabellennamen
- Fehlerbehandlung
- Nachfrage bei öffnen der Dateien ob "Verknüpfungen aktualisiert werden sollen" unterbleibt
- Einfügen Fix auf Start ab Spalte A bezogen
Sub alle_Dateien_Verzeichnis() '
On Error GoTo Fehler
Dim TB1, TB2, TB3, LR&, Datei$, Dateiname$, Pfad$
Set TB1 = ThisWorkbook.Sheets("Tabelle1") '**** Fix eingestellt
Pfad = "C:\Documents and Settings\z563164\Desktop\Datenneu\" ' anpassen
Pfad = "C:\Temp\angebote\" ' anpassen
Datei = Dir(Pfad, vbArchive)
Application.ScreenUpdating = False
Do While Datei  ""
If Datei  "." And Datei  ".." And Datei  ThisWorkbook.Name Then
Dateiname = Pfad & Datei
' Die Abfrage Verknüpfungen etc wird nicht angezeigt
Application.DisplayAlerts = False '****
Workbooks.Open Filename:=Dateiname
Set TB2 = Workbooks(Datei).Sheets("Tabelle1") '**** Fix eingestellt
Set TB3 = Workbooks(Datei).Sheets("Material") '**** Fix eingestellt
ThisWorkbook.Activate
Application.DisplayAlerts = True '****
LR = TB1.Cells(Rows.Count, 1).End(xlUp).Row + 1
TB1.Cells(LR, 1) = TB2.Range("G15") 'Ziel Spalte1= A
TB1.Cells(LR, 2) = TB2.Range("B2")  'Ziel Spalte2 =B
'weitere?
'aus dem 2. Blatt
TB1.Cells(LR, 3) = TB3.Range("B2")  'in Spalte 3=C
'weitere?
Workbooks(Datei).Close SaveChanges:=False
'evtl noch löschen
'Kill Dateiname
End If
Datei = Dir
Loop
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Gruß UweD

Anzeige
!! meinen 'Test Pfad' noch rausnehmen
20.09.2012 13:00:00
UweD

311 Forumthreads zu ähnlichen 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 kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
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
Anzeige
Texte aus verschiedenen Registerblättern kopieren
zehetner

Nochmal meine Bitte um Hilfe - ich komm nicht weiter:
Wie kann ich - automatisiert, da viele Registerblätter - die Textinhalte einer bestimmten Zelle, die in jedem Registerblatt gleich ist - in eine neue Tabelle untereinander kopieren.
Vielen Dank nochmals
22.09.2008 05:54:07
Thread-ID: 1011369
2 Beiträge
Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
4 Beiträge
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 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
Daten aus Sheet suchen und in Zelle schreiben
Robert

Hallo Excel Profis!
Ich stehe mal wieder als VBA Laie vor einem riesen Berg.
Ich habe auf "Sheet 2" eine Liste mit Quartalsdaten.
Ich suche eine Möglichkeit, wie Excel nun in diesem Sheet nach den jeweils passenden Daten eines
Quartals sucht und diese dann auf "Sheet 1" überträg...
20.11.2008 12:36:00
Thread-ID: 1026379
9 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
8
3
2
4
1
1
3
1
2
8
2
3
15
22
5
7
6
8
2
1
3
1
4
2
5