Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
644to648
644to648
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

4 Tabellenblätter zu einen zusammenfassen

Forumthread: 4 Tabellenblätter zu einen zusammenfassen

4 Tabellenblätter zu einen zusammenfassen
02.08.2005 20:47:08
Erich
Hallo Excelprofis,
habe ein Problem,
ich möchte die daten aus 4 Tabellen in eine Tabelle zusammenfassen (Auswertung)
habe eine Beispielmappe angehängt, in der sind die 4 tabellen (Offene klasse, ...)und die Tabelle Auswertung die ist so dargestellt wie sie nach einen Markrodurlauf aussehen sollte.
Ist dies möglich per VBA? und kann mir jemand helfen?
für eure hilfe wäre ich sehr dankbar!!!
gruß
Erich
https://www.herber.de/bbs/user/25243.xls
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: 4 Tabellenblätter zu einen zusammenfassen
02.08.2005 22:15:01
Christoph
Hi Erich
solange deine Tabellen so aufgebaut sind ... Code s.u. (ohne Fehlerabfangung bei Erreichen der max Zeilenanzahl)
Gruß
Christoph 
Option Explicit
Sub JoinSheets()
Dim wksSrc As Worksheet, wksDst As Worksheet
Dim lngLR As Long
Set wksDst = Sheets("Ausdruck")
For Each wksSrc In ThisWorkbook.Worksheets
lngLR = wksDst.Cells(wksDst.Rows.Count, 1).End(xlUp).Row
If wksSrc.Name <> wksDst.Name Then
wksDst.Cells(lngLR + 1, 1) = wksSrc.Name
wksDst.Cells(lngLR + 1, 1).Font.Size = 24
wksSrc.UsedRange.Copy wksDst.Cells(lngLR + 2, 1)
End If
Next
Set wksDst = Nothing
End Sub
Anzeige
Danke O.T.
02.08.2005 22:43:45
Erich
danke
gruß
erich
;

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