Hallo alle,
brauche wieder mal euren Rat.
In einer Exceldatei befinden sich 3 Kategorien von Tabellenblättern:
- 2 Übersichtsblätter zu Beginn
- Tabellenblätter mit Mitarbeiterdaten (Anzahl kann sich ändern)
- Tabellenblätter mit Projektdaten (Anzahl kann sich ändern)
Fixe Tabellenblätter sind die beiden Übersichtsblätter am Anfang sowie zwei Musterblätter für Mitarbeiter und Projekte (die stehen jeweils an letzter Position der Tabellenblattkategorie).
In den Projektblättern möchte ich jetzt per Verweisfunktion die Daten aus den Mitarbeiterblättern anziehen. Sverweis über mehrere Tabellen scheint nicht möglich zu sein, deshalb hab ichs mit einer eigenen Funktion versucht.
Nur leider funktioniert sie nur unvollständig, denn wenn mehrere "Treffer" in den Mitarbeiterblättern vorkommen, krieg ich als Ergebnis nur den ersten Treffer.
Kann mir jemand sagen, was ich korrigieren muss?
Vielen Dank
brauche wieder mal euren Rat.
In einer Exceldatei befinden sich 3 Kategorien von Tabellenblättern:
- 2 Übersichtsblätter zu Beginn
- Tabellenblätter mit Mitarbeiterdaten (Anzahl kann sich ändern)
- Tabellenblätter mit Projektdaten (Anzahl kann sich ändern)
Fixe Tabellenblätter sind die beiden Übersichtsblätter am Anfang sowie zwei Musterblätter für Mitarbeiter und Projekte (die stehen jeweils an letzter Position der Tabellenblattkategorie).
In den Projektblättern möchte ich jetzt per Verweisfunktion die Daten aus den Mitarbeiterblättern anziehen. Sverweis über mehrere Tabellen scheint nicht möglich zu sein, deshalb hab ichs mit einer eigenen Funktion versucht.
Nur leider funktioniert sie nur unvollständig, denn wenn mehrere "Treffer" in den Mitarbeiterblättern vorkommen, krieg ich als Ergebnis nur den ersten Treffer.
Quellcode
- Public Function tabellenverweis(suchkriterium As String)
- Dim zelle As String
- Dim zeile As Integer
- Dim blatt As Integer
- Dim start As Integer
- Dim ende As Integer
- start = Sheets("Projekte").Index + 1
- ende = Sheets("Muster_M").Index - 1
- For zeile = 6 To 18
- For blatt = start To ende
- zelle = CStr(Sheets(blatt).Cells(zeile, 2).Value)
- If zelle = suchkriterium Then
- tabellenverweis = Sheets(blatt).Name
- End If
- Next blatt
- Next zeile
- End Function
Kann mir jemand sagen, was ich korrigieren muss?
Vielen Dank