Funktionen (VBA) werden nicht berechnet
03.12.2004 14:48:29
Jens
Ich habe ein Problem in einem umfangreichen Excel-Projekt.
Ich habe verschiedene selbst geschriebene Funktionen eingefügt, welche sich auf eingefügte Arbeitsblätter beziehen. Nun berechnen sich diese nicht automatisch. Die Ergebnisse werden nur aktualisiert, wenn ich die Zelle auswähle und mit Enter "bestätige". Auch wenn ich die Taste F9 dürcke, bewegt sich nichts.
Auch der Code Worksheets(1).Calculate hat nichts bewirkt.
Was mache ich da falsch?
Danke für die Hilfe.
Grüsse aus dem Jura
Meine Funktion:
Function GetGemeindeErgebnis(KollektenID$, Gemeindenamen$)
Dim Fundort ' Wo der Wert gefunden wird
Dim Ergebnis ' Das Ergebnis im Zahlenwert
Dim goon As Boolean
For i% = 3 To ActiveWorkbook.Sheets.Count
If ActiveWorkbook.Sheets(i).Name = Gemeindenamen Then
goon = True
End If
Next
If goon = False Then
Ergebnis = "---"
Else
' Adresse des Fundortes in Fundort abfüllen
Fundort = ActiveWorkbook.Worksheets(Gemeindenamen).Range("A1:K400").Find(KollektenID, LookIn:=xlValues, lookat:=xlWhole).Address
Spalte% = ActiveWorkbook.Worksheets(Gemeindenamen).Range(Fundort).Column + 4
Zeile% = ActiveWorkbook.Worksheets(Gemeindenamen).Range(Fundort).Row
ErgebnisAdresse$ = Worksheets(Gemeindenamen).Cells(Zeile, Spalte).Address
Ergebnis = Worksheets(Gemeindenamen).Range(ErgebnisAdresse).Value
End If
' Worksheets(1).Calculate
GetGemeindeErgebnis = Ergebnis
End Function
Jens