Option Explicit
Sub Test()
Dim rngPNr As Excel.Range
Set rngPNr = Worksheets("Tourenplan").Range("B2")
With CreateObject("Scripting.Dictionary")
'zu druckende Personalnummern ermitteln
Do While rngPNr.Value <> ""
If Not .Exists(rngPNr.Text) Then
If rngPNr.Worksheet.Cells(rngPNr.Row, "G").Value <> "" Then
Call .Add(Item:=rngPNr, Key:=rngPNr.Text)
End If
End If
Set rngPNr = rngPNr.Offset(1)
Loop
'Personalnummern kopieren/drucken
Hi zusammen,
ich habe folgenden Code und benötige mal eure Hilfe:
Dim vntPNr As Variant
For Each vntPNr In .Items()
Debug.Print vntPNr.Text, "["; vntPNr.Address(0, 0); "]"
'<_vntPNr_kopieren_>
'<_vntPNr_drucken_>
Next
End With
End Sub
------
Der Code funktioniert einwandfrei. Jedoch bezieht er sich nur auf die Zeile B2 ich würde es jedoch gerne auf die KOMPLETTE Zeile B ändern. Versuche die 2 wegzunehmen bzw B:B zu nehmen gingen nicht aufgrund des Laufzeitfehlers 13....
kann mir da bitte einer weiterhelfen
danke schonmal
|