Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1344to1348
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
Inhaltsverzeichnis

belibige tabellen zasammenstellen

belibige tabellen zasammenstellen
15.01.2014 12:52:45
Uwe
Hallo,
ich möchte aus beliebig vielen Tabellen ab Tabelle3 immer Spalte A und B in Tabelle1 einfügen und zwar nach Schema:
Tab3 AB nach Tab1 AB
Tab4 AB nach Tab1 DE
Tab5 AB nach Tab1 GH
usw.
Es sind immer unterschiedlich viele Tabellen.
Es sind immer unterschiedlich viele Daten in AB der Tabellen.
Tabellennamen sind immer 3, 4, 5,...
Habe es mit =WENN(D1="";"";INDIREKT(D$1&"!"&$B2)) soweit im Griff
D1 ist Tabellenname
allerdings hätte ich es lieber per VBA wegen der Tabellen die nicht vorhanden sind.
Kann mir jemand helfen?
Grüße Uwe

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: belibige tabellen zasammenstellen
16.01.2014 15:01:48
Uwe
Hallo,
bisher habe ich:
Sub testcode()
Dim i As Integer, s As Integer, ws_count As Integer
ws_count = ActiveWorkbook.Worksheets.Count
For s = 1 To 20 Step 3
For i = 2 To Worksheets.Count
Worksheets(i).Range(Worksheets(i).Cells(1, 1), Worksheets(i).Cells(20, 2)).Copy
Worksheets(1).Range(Worksheets(1).Cells(1, s), Worksheets(1).Cells(20, s + 1)).PasteSpecial  _
Paste:=xlValues
Next i
Next s
End Sub
Allerding kopiere ich jetzt an jeder gewünschten Stelle in Tabelle 1 immer nur die Daten aus der letzten Tabelle.
Grüße Uwe
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige