Problem bei VBA & freigegebenen Arbeitsmappen
08.04.2013 09:23:27
Schmitty
da ich in meinem alten Theme nicht mehr schreiben kann, möchte ich hier die Frage noch einmal allgemeiner stellen:
Ich habe z.B. folgenen Eintag in einer (!) Zelle:
19.02.10-4019-50,90
23.06.10-2177-57,50
16.12.10-2499-59,90
Nun möchte ich die Werte zwischen den "-" addieren (also 4019+2177-2499 = ?).
Dafür nutze ich folgendes VBA:
Function Menge(ByVal strZelle As String) As Single
Dim Teil, N As Integer
Teil = Split(Range(strZelle).Value, "-")
For N = 1 To UBound(Teil) Step 2
Menge = Menge + CSng(Teil(N))
Next N
End Function
Sobald ich die Arbeitsmappe freigebe, erhalte ich ein Automatisierungsfehler.
Ist das VBA nicht richtig programmiert oder gibt es generell ein Problem bei VBA mit freigegebenen Arbeitsmappen?
Gruß
Christian