VBA-Beispiel 088
mail schreiben
mail schreiben

Array Datenfelder mit Zellinhalt

Array mit Zellinhalten aus Spalte A anlegen
Option Explicit
Option Base 1

Sub Array_dynamisch_Zellen()
Dim Arr_Zellen() As String
Dim Zeile As Long

'Array dimensionieren / Anzahl Datenfelder festlegen
'1. Zeile Spalte A bis letzte Eintrag in Spalte A
ReDim Arr_Zellen([A65536].End(xlUp).Row)

'Datenfelder mit Inhalt aus Spalte A füllen
For Zeile = 1 To [A65536].End(xlUp).Row
  Arr_Zellen(Zeile) = Cells(Zeile, 1)
Next Zeile

'alle Einträge abfragen
For Zeile = LBound(Arr_Zellen) To UBound(Arr_Zellen)
  Cells(Zeile, 1).Interior.ColorIndex = 35   'bunt anmalen
  MsgBox Arr_Zellen(Zeile), , UBound(Arr_Zellen) & " Datenfelder"
  Cells.Interior.ColorIndex = xlNone
Next Zeile

Erase Arr_Zellen

End Sub

Download:   vba088.zip