ich möchte in einem Array die Zellwerte als String speichern:
Dim ranges() As String
For j = 7 To 100
Cells(12, j).Value = ranges
Next j
Klappt leider nicht...
Was muss geändert werden, damit es läuft?
Gruß Andi
Sub S()
Dim ranges(100) As String
Dim j As Integer
For j = 7 To 100
ranges(j) = CStr(Cells(12, j).Value)
Next j
End Sub