versuche den Text s ( bzw e) mit Gänsefüschen dazustellen in den beiden Formeln
also anstatt wverweis(Hase;... )
soll wverweis("Hase "; ... ) stehen
bin benebelt und weiß nicht weiter ..
wer hat ne Idee...?
Danke.. Joe
Dim i As Integer
Dim s, e As String
s = Cells(29, 1)
e = s & "e"
For i = 1 To 10
Cells(30 + i, 3).FormulaLocal = "=wverweis(" & s & ";B99:M109;" & i + 1 & ";falsch)"
Cells(30 + i, 7).FormulaLocal = "=wverweis(" & e & ";B99:M109;" & i + 1 & ";falsch)"
Next i
End Sub