Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
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
1536to1540
1536to1540
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

X Tabellen inhalte in die erste Tabelle einlesen

Forumthread: X Tabellen inhalte in die erste Tabelle einlesen

X Tabellen inhalte in die erste Tabelle einlesen
02.02.2017 21:50:45
Claus
Hallo
und Guten Abend zusammen.
Ich versuche schon ewig x Tabellen deren Inhalt in eine einzige Tabelle zu kopieren.
Das funktioniert auch, aber es ist mir ehrlich gesagt zu aufwendig,das jedes mal anzupassen und zu erweitern, da sich die Tabellen immer ein wenig ändern können.
Ich habe hier ein Auszug des VS Script um es Bildlich darzustellen.
Sub Test02()
Dim Bereich, Berich1 As Range
Set Bereich = Worksheets("3").Range("A5:K107")
Bereich.Copy Destination:=Worksheets("K1").Range("A3")
Set Bereich = Worksheets("4").Range("A5:K107")
Bereich.Copy Destination:=Worksheets("K1").Range("A106")
Set Bereich = Worksheets("5").Range("A5:K107")
Bereich.Copy Destination:=Worksheets("K1").Range("A206")
Set Bereich = Worksheets("6").Range("A5:K107")
das sind über 350 Tabellen und ich komme einfach nicht dahinter wie ich es mit ein paar Zeilen vereinfachen kann.
Dieser Wert ("A5:K107") kann sich ändern.
Ich hoffe das ein "Fuchs" mir hier mit ein paar Tips oder ein kleines Script helfen kann.
Schon mal Danke an alle.
mfg
Claus
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nur geraten
02.02.2017 22:01:16
Fennek
Hallo,
da viele m.E. notwendige Infos fehlen:

sub Geraten()
lr = 3
for i = 3 to sheets.count
sheets(i).Range("A5:K107").copy sheets("K1").cells(lr, "A")
lr = sheets("K1").cells(rows.count, "A").end(xlup).row
next i
end sub
mfg
AW: nur geraten
02.02.2017 22:20:48
Anton
Hallo Claus,
hier auch noch eine Lösung:
Sub InEinBlattKopieren()
Dim wksBlatt As Worksheet
Dim wksZiel As Worksheet
Dim wkbMappe As Workbook
Dim lngZMax As Long
Set wkbMappe = ThisWorkbook
Set wksZiel = wkbMappe.Worksheets("K1")
lngZMax = 3
With wksZiel
For Each wksBlatt In wkbMappe.Worksheets
If Not wksBlatt.Name = "K1" Then
wksBlatt.Range("A5:K107").Copy .Range("A" & lngZMax)
lngZMax = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
End If
Next wksBlatt
End With
End Sub
VG Anton
Anzeige
AW: nur geraten
02.02.2017 22:22:54
Claus
Hallo
Okay, kann ich verstehen, ich habe eine Beispiel Datei angefügt, ev. Hilft das.
In der "Ersten" Tabelle ( K1 ) sollen die Werte von den Tabellen 3 bix x per VB automatisch in K1 untereinander eingetragen werden.
https://www.herber.de/bbs/user/111117.xlsx
Anzeige
AW: nur geraten
02.02.2017 22:36:45
Anton
Nochmal angepasst. Aber eigentlich haargenau das gleiceh wie von Fennek. 
Sub InEinBlattKopieren()
Dim i As Long
Dim wksZiel As Worksheet
Dim wkbMappe As Workbook
Dim lngZMax As Long
Set wkbMappe = ThisWorkbook
Set wksZiel = wkbMappe.Worksheets("K1")
lngZMax = 3
With wksZiel
For i = 3 To wkbMappe.Worksheets.Count
Worksheets(i).Range("A5:K107").Copy .Range("A" & lngZMax)
lngZMax = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
Next i
End With
End Sub

Anzeige
AW: nur geraten
02.02.2017 23:03:59
Claus
Hallo an alle Unterstützer.
Ups, vielen Dank
habe das Problem, Danke eurer Hilfe lösen können.
Grins, ich freu mich das Ihr mir Helfen konntet.
Danke an alle.
:- :-)
Mfg
Claus
Anzeige
AW: nur geraten
02.02.2017 23:06:25
Anton
Jetzt habe ich grad noch was für Deine Beispielmappe vorbereitet :)
Sub InEinBlattKopieren()
Dim wksBlatt As Worksheet
Dim wksZiel As Worksheet
Dim wkbMappe As Workbook
Dim lngZMaxZiel As Long
Dim lngZMax As Long
Set wkbMappe = ThisWorkbook
Set wksZiel = wkbMappe.Worksheets("K1")
lngZMaxZiel = 2
For Each wksBlatt In wkbMappe.Worksheets
If Not wksBlatt.Name = "K1" Then
With wksBlatt
lngZMax = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range("A2:A" & lngZMax).Copy wksZiel.Range("A" & lngZMaxZiel)
.Range("B2:B" & lngZMax).Copy wksZiel.Range("B" & lngZMaxZiel)
.Range("C2:C" & lngZMax).Copy wksZiel.Range("C" & lngZMaxZiel)
.Range("D2:D" & lngZMax).Copy wksZiel.Range("D" & lngZMaxZiel)
lngZMaxZiel = wksZiel.Cells(wksZiel.Rows.Count, 1).End(xlUp).Row + 1
End With
End If
Next wksBlatt
End Sub

