Alea und VBA
27.05.2008 11:00:00
Tobias
kann mich bitte jemand bei einem Upload von Daten in Alea Cubes mit DBGet / DBSet Formeln unterstützen?
Ich scheitere an der Stelle, dass die Zeile des Upload-Blattes mit harten Werten aus dem Datenblatt überschrieben wird (was beim manuellen Eintippen in die Zelle mit der DBGet-Formel nicht so ist!!).
Gibt es einen VBA-Befehl, der die Daten "sanft" einfügt?
Vielen Dank!
Sub personal_upload()
Dim up As Worksheet
Dim dat As Worksheet
Application.DisplayAlerts = False
Application.ScreenUpdating = False
With Application
.Calculation = xlManual
End With
Set dat = Worksheets("daten")
Set up = Worksheets("upload")
uz = dat.UsedRange.Rows.Count
ur = dat.UsedRange.Columns.Count
For i = 2 To uz
For i2 = 1 To ur
up.Cells(10, i2).Formula = dat.Cells(i, i2) 'hier klappt es nicht
Next
Calculate
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub