| VBA-Beispiel 088 | |
|
|
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 |
|
relevante Links:
|
|
| |