Anzeige
AW: nur geraten
03.02.2017 19:47:40
Claus
Hallo an alle Unterstützer.
Ups, vielen Dank
habe das Problem, Danke eurer Hilfe lösen können.
Grins, ich freu mich das Ihr mir Helfen konntet.
Danke an alle.
:- :-)
Mfg
Claus
AW: noch einmal geraten
03.02.2017 10:07:53
Fennek
Hallo,
nach Ansicht der Tabelle, aber ohne Test:

sub Geraten()
lr = 3
'for i = 3 to sheets.count
for each WS in thisworkbook.Sheets
if WS.Name >= 3 then
Ws.Range("A5:K107").copy sheets("K1").cells(lr, "A")
lr = WS.cells(rows.count, "A").end(xlup).row + 1
end if
next i
end sub
Es soll eh nur Hilfe zur Selbsthilfe sein.
mfg
Anzeige
;

Forumthreads zu verwandten Themen

Zellinhalt aus anderer Tabelle übernehmen
Marc

Hallo zusammen,
habe ein Problem mit dem ich einfach nicht weiterkomme (wahrscheinlich für Euch kein Problem...!)
Ich möchte aus einer Tabelle Zellinhalte in eine andere Tabelle im gleichen Arbeitsblatt übernehmen, d.h. aus Tabelle 2 soll der Zellinhalt aus D61 in Tabelle 1 in H60 über...
21.08.2008 22:08:00
Thread-ID: 1003658
3 Beiträge
Anzeige
Kombinationsfelder mit Daten aus anderer Tabelle
Bernhard

Hallo liebe Freunde,
ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...
25.08.2008 15:48:18
Thread-ID: 1004492
8 Beiträge
Werte in anderes Tabellenblatt übertragen
Bibo

Hallo liebe EXCEL-Freunde,
ich habe in der Online-Suche leider kein Makro gefunden, das ich mit meinen minimalen VBA-Kenntnissen hätte selbständig auf meine Problematik anpassen können und bitte Euch deshalb um Eure Hilfe.
In das Tabellenblatt "Kommission" der Beispielmappe, das als Har...
31.08.2008 17:54:00
Thread-ID: 1006231
4 Beiträge
Anzeige
Zeile einfügen und dann die Formeln eintragen?
Selma

Hallo Leute,
wie kann ich beim Einfügen einer neue Zeile per VBA die Formel in die Zellen der eingefügte Zeile eintragen?
Sub Insert_Task() Rows(ActiveCell.Row + 1).Insert Shift:=xlUp Rows(ActiveCell.Row + 1).Select End Sub
Beispiel für die Formeln der aktive Zeile 40:
D40 =...
16.09.2008 22:51:11
Thread-ID: 1010207
6 Beiträge
Anzeige
Wechselbild in der Tabelle
WalterK

Hallo,
die angehängte Tabelle habe ich in der Recherche gefunden, mittels VBA wird ein Wechselbild gesteuert.
2 Fragen hätte ich dazu:
1.) Ich möchte 2 andere Bilder einfügen, wie kann ich diese dann mit dem Makro ansprechen, muss ich den Bildern Namen geben ....?
2.) Das Makro...
18.09.2008 19:50:12
Thread-ID: 1010845
9 Beiträge
Anzeige
Datensätze in Tabellenblätter schreiben
TomTom


Hi,
ich habe eine Excelmappe mit 4 Bättern. Auf dem ersten Blatt (Spalte A) stehen die Rohdaten drin. Die sehen in etwar so aus:
START;flag,2,23,,,,34,45,33,45,,,,,,,56
ATTEMPT;flag,1,45,,12,,34,,,45,,,,,7,,56
START;flag,2,23,,,,34,45,33,45,,,,,,,56
STOP;flag,3,45,,5,,,...
30.09.2008 13:43:00
Thread-ID: 1013375
3 Beiträge
Daten aus Tabelle in eine andere Tabelle
Cornelia

Ich habe 2 Tabellen mit dem gleichen Aufbau.
Tabelle 1 soll die Daten eingetragen werden. Von mehreren Leuten. Deshalb eben seperat.
Tabelle 2 soll die Daten aus Tabelle 1 übernehmen. Jeweils ein Blatt mit identischen Blattnamen aus Tabelle 1. Bisherige Lösung von mir in jede Zelle rein...
01.10.2008 08:11:00
Thread-ID: 1013510
6 Beiträge
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
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
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
Zelladresse in anderer Tabelle finden
Frank

Hallo Spezi's
zu folgendem Problem hab ich im Archiv nix passendes gefunden. Vielleicht kann ja jemand helfen.
In Tabelle1 finde ich per Makro die erste leere Zelle in Spalte C. Die Spalte C kann unterschiedlich gefüllt sein, darum kann die erste leere Zelle unterschiedliche Adressen ha...
11.11.2008 10:47:00
Thread-ID: 1023458
5 Beiträge
Zelleninhalt in andere Tabelle übertragen
Michael

Liebe Leute,
ich bin eben auf dieses tolle Forum gestossen und muss gleich mal mit einer Frage nerven. Mit der Suche habe ich leider keine passenden Antwort gefunden.
Ich habe folgendes Problem. Ich verarbeite mit Excel Informationen von mehreren tausend Mitarbeitern meines Arbeitgeber...
17.11.2008 16:29:54
Thread-ID: 1025295
12 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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