Teil und Finden umwandlen in VBA
Danny
=TEIL(Tabelle2!C121;FINDEN("k-n-zrf";Tabelle2!C121)+7;5)
VBA-Ansicht:
ActiveCell.FormulaR1C1 = "=MID(Tabelle2!R[-1]C[1],FIND(""" & d & """,Tabelle2!R[-1]C[1])+" & O & ",5)"
Problem:
Ich bekomme es einfach nicht hin in diesem Bereich (Tabelle2!R[-1]C[1]) mit cells (x,y) zu arbeiten. Am liebsten wäre mir ungefähr diese Form:
a=mid(cells(2,1), find(""" & d & """, cells(2,1) + " & o & ",5)
Er soll halt in einer Zelle einen bestimmten Begriff suchen, die nachfolgenden 5 Zeichen auslesen und sie mir in die Variable a schreiben.
Danke...
Grüße
Danny