Daten zusammenfassen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Daten zusammenfassen

30.06.2014 09:03:57

MCO

fast

30.06.2014 12:21:06

Michael

AW: fast

30.06.2014 13:15:41

MCO

Danke und kleine Rükfrage

01.07.2014 10:46:57

Michael

AW: Danke und kleine Rükfrage

01.07.2014 11:33:58

MCO

kleiner Fehler!

01.07.2014 14:20:34

Michael

AW: kleiner Fehler!

02.07.2014 13:31:19

MCO

Beispieldatei zum Fehler

03.07.2014 06:28:23

Michael

AW: Beispieldatei zum Fehler

03.07.2014 08:43:30

MCO

nicht zu 100%

04.07.2014 07:16:33

Michael

Sub Datum_holen() lz = Range("A" & Rows.Count).End(xlUp).Row + 1 For sh = 2 To Sheets.Count With Sheets(sh) For Each dat In .Range("a2:a999").SpecialCells(xlConstants) Set gef = Range("A:A").Find(dat, , , xlWhole) If gef Is Nothing Then lz = Range("A" & Rows.Count).End(xlUp).Row + 1 Range("A" & lz) = dat Range("B" & lz) = .Name End If Next dat End With Next sh Range("A2:G" & lz).Sort Range("a2") End Sub

Hallo!
Die Blattnamen hatte ich eigentlich nur zur Protokollierung reingeschrieben, damit man weiß, woher die Daten kommen.
Wenn du die in Zeile 1 analog in den Spalten zum Blattindex haben willst, sieht es so aus:

Sub Datum_holen()
lz = Range("A" & Rows.Count).End(xlUp).Row + 1
For sh = 2 To Sheets.Count
With Sheets(sh)
        Cells(1, sh) = .Name
For Each dat In .Range("a2:a999").SpecialCells(xlConstants)
Set gef = Range("A:A").Find(dat, , , xlWhole)
If gef Is Nothing Then
lz = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & lz) = dat
End If
Next dat
End With
Next sh
Range("B2").FormulaLocal = "=WENNFEHLER(SVERWEIS($A2;INDIREKT(""'""&B$1&""'!A1:B99"");2;0);"""") _
Range("B2").AutoFill Range("B2:B" & lz - 1)
lsp = Cells(1, Columns.Count).End(xlToLeft).Column
Range("B2:B" & lz - 1).AutoFill Range("B2", Cells(lz - 1, lsp))
Range("A2:G" & lz).Sort Range("a2")
End Sub

Außerdem hab ich die Formel aus dem ersten Beitrag noch automatisch eingefügt und auf den gesamten Bereich ausgeweitet.
Das kann allerdings zu längeren Rechenzeiten führen, wenn die Tabelle wächst.
Dann mußt du auf Dauer die Formeln durch die Werte ersetzen und nur die neuen Einträge über die Formel berechnen lassen.
Aber bis es so weit ist, bis du selbst in VBA fit genug:-)
Gruß, MCO

Guten Morgen!
Der Fehler ist, das in dem Blatt einfach keine Daten drin stehen.
"For Each dat In .Range("a2:a999").SpecialCells(xlConstants)" wählt diese (nicht vorhandenen) Daten und läuft damit auf error.
Das stört aber eigentlich den logischen Ablauf nicht, daher kann man den Fehler mit folgendem Zusatz ignorieren / überspringen:

On Error Resume Next

Der Anfang des Codes sollte also jetzt so aussehen:

Sub Datum_holen()
lz = Range("A" & Rows.Count).End(xlUp).Row + 1
For sh = 2 To Sheets.Count
On Error Resume Next
With Sheets(sh)

Außerdem zählen wir ja die Sheets hoch (von 2 bis Anzahl Sheets)
Das bedeutet aber auch, dass die Zusammenfassung auf jeden Fall an erster Stelle zu stehen hat!
Du kannst den Reiter einfach rüberschieben.
Wenn das anders sein soll, muß man das im Code anpassen.
Gruß, MCO

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread