02.07.2020, 14:06
[attachment=32770]Hallo,
ich habe eine Tabelle, in der ich es jetzt endlich (vielen Dank an Elex) hinbekommen habe, nach Formelwerten usw. zu filtern, auch mit Datumswerten, um das auszudrucken, bzw. an eine andere Datei zu übergeben.
Leider aktualisieren sich während des Ausführens des Makros "Übersicht Sub erstellen" die Funktionen in "P129" und "Q129" nicht.
Das Makro ist in der Übersicht enthalten,
die Funktion "outlookeintrag" ist folgende:
Private Function Outlookeintrag(xRg As Variant, sptChar As String)
Dim rg As Range
For Each rg In xRg
If (rg.EntireRow.Hidden = False) And (rg.EntireColumn.Hidden = False) Then
Outlookeintrag = Outlookeintrag & rg.Value & sptChar
End If
Next
Outlookeintrag = Left(Outlookeintrag, Len(Outlookeintrag) - Len(sptChar))
End Function
Wie bekomme ich das Makro dazu, die Funktion "outlookeintrag" beim durchlaufen mit zu aktivieren, damit bei den gefilterten Ergebnisse sind in den genannten Bereichen
die Funktion aktualisiert?
Ich bekomme es so grade nicht auf die Reihe.
Bei der Gelegenheit, ich habe eine Indexformel in L1, die lautet:
INDEX(K:K;MIN(WENN(TEILERGEBNIS(3;INDIREKT("K"&ZEILE(5:128)))*ZEILE(5:128)>0;TEILERGEBNIS(3;INDIREKT("K"&ZEILE(5:128)))*ZEILE(5:128))))
und sucht mir, wenn ich etwas filter, den richtigen Wert aus der Reihe "K".
Die Formel benutze ich schon seit Ewigkeiten, gibt es da mittlerweile was moderneres für?
Ich bedanke mich schon jetzt im Voraus für die Hilfe.
Viele Grüße
Andreas
ich habe eine Tabelle, in der ich es jetzt endlich (vielen Dank an Elex) hinbekommen habe, nach Formelwerten usw. zu filtern, auch mit Datumswerten, um das auszudrucken, bzw. an eine andere Datei zu übergeben.
Leider aktualisieren sich während des Ausführens des Makros "Übersicht Sub erstellen" die Funktionen in "P129" und "Q129" nicht.
Das Makro ist in der Übersicht enthalten,
die Funktion "outlookeintrag" ist folgende:
Private Function Outlookeintrag(xRg As Variant, sptChar As String)
Dim rg As Range
For Each rg In xRg
If (rg.EntireRow.Hidden = False) And (rg.EntireColumn.Hidden = False) Then
Outlookeintrag = Outlookeintrag & rg.Value & sptChar
End If
Next
Outlookeintrag = Left(Outlookeintrag, Len(Outlookeintrag) - Len(sptChar))
End Function
Wie bekomme ich das Makro dazu, die Funktion "outlookeintrag" beim durchlaufen mit zu aktivieren, damit bei den gefilterten Ergebnisse sind in den genannten Bereichen
die Funktion aktualisiert?
Ich bekomme es so grade nicht auf die Reihe.
Bei der Gelegenheit, ich habe eine Indexformel in L1, die lautet:
INDEX(K:K;MIN(WENN(TEILERGEBNIS(3;INDIREKT("K"&ZEILE(5:128)))*ZEILE(5:128)>0;TEILERGEBNIS(3;INDIREKT("K"&ZEILE(5:128)))*ZEILE(5:128))))
und sucht mir, wenn ich etwas filter, den richtigen Wert aus der Reihe "K".
Die Formel benutze ich schon seit Ewigkeiten, gibt es da mittlerweile was moderneres für?
Ich bedanke mich schon jetzt im Voraus für die Hilfe.
Viele Grüße
Andreas