Sub
DP_Monat_Jan()
Set
Wks1 = Sheets(
"DP"
)
Set
Wks2 = Sheets(
"Januar"
)
If
Not
IsEmpty(Wks1.Cells(1, 3))
Then
Set
Found = Wks2.Columns(1).Find(Wks1.Cells(1, 3), LookIn:=xlValues, LookAt:=xlWhole)
If
Found
Is
Nothing
Then
MsgBox
"Wert nicht gefunden!"
, vbInformation,
"Meldung"
Else
Range(Found.Offset(0, 2), Found.Offset(2, 32)).Copy Destination:=Range(
"C15"
)
End
If
End
If
End
Sub
Gruß Michael