Hallo liebe Forumnutzer,
ich habe ein Problem mit einer von mir selber geschriebenen Funktion.
Hier einmal die Funktion:
Function BKette(Suchbereich As Range, Suchkriterium, Artbereich As Range, Artkriterium, _ Ergebnisbereich As Range, Trennzeichen As String) Dim i As Long For i = 1 To Suchbereich.Count If Suchbereich(i) = Suchkriterium And Artbereich(i) = Artkriterium Then BKette = BKette & _ Trennzeichen & Ergebnisbereich(i) Next i BKette = Right(BKette, Len(BKette) - Len(Trennzeichen)) End Function
Eingesetzt wird die Funktion um Text aus unterschiedlichen Zellen in eine Zelle unter zwei Bedingungen zusammenzuführen, getrennt durch ein Trennzeichen wie z.B. ein Komma.
Die Funktion selbst funktioniert einwandfrei, allerdings braucht sie sehr lange zum Berechnen. Ich habe deshalb schon auf Manuelle Berechnung umgestellt, damit ich wenigstens die Daten die die Funktion verwendet ohne Unterbrechung eingeben kann. Allerdings wenn ich dann Berechnen lasse brauche ich für den Bereich den ich bis jetzt mit der Funktion belegt habe schon recht lange. Schätzungsweise 3 Minuten. Das ist zu lange.
Nun die Frage:
Gibt es da etwas um das zu verbessern, oder kann ich da nichts machen?
Danke im Voraus
MfG
FantasyFlip