Mehrere IDs aus Excel-Tabelle zusammenfügen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Erika,
probier mal.

' **********************************************************************
' Modul: Modul2 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub listIDs()
  Dim objDic As Object
  Dim lngRow As Long, lngFirst As Long, lngLast As Long, lngIndex As Long
  Dim varID As Variant

  Set objDic = CreateObject("Scripting.Dictionary")

  lngFirst = 2 'erste Zeile mit ID's in den Tabellen - Anpassen!

  For lngIndex = 2 To 7
    With Sheets(lngIndex)
      lngLast = Application.Max(lngFirst, .Cells(Rows.Count, 5).End(xlUp).Row)
      varID = .Range(.Cells(lngFirst, 5), .Cells(lngLast, 5))
      For lngRow = 1 To UBound(varID, 1)
        objDic(varID(lngRow, 1)) = 0
      Next
    End With
    Erase varID
  Next

  With Sheets("Tabelle1") 'Ausgabetabelle - Anpassen!
    'Ausgabebereich - Anpassen!
    .Range("E2:E" & CStr(.Rows.Count)).ClearContents
    .Range("E2").Resize(objDic.Count, 1) = Application.Transpose(objDic.keys)
    .Range("E2").Resize(objDic.Count, 1).Sort .Range("E2"), xlAscending, Header:=xlNo
  End With

  Set objDic = Nothing
End Sub

Gruß Sepp

Hallo zusammen,
ich habe mir das ganze "Projekt" nochmal durch den Kopf gehen lassen. Bevor ich groß rumerzähle, hier mal eine Beispieldatei:

Die Datei https://www.herber.de/bbs/user/66482.xls wurde aus Datenschutzgründen gelöscht

Die richtige Datei ist wesentlich umfangreicher.
Wie man sehen kann, stehen in den einzelnen Tabellenblättern die IDs. Dahinter steht auch immer eine "Art". Nun möchte ich mir gerne die Anzahl der Arten pro ID auf dem ersten Blatt ausgeben lassen (grauer Kasten).
Ist das irgendwie möglich?
Ergänzend dazu:
Jede ID ist einer Adresse zugeordnet. Wie kann man das erste Makro dahingehend ergänzen, dass auch jedesmal die Adressen zu den IDs neu zugeordnet wird? Ist das überhaupt möglich?
Momentan bedien ich mich eines SVERWEISes.
Über jeden Lösungsansatz wäre ich euch sehr dankbar :)
Einen wunderschönen Tag wünscht euch
Erika
P.S.: Falls sich jemand die Mühe machen sollte, und mir direkt die Antwort auf einem Silbertablett serviert (bitte nicht falsch verstehen), wäre es schön, wenn auch alles so kommentiert ist, dass ich es irgendwie nachvollziehen kann. Ich möchte nämlich gerne dabei lernen. :)

Beliebteste Forumthreads (12 Monate)

Mehrere IDs aus Excel-Tabelle zusammenfügen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread