Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
500to504
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
500to504
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelleninhalte zusammenfügen

Tabelleninhalte zusammenfügen
13.10.2004 19:00:00
Astrid
Hi,
ich habe eine Datei, in der z.B. zwei Tabellenblätter mit den Namen Herr Maier und Frau Schmid stehen.
In beiden Tabellenblätter stehen die gleichen Spaltenüberschriften mit unterschiedlichen Dateninhalten. Wie zB. hier angegeben.
JobNr. Bezeichnung
789 teamassitentin
987 Chefsekr
583 Teamchef
Oder siehe auch Beispiel in Exceldatei https://www.herber.de/bbs/user/12077.xls
So, jetzt möchte ich einfach ein drittes Tabellenblatt erstellen, in dem alle Datensätze zusammengefaßt bzw. einfach nur untereinander aufgelistet werden. Eine Art Übersicht. Es brauch auch rein gar nichts berechnet zu werden.
Hat jemand eine Lösung ohne das man mit copy paste arbeitet.
Freue mich über jeden Tipp.
Herzlichen Dank
Astrid

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

Betreff
Datum
Anwender
Anzeige
AW: Tabelleninhalte zusammenfügen
Boris
Hi Astrid,
quick an dirty - mit Copy und Paste - aber mit VBA:
Option Explicit

Sub rueber_damit()
Dim ws As Worksheet
With Worksheets("Übersicht Maier Schmid")
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Übersicht Maier Schmid" Then
ws.Range("A2:B" & ws.Cells(Rows.Count, 2).End(xlUp).Row).Copy .Range("A" & .Cells(Rows.Count, 2).End(xlUp).Row + 1)
End If
Next ws
End With
End Sub

Grüße Boris
AW: Tabelleninhalte zusammenfügen
13.10.2004 19:29:58
Astrid
Hi Boris,
herzlichen Dank. Hat funktioniert!
Schönen Abend noch
Astrid
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige