Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1332to1336
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
1332to1336
1332to1336
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inhalt von Tabellenblättern in neues Blatt kopiere

Inhalt von Tabellenblättern in neues Blatt kopiere
15.10.2013 13:15:35
Tabellenblättern
Hallo,
ich habe ein größeres Problem. Ich muss täglich eien Auswertung erstellen. Dazu sollen alle Zeilen aus allen Tabellenblättern einer Exceldatei, die in der Spalte D einen bestimmten Wert stehen haben in einem einzigen Tabellenblatt einer anderen Datei zusammenkopiert werden. Die Tabellenblätter der Quelldatei sind mit dem jeweiligen Tagesdatum benannt. Dieses Datum soll beim Zusammenkopieren der entsprechenden Zeile zugefügt werden. Die Quelldatei ist freigegeben und liegt auf einem Netzlaufwerk.
Da die Daten in der Quelldatei auch nachträglich verändert werden sollte das Ergebnis in der Zieldatei be jedem aktualisieren komplett überschrieben werden.
Ich bin für jede Hilfe dankbar...
mfg
Oliver W
Beispiel der Quelldatei https://www.herber.de/bbs/user/87657.xlsx
Beispiel der Zieldatei https://www.herber.de/bbs/user/87658.xlsx

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhalt von Tabellenblättern in neues Blatt kopiere
16.10.2013 12:26:43
Tabellenblättern
Hallo
so z.B.
- Beide Dateien sind geöffnet
- Makro muss in die Zieldatei

Sub TT()
On Error GoTo Fehler
Dim WB1, WB2, TB1, TB2
Dim LR1&, LR2&, Rng
Dim CC%, Zelle
Set WB1 = Workbooks("Datei1.xlsx")
Set WB2 = ThisWorkbook
Application.ScreenUpdating = False
Set TB2 = WB2.Sheets("Zusammenfassung Test1")
LR2 = TB2.Cells(Rows.Count, 1).End(xlUp).Row + 1
TB2.Rows("2:" & LR2).Delete
LR2 = 2
For Each TB1 In WB1.Worksheets
LR1 = TB1.Cells(Rows.Count, 1).End(xlUp).Row ' Gesamtsumme bleibt unberücksichtigt
CC = TB1.Cells.SpecialCells(xlCellTypeLastCell).Column 'Letzte Spalte des gesamten  _
Blattes
On Error Resume Next ' notwendig, wenn keine Daten
Set Rng = TB1.Range("D8:D" & LR1).SpecialCells(xlCellTypeConstants, 3)
For Each Zelle In Rng
If Err.Number  1004 Then
TB2.Range("A" & LR2) = TB1.Name
TB1.Range(TB1.Cells(Zelle.Row, 1), TB1.Cells(Zelle.Row, CC)).Copy _
TB2.Range("B" & LR2)
LR2 = LR2 + 1
Else ' wenn keine Daten vorhanden
Err.Clear
On Error GoTo Fehler
End If
Next
Next
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub

Gruß UweD

Anzeige
AW: Inhalt von Tabellenblättern in neues Blatt kopiere
18.10.2013 10:46:30
Tabellenblättern
Hallo Uwe,
danke für die Antwort. Bin leider erst heute dazu gekommen es zu probieren. Leider kommt beim Ausführen "Fehler 9 Index außerhalb des gütigen Bereichs"
mfg Oliver

300 Forumthreads zu ähnlichen Themen

Zeile mit Werten aus anderer Tabelle vergleichen
onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
29.08.2008 10:37:00
Thread-ID: 1005722
3 Beiträge
Anzeige
Zelle in andere Tabelle mit Button kopieren
Benny

Hallo Zusammen!
Kann mir jemand weiterhelfen? Wie kann ich die unten stehende Formel entsprechend anpassen?
Private Sub CommandButton2_Click() Dim wks As Worksheet Set wks = Worksheets("Änderungsanträge") wks.Range("C3") = wks.Range("D3") End Sub
Danke im Voraus!
Benny
07.10.2008 10:06:48
Thread-ID: 1014629
4 Beiträge
Zellen von einer in die andere Tabelle kopieren
einer

Guten Morgen!
Ich habe 2 Tabellen. Eine Quelltabelle und eine ZielTabelle. Ich möchte nun die Daten aus der Quelldatei in die Zieldatei einfügen (aber Werte ohn Formatierung einfügen d.h. PasteSpecial). Irgendwie will das nicht gehen. :(
Dim wks As Excel.Worksheet
Dim Quell As Excel...
16.10.2008 10:53:15
Thread-ID: 1016793
5 Beiträge
Anzeige
Objekte in neues Tabellenblatt kopieren
Bertram

Hallo zusammen,
ich kopiere ein komplettes Tabellenblatt per VBA in ein (temporäres) neues Tabellenblatt ohne den Code des TBs zu kopieren, verschiebe dieses und speichere es als neue Datei ab. Soweit so gut. Allerdings habe ich auch 4 Kästchen (OK1 bis OK4) auf meinem Tabellenblatt, die ic...
27.01.2009 15:22:00
Thread-ID: 1044271
4 Beiträge
Mittelwerte in ein neues Blatt kopieren per VBA
Drusilla

Hallo liebe Profis
Da mir letztes Mal so gut geholfen wurde, würde ich euch gerne nochmals fragen. Ich möchte per Makro folgendes erreichen:
-neues Blatt generieren mit dem Namen „Uebersicht“
-dort Mittelwerte (sind schon berechnet, schreibe das nur, damit ihr wisst, dass in der...
06.05.2009 09:51:09
Thread-ID: 1073265
2 Beiträge
Formel komplett aus anderem Blatt übernehmen
martin

Hallo.
In verschiedenen Arbeitsbättern befinden sich exakt die selben Rechnungen, jeweils mit unterschiedlichen Werten.
In einem Master-Blatt möchte ich gerne die Zeilen und Spaltenbeschriftungen, sowie die zu verwenden formeln definieren.
Könnt Ihr mir Tipps geben, wo ich dazu was...
18.06.2009 14:56:18
Thread-ID: 1082618
2 Beiträge
Zeilen in anderes Arbeitsblatt kopieren
Alex

Hallo @ all
ich habe folgendes Problem:
Tabelle 1 enthält eine Vielzahl von Daten. Diese will ich nun filtern und die jeweilige Zeile, die in N "TGA" enthält in Tabelle 2 kopieren.
Ich weiß, dass das Ganze mit wenn(summe... funktioniert, aber vermute, man muss hier feste Zahlen ange...
06.07.2009 11:29:58
Thread-ID: 1086570
7 Beiträge
Daten aus Tabellenblättern in ein Blatt kopieren
Jens

Hallo zusammen,
ich habe folgendes Problem:
Ich habe ca. 20 Tabellenblätter.
Auf allen Tabellenblättern sind drei Zellen (A4, A6, S41), deren Werte ich gerne auf Tabellenblatt 1 (Tabelle1) kopiert hätte.
Es sollen nur Werte, keine Formate kopiert werden [.PasteSpecial Paste:=xlP...
15.07.2009 12:25:07
Thread-ID: 1088795
5 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
2
6
3
4
15
3
1
1
6
4
1
9
5
2
6
4
2
7
2
6
10
5
2
1
7