Hallo!
Mein Chef gab mir die Aufgabe, ein Makro zu schreiben, welches einen Datenbestand aus einem ASCII-File einliest, diese in einer Exceltabelle darstellt und anschließend (auf einem anderen Tabellenblatt) einige Berechnungen damit anstellt und die Ergebnisse ausgibt.
Die ersten beiden Aufgaben erledigt das Makro einwandfrei, jedoch habe ich bei den Berechnungen ein Problem: Sie werden teilweise (!!!) nicht durchgeführt!
Der grobe Ablauf des Makros:
- Löschen aller Feldinhalte in beiden Tabellenblättern
- Formatieren der Zellen in beiden Tabellenblättern (Text bzw. Zahlen)
- Zeilenweises einlesen der Datei und Ausgabe in Spalten auf dem ersten Tabellenblatt
- Kopieren einiger Zelleninhalte von Tabellenblatt 1 in das Tabellenblatt 2
- Formatieren aller Zeilen & Spalten auf beiden Tabellenblättern (optimale Höhe und Breite)
- Schreiben der Berechnungen in Zellen des zweiten Tabellenblattes
Der Aufbau des zweiten Tabellenblattes ist wie folgt:
Spalte A = kopierte Texte /* Als Text formatiert */
Spalte B = berechnete Werte /*Als Zahl formatiert */
Die Formeln werden wie folgt eingetragen (diese nur als Beispiel):
Sheets(„Auswertung“).Select
Range(„C3“).Select
ActiveCell.FormulaR1C1 = „=SUM(Grunddaten!RC[2]:R[65533]C[2])/4“
Range(„C4“).Select
Das ausgeworfene Ergebnis: 0,00
Korrekt wäre jedoch: 0.28
Das Problem tritt komischerweise NUR bei Kommazahlen auf, Ganzzahlen werden einwandfrei berechnet.
Wenn ich in die Spalten des Grunddaten Kommazahlen eingebe (manuell), werden diese rechtsbündig gezeigt und die Berechnung funzt einwandfrei, die eingelesenen Werte werden jedoch linksbündiggezeigt…
Mir drängt sich der Verdacht auf, das der Fehler nicht im Makro liegt… nur… wo dann!!!
Die Formatierung der Bereiche ist mehrfach gecheckt und korrekt.
Bin für jede Anregung dankbar … (wenn es sein muß bin ich auch für eine QD-Lösung zu haben)
TIA
Gruß, Michael
