Hallo an alle,
Ich habe ein neues Problem, wobei mir Google nicht weitergeholfen hat.
Ich fülle Zellen mit Nahmen und Formeln.
Range("A2").Select
ActiveCell.FormulaR1C1 = "Meldeklasse"
Range("B2").Select
ActiveCell.FormulaR1C1 = "Gekommen"
Range("C2").Select
ActiveCell.FormulaR1C1 = "Gegangen"
Range("D2").Select
ActiveCell.FormulaR1C1 = "Quittiert"
Range("E2").Select
ActiveCell.FormulaR1C1 = "Text"
Range("F2").Select
ActiveCell.FormulaR1C1 = "Angelegt von"
Range("G2").Select
ActiveCell.FormulaR1C1 = "Quittiert von"
Range("B1").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT(MAX((R[1]C2:R[499]C2<>"""")*ROW(R[1]C2:R[499]C2)))-2" ' Diese Formel sagt mit wieviele Meldungen insgesamt sind
Range("C1").Select
ActiveCell.FormulaR1C1 = "=COUNT(R[1]C:R[499]C)" ' Diese zählt die gegangenen Meldungen
Range("D1").Select
ActiveCell.FormulaR1C1 = "=B1-C1" ' Diese sollte mir die Differenz anzeigen
Bei allen funktioniert es einwandfrei, außer bei der letzten Formel =B1-C1.
Aus einem mir unerfindlichen Grund trägt VBA in diese Zelle (D1) die folgende Formel ein: ='B1'-$A:$A
Ich verstehe nicht warum.
Wenn ich = $B1-$C1 in VBA eintrage, bekomme ich eine Fehlermeldung: Anwendungs-oder objektdefinierter Fehler
Gebe ich =(B1-C1) ein, bekomme ich =('B1'-$A:$A) heraus.
Ich bin mit meinem Latein (VBA) am ende.
Es wäre toll wenn mir einer erklären könnte, warum es nicht funktioniert, und wie man die letzte Zeile besser machen kann.
Danke
Bernd
|