Bezug, Automatisierte Auswertung

Hallo Forum,
ich finde hier häufig Hilfe bei meinen Fragen, nun habe ich aber ein spezielles Problem, welches ich so nicht auf Anhieb finde.
Ich habe in meiner Tabelle im Tabellenblatt 1 eine dynamische Tabelle, in die ich Bauteile zur Reparatur eintrage. Für die Reparatur habe ich 15 Tage Zeit und das Teil durchläuft mehrere Abteilungen. Die Abteilung wähle ich mit einer Dropdown Liste aus. Da der "15-Tage-Countdown" durch diverse Umstände unterbrochen werden kann, gibt es noch Felder für die Unterbrechung und der Fortführung.
Auf Tabellenblatt 2 möchte ich nun eine Übersicht haben, in welcher Abteilung sich welche Teile gerade befindet und wie viele Tage es schon unterwegs ist. Ich habe es mit "Verketten" und einer extrem langen "Wenn" Funktion versucht. Eigentlich würde es so funktionieren (wobei ich überzeugt bin, es würde wahrscheinlich einfacher gehen, weiß aber nicht wie), allerdings wenn ich jetzt im Tabellenblatt 1 eine Position lösche, weil sie abgearbeitet ist, bekomme ich einen Bezugsfehler. Wie kann ich diesen beheben? Oder gibt es eine elegantere Lösung?
Hier meine Tabelle (die komplette Formel ist bisher nur in C1, da sie ja erst funktionieren soll):
https://www.herber.de/bbs/user/133686.xlsm
Danke für Eure Hilfe.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo André,
um einen 2. Eintrag in der gleichen Zelle zu erfassen wird die Formel schon sehr aufwendig - Aber sie funktioniert.
Formel in Zelle B2:
=WENNFEHLER(INDEX(Tabelle2[Teil];VERGLEICH($A2&"|"&B$1;Tabelle2[Vergleich];0)) & WENN(ZÄHLENWENN(Tabelle2[Vergleich];$A2&"|"&B$1) &gt 1;ZEICHEN(10) & INDEX(BEREICH.VERSCHIEBEN(Tabelle2[Teil]; VERGLEICH($A2 & "|" & B$1;Tabelle2[Vergleich];0);0); VERGLEICH($A2 & "|" & B$1;BEREICH.VERSCHIEBEN(Tabelle2[Vergleich];VERGLEICH($A2 & "|" &B$1; Tabelle2[Vergleich];0);0);0));"");"")
Diese dann nach rechts und unten kopieren.
Als Alternative könntest du dir auch die nachfolgende benutzerdefinierte Funktion in dem VBA-Projekt einbauen.
LG
Franz

'Benutzerdefinierte Funktion in einem allgemeinen Modul
'Beispiel-Formel in Zelle B2:
'=WENNFEHLER(fncTeile_an_Tag(Tabelle2[Vergleich];$A2&"|"&B$1;Tabelle2[Teil]);"")
Function fncTeile_an_Tag(rngVergleich As Range, varWert, rngWerte, _
Optional bolGrossKlein As Boolean = False) As String
'Ermittelt die im Spaltenbereich rngVergleich mit varWert übereinstimenden Zellen _
und gibt die zugehörigen Werte in rngWerte als Ergebnis aus
Dim sErgebnis As String, intZelle As Integer
For intZelle = 1 To rngVergleich.Rows.Count
If IIf(bolGrossKlein, rngVergleich.Cells(intZelle, 1), _
LCase(rngVergleich.Cells(intZelle, 1))) _
= IIf(bolGrossKlein, varWert, LCase(varWert)) Then
sErgebnis = sErgebnis & IIf(sErgebnis  "", Chr(10), "") _
& rngWerte.Cells(intZelle, 1).Text
End If
Next
fncTeile_an_Tag = sErgebnis
End Function

Function fncTeile_an_Tag_neu(rngAbteilung As Range, rngTag As Range, _ varAbteilung, varTag, rngTeile, _ Optional bolGrossKlein As Boolean = False) As String 'Vergleicht die Abteilungen und verbleibenden Tage und gibt bei Übereinstimmung _ die zugehörigen Werte (Teile) in rngWerte als Ergebnis aus 'Beispiel-Formel in Zelle B2: '=WENNFEHLER(fncTeile_an_Tag_neu(Tabelle2[Bereich];Tabelle2[Verbl. Tage];$A2;B$1;Tabelle2[ _ Teil]);"") Dim sErgebnis As String, intZelle As Integer, varTagVergleich For intZelle = 1 To rngAbteilung.Rows.Count 'Prüfung verbleibende Tage If rngTag.Cells(intZelle, 1).Value > 0 Then varTagVergleich = "Tag " & rngTag.Cells(intZelle, 1).Value ElseIf rngTag.Cells(intZelle, 1).Value "", Chr(10), "") _ & rngTeile.Cells(intZelle, 1).Text End If Next fncTeile_an_Tag_neu = sErgebnis End Function

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread