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
Anzeige