VBA-Befehl wird "verschluckt"
08.04.2015 15:55:26
Hendrik
um den Wert eines Cube-Elements in eine Variable zu schreiben, nutze ich folgenden Code:
Function gibAktuellenStand(strConName) As String
On Error Resume Next
ActiveWorkbook.Worksheets.Add.Name = "tmpStand"
On Error GoTo 0
ActiveWorkbook.Worksheets("tmpStand").Range("A1").FormulaLocal = "=cubeelement(""" & _
strConName & """;""[Dim Stand Datum].[Dim Standdatum].[Alle].firstchild.firstchild.firstchild"")"
gibAktuellenStand = Replace(Range("A1").Value, "-", "")
Application.DisplayAlerts = False
ActiveWorkbook.Worksheets("tmpStand").Delete
Application.DisplayAlerts = True
End Function
Das funktioniert prima, wenn ich Schritt für Schritt debugge.Lasse ich den Code normal laufen, wird das Löschen des Tabellenblattes nicht mehr ausgeführt! Ich vermute, dass es am Zeitversatz liegt, den die Cube-Abfrage braucht (1 bis 2 Sekunden). Was kann ich tun, damit der nächste Befehl nicht verschluckt wird? Eine Pause einbauen?
Danke!
Hendrik