Supportnet / Forum / Tabellenkalkulation

Hallo , ich habe eine Problem mit Range wenn ich in einen Sheet nach einen Begriff suche und dann in 2 Zellen eine Formel eintragen möchte. Erstmal der Codeausschnitt: Dim gZelle As Range, sBegriff$ sBegriff = "Auftrag" Set gZelle = Worksheets(FBFile).Columns("A:F").Find(sBegriff) Set gZelle = gZelle.Offset(0, 2) MSgbox FBFile & " " & gZelle.Address(False, False) Worksheets(FBFile).Range(gZelle.Address).Formula = "=WENN(Startseite!$D$6="";"";Startseite!$D$6)" Ich finde hier meinen Fehler nicht.. Lg Jörg

Salve,
schon ein paar Tage her, Lösung gefunden oder aufgegeben?

Ich tippe auf "dos problemos" ;-)

1. Du verwendest dt. Bezeichnungen, das muss man Herrn Excel mit "FormulaLocal" sagen
   
   
2. In der Formel sollen "" übergeben werden, die aber gleichzeitig für die Stringerkennung sorgen.
   Entweder Du deklarierst eine Anführungszeichenvariable oder Du setzt die "" in "", wobei man schon mal durcheinander kommen kann, guxu hier:
   

   Worksheets(FBFile).Range(gZelle.Address).FormulaLocal = _
       "=WENN(Startseite!$D$6=" & """""" & ";" & """""" & ";Startseite!$D$6)"

mfg
schnallgonz

Danke dir, das war der fehler...

Lg Jörg

• Laufzeitfehler 1004 bei Methode 'UpdateLink'
• Laufzeitfehler 1004
• VBA Excel
• Laufzeitfehler '1004' - bei Sheets().Range(Cells(), Cells()).copy
• Laufzeitfehler 1004 in Excel 2003