Hallo VBA Freunde,
ich habe ein skurriles Problem.
Ich nutze folgenden Code:
Dim loDeinWert As String
Dim rng As Range
Set rng = Worksheets("2016 Kontenarten").Rows(2).Find((loDeinWert))
If rng Is Nothing Then
Else
Columns(rng.Column).Select
End If
Selection.Copy
Workbooks(Tab7).Activate
Sheets("Kontrollen").Select
Columns("N").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
obwohl ich die Variable definiert habe und er als "loDeinWert" den "05.01.2017" findet bekomme ich bei rng die Rückmeldung nothing mit der Begründung "Objektvariable oder With-Blockvariable nicht festgelegt". An anderer Stelle funktioniert der Code ohne Probleme.
Was habe ich übersehen?
Gruß Christian |