HERBERS Excel-Forum - das Archiv
Bewerten Sie hier bitte das Excel-Portal
Multiplikationsformel eingeben - Syntax
Peter

Guten Tag
Irgend etwas ist an der Formeleingabe falsch. Was wohl?
Danke für jeden Hinweis.
Gruss, Peter
For zNr = ActiveCell.Row - 1 To 6 Step -1
If IsNumeric(Cells(zNr, "D")) Then Cells(zNr, "H").Formula = "=" & Cells(zNr, "D") & "*" & Cells(zNr, "F")
Next zNr

AW: Multiplikationsformel eingeben - Syntax
JoWE

Peter,
Cells(zNr,"H")
Alphanumerische Werte sind, soweit mir bekannt, an dieser Stelle unzulässig.
Du mußt stattdessen numerische Werte einsetzen.
Grüße
Jochen
AW: Multiplikationsformel eingeben - Syntax
Peter

Hallo Jochen
Danke für den Hinweis. Allerdings scheint hier Excel in dieser Sache nachsichtig zu sein ...
Mein Fehler war, dass ".Address(0,0) gefehlt hat.
Gruss, Peter
For zNr = ActiveCell.Row - 1 To 6 Step -1
If IsNumeric(Cells(zNr, "D")) Then Cells(zNr, "H").Formula = "=" & _
Cells(zNr, "D").Address(0, 0) & "*" & Cells(zNr, "F").Address(0, 0)
Next zNr
AW:oder so
hary

Hallo Peter
so gehts auch. 

If IsNumeric(Cells(zNr, "D")) Then Cells(zNr, "H").Formula = "=D" & zNr & "*F" & zNr

gruss hary
Nachsichtig? Ja, aber wie lange noch,...
Luc:-?

...Peter...?! ;-)
Ein Syntaxverstoß bleibt's trotzdem! Das sollte man sich gar nicht erst angewöhnen, denn auch, wenn's toleriert wird, sollte man doch die automatische Umwandlung vermeiden, denn die führt fast immer zu Performance-Verlusten, was sich bei entsprechendem Datenumfang auch zeigen würde.
Gruß und GuRutsch, Luc :-?
AW: Nachsichtig? Ja, aber wie lange noch,...
Peter

Danke Luc - werde das beherzigen - auch dir ein guter Rutsch und beste Grüsse, Peter