Array wird nicht eingelesen
Maria
mal eine kurze Frage zum Einlesen von Daten in ein Array. Ich wollte wie folgt vorgehen:
Function Schnittpunktautom(hk As Double, hk2 As Double, hgp As Double, hw As Double) As Double
Dim i As Double, Profil As Variant
Worksheets("Erosionsprofil").Activate
Profil = Worksheets("Erosionsprofil").Range("B37:C174") 'Einlesen Profildaten
'usw...
End Function
Ich überprüfe die Variablen gerne mit dem Überwachungsfenster und musste dabei feststellen, dass von "Profil" immer der erste Wert leer ist und im zweiten etwas steht, OBWOHL im Bereich B37:C174 überall Zahlen stehen!! In B37:B174 stehen: -420, -410,-400, -390, -380, ...., 940, 950 (Ganze zahlen) und in der C-Spalte stehen unterschiedliche Werte zwischen -10 und +25 (Gleitkommazahlen). Warum wird also anscheinend nur die 2. Spalte eingelesen?
Vielen, vielen Dank für eure Hilfe!