Hallo zusammen!
Ich bin leider VBA-Anfänger und konnte mir bisher nur einzelne Code-Schnipsel zusammen suchen und dann anpassen.
Bei dieser Frage übersteigen die Anforderungen leider meinen Kenntnisstand.
Ich versuche, aus einer externen Excel-Tabelle jede zweite Spalte innerhalb eines Bereiches ab inkl. Spalte G in ein Dictionary einzulesen und danach in der eigenen Tabelle ohne Duplikate untereinander auszugeben.
Bei meinem Code gibt es allerdings einen Array-Fehler. Und auch sonst komme ich nicht weiter.
Es wäre klasse, wenn mir hier jemand helfen könnte.
Vielen Dank!
Ich bin leider VBA-Anfänger und konnte mir bisher nur einzelne Code-Schnipsel zusammen suchen und dann anpassen.
Bei dieser Frage übersteigen die Anforderungen leider meinen Kenntnisstand.
Ich versuche, aus einer externen Excel-Tabelle jede zweite Spalte innerhalb eines Bereiches ab inkl. Spalte G in ein Dictionary einzulesen und danach in der eigenen Tabelle ohne Duplikate untereinander auszugeben.
Bei meinem Code gibt es allerdings einen Array-Fehler. Und auch sonst komme ich nicht weiter.
Quellcode
- Sub Daten_holen()
- Dim i, r As Long
- Dim oDict As Object
- Set Source = GetObject(ActiveWorkbook.Worksheets("Optionen").Range("D16").Value) 'Pfad der Projekt-Liste in Zelle D16
- Set oDict = CreateObject("scripting.dictionary")
- Const intZ = 2 'Import ab Zeile 2 der Zieltabelle
- 'Idee: While-Schleife, um Dictionary erstmal mit allen Projekten zu füttern und Duplikate zu entfernen
- With Source.Worksheets("Assignment")
- For i = 7 To .Columns.Count Step 2
- For r = 5 To .Cells(Rows.Count, 1).End(xlUp).Row 'ab Zeile 5 (Überschrift weglassen)
- If Len(Trim(.Cells(r, i))) Then oDict(.Cells(r, i).Text) = "" 'Spalte 2
- Next r
- Next i
- End With
- ActiveWorkbook.Worksheets("Projektliste").Cells(intZ, 1).Resize(oDict.Count, 1) = Application.Transpose(oDict.keys)
- End Sub
Es wäre klasse, wenn mir hier jemand helfen könnte.
Vielen Dank!