Werte in Array schreiben: Ich brauche Hilfe

Sub Ansatz Dim ArrValues(1 to 10) as variant Dim lngA as long lngA = 1 For Each RNGCELL In rngAge If Cells(RNGCELL.Row, intOPENOSCol).Offset(1, 0) Cells(RNGCELL.Row, intOPENOSCol) Then lngA = lngA +1 arrvalues(lngA) = UCase(Cells(RNGCELL.Row, intOPENOSCol)) next RNGCELL End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

If Cells(RNGCELL.Row, intOPENOSCol).Offset(1, 0) Cells(RNGCELL.Row, intOPENOSCol) _ Then If Not objSCR.exists(UCase(Cells(RNGCELL.Row, intOPENOSCol))) Then objSCR = ? arrFeature(lngSCR) = UCase(Cells(RNGCELL.Row, intOPENOSCol)) lngSCR = lngSCR + 1 End If end if

Public Sub Ansatz() Dim ArrValues As Object Dim rngAge As Range Dim RNGCELL As Range Set rngAge = Range("B1:B10") Set ArrValues = CreateObject("Scripting.Dictionary") For Each RNGCELL In rngAge ArrValues(RNGCELL.Value) = 0 'Nur Unikate sammeln Next End Sub

Sub So If Cells(RNGCELL.Row, intFeatureCol).Offset(1, 0) Cells(RNGCELL.Row, intFeatureCol) _ Then If Not objSCR.exists(UCase(Cells(RNGCELL.Row, intFeatureCol))) Then strFeature = strFeature & UCase(Cells(RNGCELL.Row, intFeatureCol)) & Deli objSCR.Add UCase(Cells(RNGCELL.Row, intFeatureCol)), 1 arrFeature(lngSCR) = UCase(Cells(RNGCELL.Row, intFeatureCol)) lngSCR = lngSCR + 1 End If End If End Sub

Sub ArrayUnikate() ReDim arrUnikate(0) Dim lngZeile As Long Dim lngVorhanden As Long lngZeile = 1 arrUnikate(0) = Cells(lngZeile, 1) For lngZeile = 2 To 12 On Error Resume Next lngVorhanden = Application.Match(Cells(lngZeile, 1), arrUnikate(), 0) On Error GoTo 0 If lngVorhanden = 0 And Cells(lngZeile, 1) Cells(1, 1) Then ReDim Preserve arrUnikate(0 To UBound(arrUnikate()) + 1) arrUnikate(UBound(arrUnikate())) = Cells(lngZeile, 1) End If lngVorhanden = 0 Next lngZeile End Sub

Hi Holger,
was hat das Verstehen eines Codes mit Eleganz eines Codes zu tun? ;)
Korrekter Weise müsste mein Code noch vor der ReDim-Anweisung ergänzt werden um diese (erste) Code-Zeile, damit das Array auch korrekt deklariert ist:

Dim arrUnikate()

Die Redim-Anweisung legt die Größe des dynamischen Arrays fest (bzw. verändert sie) und da zuerst nur 1 Wert (aus A1) eingetragen werden soll, ist nur 1 Feld erforderlich - deshalb

ReDim  arrUnikate(0)

0 deshalb, weil normalerweise die Feldzählung in einem Array immer mit 0 beginnt, es sei denn, es wurde mittels

Option Base 1

explizit festgelegt, dass es mit Feld 1 beginnt.
Die Zeile

lngVorhanden = Application.Match(Cells(lngZeile, 1), arrUnikate(), 0)

stellt fest, an welcher Position im Array sich der Inhalt der Zelle Cells(lngZeile, 1) befindet - das würde auf einen Fehler hinauslaufen, wenn der Wert nicht enthalten ist, deshalb On Error Resume Next vor dieser Zeile und das Zurücksetzen der Fehlerbehandlung mittels On Error Goto 0 nach dieser "Prüf"-Zeile.
Ist der Wert nicht enthalten, bleibt die Variable lngVorhanden 0 - also If lngVorhanden = 0 .... Da aber lngVorhanden auch 0 ergibt wenn der Zellwert = A1 ist (steht ja im 0. Feld des Arrays), muss noch geprüft werden, ob der Zellwert A1 ist - folglich

If lngVorhanden = 0 And Cells(lngZeile, 1)  Cells(1, 1) Then

Ist diese Bedingung erfüllt und somit der Wert aus Cells(lngZeile, 1) tatsächlich nicht enthalten, wird das Array um 1 erweitert unter Beibehaltung der bereits vorhandenen Einträge:

ReDim Preserve arrUnikate(0 To UBound(arrUnikate()) + 1)

Anschließend wird der Wert in das oberste Feld des um 1 Feld erweiterten Arrays eingeschrieben.
Ich hoffe, damit ist etwas klarer geworden, was der Code macht.

Hi Luc,
das ist nicht wahr, wie du siehst ;). Zumindest nicht immer ;)))
In der Tat geht es manchmal aber so hektisch zu, dass ich selber etwas den Überblick verliere.
Die Anforderungen sich auch manchmal fies. Ich kriege einen Auftrag, überlege wie ich es mache
und plötzlich kommt noch eine "Kleinigkeit" dazu und ich kann alles über den haufen werfen und von vorne anfangen. Sprich, ich bin immer wieder etwas überfordert mit den Aufgaben, aber
da muss ich durch. Ich lese Bücher, nur leider fehlt immer ein Detail für mein aktuelles Problem, da bin ich froh über dieses Forum.
Oder ich merke erst später, dass ich mich in einer Sackgasse befinde. Aufgrund fehlender Erfahrung passiert das öfter.
Aber ich gebe mir wirklich Mühe, immer alles zu beantworten und es gibt nicht wenige, die hier
gar nicht auf einen Vorschlag antworten und man hört nie wieder etwas.
Schönen Abend und Gruß
Holger

Beliebteste Forumthreads (12 Monate)

Werte in Array schreiben: Ich brauche Hilfe

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte in Array schreiben: Ich brauche Hilfe

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread