Array Typen unverträglich
16.01.2019 09:19:34
Rasenack
hab da mal ein kleines Problem beim Befüllen eines Arrays. Unzwar füllt mein Code den Array, wenn ich ihn ohne Klammern deklariere. Soweit so gut, allerdings kann ich zu Testzwecken keine Position des Arrays in einer Messagebox ausgeben lassen, sondern nur den gesamten Array. Füge ich Klammern an den Array bei Deklaration, bekomme ich in der Zeile
zeilen() = zeilen + Cells(i, 1).Value & " "
eine Fehlermeldung, dass die Typen unverträglich sind unzwar genau bei dem Pluszeichen. Ich benötige aber entsprechende Positionen im weiteren Verlauf des Codes(der noch nicht existiert).
Kann mir jemand erklären warum das so nicht funktioniert bzw. sagen wie es funktionieren kann.
Ich wäre sehr dankbar für jede Hilfe.
Sub Test()
Dim zeilen As Variant
Dim leere_zeile As Integer
Dim i As Integer
Range("A1").Select
leere_zeile = Selection.CurrentRegion.Rows.Count
For i = 1 To leere_zeile
If IsEmpty(Cells(i, 1)) = False Then
zeilen = zeilen + Cells(i, 1).Value & " "
End If
Next i
MsgBox zeilen(2)
End Sub