Sub
Monat_einfuegen()
Dim
QuellZelle
As
Range, fund
As
Range
Dim
wb2
As
Workbook, sh
As
Worksheet
Set
QuellZelle = ActiveCell
Set
wb2 = Workbooks(
"Mappe2.xlsx"
)
Do
For
Each
sh
In
wb2.Worksheets
Set
fund = sh.UsedRange.Cells.Find(What:=QuellZelle.Value, LookIn:=xlValue, LookAt:=xlWhole)
If
Not
fund
Is
Nothing
Then
fund.Offset(0, 2).Value = QuellZelle.Offset(0, 1).Value
Exit
For
End
If
Next
Set
QuellZelle = QuellZelle.Offset(0, 1)
If
QuellZelle.Value =
"STOP"
Then
Exit
Do
End
If
Loop
End
Sub