Anzeige
Archiv - Navigation
1168to1172
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

Sammelliste aus verschiedenen Tabellen

Sammelliste aus verschiedenen Tabellen
Jürgen
Hallo zusammen,
ich habe eine Frage. Ich habe eine Excel-Datei mit einer Vielzahl von Tabellen in denen es Betriebsmittel gibt, die jährlich geprüft werden müssen. So gibt es z.B. eine Tabelle "Kraft" und eine Tabelle "Mech.Hilfsmittel" uvm.
Hinter jedem der dort aufgeführten Betriebsmittel gibt es zwei Spalten für "Momentan im Einsatz" und "Momentan ausser Betrieb". Je nachdem ob das Betriebsmittel also im Einsatz ist, wird in der Spalte dann ein "x" eingetragen.
Das sieht also so aus:
|||||Spalte A||||||||||||Spalte B ||||||||||Spalte C|||||||||||||||Spalte D
Betriebsmittel||||||M.im Einsatz||||| M.n.im Einsatz|||||||||N.Prüfdatum
Schieblehre|||||||||||||||x|||||||||||||||||||||||||||||||||||||||||||24.07.2010||||
Spannzange||||||||||||||||||||||||||||||||||||||x||||||||||||||||||||||||||-|||||||||||
Höhenreißer|||||||||||||||||||||||||||||||||||||||x||||||||||||||||||||||||||-|||||||||||
Messuhr|||||||||||||||||||x||||||||||||||||||||||||||||||||||||||||||||12.08.2010||||
Und so gibt es jetzt wie gesagt mehrere Tabellen mit unterschiedlichen Betriebsmittelarten. Mein Ziel ist es jetzt eine Tabelle zu haben in der ALLE Betriebsmittel aus diesen ganzen Betriebsmittelarten-Tabellen aufgeführt sind..........ABER..........nur die, die momentan auch im Einsatz sind.
Die Übersichtstabelle würde jetzt also mit obigem Beispiel dann so aussehen sollen:
|||||Spalte A||||||||||||Spalte B ||||||||||Spalte C|||||||||||||||Spalte D
Betriebsmittel||||||M.im Einsatz||||| M.n.im Einsatz|||||||||N.Prüfdatum
Schieblehre|||||||||||||||x|||||||||||||||||||||||||||||||||||||||||||24.07.2010||||
Messuhr|||||||||||||||||||x||||||||||||||||||||||||||||||||||||||||||||12.08.2010||||
Spalte B und C könnten eventuell auch in dieser Übersicht weggelassen werden.
Gibt es da eine Möglichkeit. Ich wär euch superdankbar.
Viele Grüße
Jürgen

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Sammelliste aus verschiedenen Tabellen
29.07.2010 12:06:07
Rudi
Hallo,
Hallo,
die Betriebsmittel müssen über alle Tab. einmalig sein. Liste in Tab1
Ungetestet:
Sub Liste()
Dim i As Integer, oBM As Object, rngC As Range
Set oBM = CreateObject("Scripting.Dictionary")
'Daten lesen
For i = 2 To Worksheets.Count
With Worksheets(i)
For Each rngC In .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp))
If rngC.Offset(, 1) = "x" Then oBM(rngC.Value) = rngC.Offset(, 3)
Next rngC
End With
Next i
'Daten in Blatt1 eintragen
With Sheets(1)
.Range("A2:D1000").ClearContents
.Cells(2, 1).Resize(oBM.Count) = WorksheetFunction.Transpose(oBM.keys)
.Cells(2, 2).Resize(oBM.Count) = WorksheetFunction.Transpose(oBM.items)
End With
End Sub

Gruß
Rudi
Anzeige
AW: Sammelliste aus verschiedenen Tabellen
29.07.2010 12:07:00
Rudi
Hallo,
die Betriebsmittel müssen über alle Tab. einmalig sein. Liste in Tab1
Ungetestet:
Sub Liste()
Dim i As Integer, oBM As Object, rngC As Range
Set oBM = CreateObject("Scripting.Dictionary")
'Daten lesen
For i = 2 To Worksheets.Count
With Worksheets(i)
For Each rngC In .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp))
If rngC.Offset(, 1) = "x" Then oBM(rngC.Value) = rngC.Offset(, 3)
Next rngC
End With
Next i
'Daten in Blatt1 eintragen
With Sheets(1)
.Range("A2:D1000").ClearContents
.Cells(2, 1).Resize(oBM.Count) = WorksheetFunction.Transpose(oBM.keys)
.Cells(2, 2).Resize(oBM.Count) = WorksheetFunction.Transpose(oBM.items)
End With
End Sub

Gruß
Rudi
Anzeige
AW: Sammelliste aus verschiedenen Tabellen
29.07.2010 16:07:28
Jürgen
Hallo Rudi,
vielen Dank zunächst für Deine Mühe. Jetzt hab ich nur das Problem, dass ich mit VBA nicht so wirklich gut bin. Kannst Du mir noch ein bischen unter die Arme greifen, wie ich das am besten anstelle ? Du hast mir 2 Lösungen angeboten.......funktionieren beide, oder wo liegt der Unterschied ?
Danke schon mal vorab.
viele Grüße
Jürgen
AW: Sammelliste aus verschiedenen Tabellen
29.07.2010 16:25:55
Rudi
Hallo,
keine 2 Lösungen. War ein Versehen.
Auch wenn man kein VBA kann, sollte man schon in der Lage sein, zwei so kurze Texte miteinander zu vergleichen ;-)
Code in ein Modul kopieren und laufen lassen.
Gruß
Rudi
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige