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

Mehrere Tabellenblätter

Mehrere Tabellenblätter
24.07.2017 11:07:02
Claudio
Ich habe eine Mappe mit mehreren Tabellenblättern diese bestehen immer aus zwei SPalten mit unterschiedlicher Länge. WIe kann ich den Inhalt aller Tabellenblätter spalte a+B zum schluss zusammen in ein Tabellenblatt ausgeben?

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

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Tabellenblätter
24.07.2017 11:11:47
Oberschlumpf
in dem du uns zuerst mal eine Bsp-Datei per Upload zur Verfügung stellst.
mit VBA
24.07.2017 11:21:23
Tino
Hallo,
als Beispiel könnte es so gehen.
Sub test()
Dim oWS As Worksheet, oWSNeu As Worksheet
Dim rngQ As Range
Dim nRow&
With ThisWorkbook
Set oWSNeu = .Worksheets.Add(After:=.Worksheets(.Worksheets.Count))
For Each oWS In ThisWorkbook.Worksheets
If oWS.Name  oWSNeu.Name Then
With oWS
nRow = .Cells(.Rows.Count, 1).End(xlUp).Row
If nRow  1 Or (.Cells(1, 1).Value  "" Or .Cells(1, 2).Value  "") Then
nRow = nRow + 1
End If
rngQ.Copy .Cells(nRow, 1)
End With
End If
Next
End With
End Sub
Gruß Tino
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige