ich probiere mehre Zellen nacheinander zu finden. wurde die Zelle gefunden möchte ich
zwei Spalten rechts davon die Zelle mit einer Bezugsformel füllen lassen.
Problem hier ist ich nur eine Zeile eingetragen bekomme, und die anderen ignoriert werden.
Des weiteren wird mir in der einen gefundenen Zelle mir die Formel als Text angezeigt und leider nicht
das Ergebnis.
Hier der Code:
Cells.Find(what:="Auftrag Nr.:", LookIn:=xlValues, lookat:=xlPart).Activate
ActiveCell.Offset(0, 2).Activate
ActiveCell.Formula = "=WENN(Startseite!D6="";"";Startseite!D6)"
Worksheets(FBFile).Range(A1).Select
Cells.Find(what:="Geräte-Nr.:", LookIn:=xlValues, lookat:=xlPart).Activate
ActiveCell.Offset(0, 2).Activate
ActiveCell.Formula = "=WENN(Startseite!J12="";"";Startseite!J12)"
Worksheets(FBFile).Range(A1).Select
Cells.Find(what:="Typ:", LookIn:=xlValues, lookat:=xlPart).Activate
ActiveCell.Offset(0, 2).Activate
ActiveCell.Formula = "=WENN(Startseite!D7="";"";Startseite!D7)"
Worksheets(FBFile).Range(A1).Select
Cells.Find(what:="Kunde:", LookIn:=xlValues, lookat:=xlPart).Activate
ActiveCell.Offset(0, 2).Activate
ActiveCell.Formula = "=WENN(Startseite!K5="";"";Startseite!K5)"
Ich habe schon mehreres Probiert und finde denn fehler einfach nicht..
Lg Jörg