Hallo,
Verständlicherweise möchtest du deine Kennisse einfach in VBA ausdrücken und die Formeln direkt übertragen. Das kommt aber einem Mischmasch gleich. VBA arbeitet auch ohne Zellformeln ganz prima und kann die Werte dann auch entsprechend finden. In der Zelle steht dann nur ein Wert und keine umständliche Formel. Die Formeltexte Sind texte ,die mit "" eingeschlossen werden. Kommt in der Formel bereits "" vor, dann müssen diese nochmals umschlossen/maskiert werden. Also sp ... 74]C[-1],2,0),"""")"
per Macrorekorder aufgezeichnet , Formel steht in Zelle:
Range("C10").FormulaR1C1 = "=IFNA(VLOOKUP(R[-1]C,'Ort&Plz'!R[-9]C[-2]:R[12874]C[-1],2,0),"""")"
mögliche Umsetzung in vba mit Verweisfunktion, nur Ergebnis steht in Zelle
Range("C10") = WorksheetFunction.VLookup(Range("C9"), Sheets("Ort&PLZ").Range("A1:B12884"), 0)
mögliche Umsetzung als VBAlösung mit Range.find() Methode, Ergebnis steht in Zelle
Dim x As Range
Set x = Sheets("Ort&PLZ").Range("A1:A12884").Find(what:=Range("C9"), LookIn:=xlValues, lookat:=xlWhole)
If Not x Is Nothing Then Range("C10") = x.Offset(, 1)
|