Hallo Community,
für euch wahrscheinlich Trivial aber ich kriege es einfach nicht hin:
Ich habe zwei Arrays und möchte die Inhalte dieser Vergleichen und in weiteren Arrays speichern.
Was ich bereits hinbekommen habe:
------------------------------------------------------------------------------------------------------------------------------------------------
Dim Namen01() As String: Dim letzteZ01 As Integer
Dim Namen02() As String: Dim letzteZ02 As Integer
Dim intZaehler As Integer
letzteZ01 = Range("A1").End(xlDown).Row 'Größe des Arrays festlegen Datenbereich A1 in Exceltabelle
letzteZ02 = Range("B1").End(xlDown).Row 'Größe des Arrays festlegen Datenbereich A2 in Exceltabelle
ReDim Namen01(letzteZ01 - 1)
ReDim Namen02(letzteZ02 - 1)
For intZaehler = 0 To (UBound(Namen01)) 'in Array aus Tabelle schreiben
Namen01(intZaehler) = Tabelle1.Cells(intZaehler + 1, 1).Value
Next
For intZaehler = 0 To (UBound(Namen02)) 'in Array aus Tabelle schreiben
Namen02(intZaehler) = Tabelle1.Cells(intZaehler + 1, 2).Value
Next
Dim a, b As Integer
Dim NamenBeide() As String 'neuer Array in welchem Objekte welche in 01 und 02 enthalten reinkommen
ReDim NamenBeide(0)
For a = 0 To UBound(Namen01)
For b = 0 To UBound(Namen02)
If Namen01(a) = Namen02(b) Then
ReDim Preserve NamenBeide(UBound(NamenBeide) + 1)
NamenBeide(UBound(NamenBeide)) = Namen01(a)
'Debug.Print Namen01(a)
End If
Next b
Next a
------------------------------------------------------------------------------------------------------------------------------------------------
Ich möchte zwei weitere Arrays indem ich Objekte bekommen welche nur in 01 oder nur in 02 vorkommen.
Wie kann ich das realisieren?
Ich hoffe ihr könnt mir helfen.