Zellen die eigene Funktion enthalten neuberechnen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Wie übergebe ich die Zelle als Argument in der die Funktion verwendet wird?
Bei mir sieht das so aus:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("S3:S4")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
Call Get_All_Concrete_Values
'an dieser Stelle soll die Funktion BKFL alle Zellen neu berechnen die die Funktion  _
enthält
End If
End Sub
Sub Get_All_Concrete_Values()
BFKL_array() = ThisWorkbook.Worksheets("Daten").Range("B5:N32").Value
End Sub
Function BFKL(FKL As String, Kennwert As String) As Variant
Select Case Kennwert
Case "C"
BFKL = Application.WorksheetFunction.VLookup(FKL, BFKL_array(), 1, 0)
Case "fck"
BFKL = Application.WorksheetFunction.VLookup(FKL, BFKL_array(), 2, 0)
Case "fckcube"
BFKL = Application.WorksheetFunction.VLookup(FKL, BFKL_array(), 3, 0)
End Select
End Function

Function BFKL(FKL As String, Kennwert As String, rng as Range) As Variant Select Case Kennwert Case "C" BFKL = Application.WorksheetFunction.VLookup(FKL, BFKL_array(), 1, 0) Case "fck" BFKL = Application.WorksheetFunction.VLookup(FKL, BFKL_array(), 2, 0) Case "fckcube" BFKL = Application.WorksheetFunction.VLookup(FKL, BFKL_array(), 3, 0) End Select End Function

Hallo Rudi,
auch an dieser vielen Dank für deine Hinweise und Hilfe.
Danke auch bei der Hilfe zur Trägheit der Funktion :o).
Da du das Array ansprichst und sagst, dass du das trotzdem auf dem Datenblatt hinterlegen würdest - zur besseren Pflege. So ist es ja genau in meiner Datei und das Array ordne ich über den Befehl

BFKL_array() = ThisWorkbook.Worksheets("Daten").Range("B5:N32").Value

zu. Und genau da besteht nun das Problem. Durch die Definition der Rohdichte ändern sich die Ergebnisse des eigentlichen Arrays, womit sich der Kreis schließt und sich die anfängliche Frage von heute morgen ergibt. Ich werde es aber erst einmal mit diesem Range Ansatz in der Funktion versuchen, obwohl ich mir unsicher bin inwieweit das dann in einem Addin funktioniert.
Viele Grüße
Frank

Beliebteste Forumthreads (12 Monate)

Zellen die eigene Funktion enthalten neuberechnen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

138 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellen die eigene Funktion enthalten neuberechnen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

138 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread