Script anpassen, Unikate Kopieren, einfügen ab 3.Z
08.05.2017 17:23:15
Peter
Habe unten stehenden Code zum Kopieren der Unikate und dann Einfügen in eine zweite Tabelle. Jedoch möchte ich, dass die Datensätze erst ab Zeile 3 eingefügt werden, wie muss der Code angepasst werden (hab es nicht geschafft)?
Sub UnikateKopieren()
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim lngLZQ As Long
Dim zellQ As Range
Dim Dic As Object
Dim lngLZZ As Long
Set wksQ = Worksheets("Uebersicht") 'QuellBlatt Anpassen
Set wksZ = Worksheets("LPAD NP") 'ZielBlatt Anpassen
Set Dic = CreateObject("Scripting.Dictionary")
lngLZQ = wksQ.Range("F" & wksQ.Rows.Count).End(xlUp).Row
For Each zellQ In wksQ.Range("F3:F" & lngLZQ)
If zellQ "" Then
If Not Dic.Exists(zellQ.Value) Then
Dic(zellQ.Value) = ""
lngLZZ = lngLZZ + 1
wksQ.Range("A" & zellQ.Row & ":Q" & zellQ.Row).Copy _
wksZ.Range("A" & lngLZZ & ":Q" & lngLZZ)
End If
End If
Next
End Sub
Viele Grüsse,
Peter