Datenfeld
08.01.2018 14:24:13
Siegfried
ich suche nach einer Möglichkeit, Daten in ein Datenfeld aufzunehmen, ohne den Umweg über ein Tabellenblatt.
Bisher realisiere ich das mit folgendem Code:
If WorksheetFunction.CountIf(RngPaar, Zahl1) = 0 And _
WorksheetFunction.CountIf(RngPaar, Zahl2) = 0 Then
Zähler = Zähler + 1
Cells(1, 1).Offset(Zähler, Part1Col) = Zahl1
Cells(1, 1).Offset(Zähler, Part2Col) = Zahl2
ArrPaar(Zähler, 1) = Zahl1
ArrPaar(Zähler, 2) = Zahl2
End If
Wie zählt man Werte in einem Array?
Gruß
Siegfried