Code geht nicht auf allen Rechnern, warum?
25.02.2005 15:39:37
Drazen
folgender Code
Private Sub RECHNUNGEINTRAGEN()
Sheets("RECHNUNGEN").Activate
Dim xZeile As Long
xZeile = Range("A65536").End(xlUp).Row + 1
Cells(xZeile, 1) = txtRNummer
Cells(xZeile, 2) = lblrd6
Cells(xZeile, 3) = txtRBestellNummer
Cells(xZeile, 4) = txtRFirma
Cells(xZeile, 5) = txtRStrasse
Cells(xZeile, 6) = txtROrt
Cells(xZeile, 7) = txtRSachbearbeiter
Cells(xZeile, 8) = CDbl(VBA.Format(Sheets("TAVISO").Cells(1, 38), "#,###.#0 "))
Cells(xZeile, 9) = "0"
Cells(xZeile, 10) = "=Round((RC[-2]-RC[-1]), 2)"
Columns.AutoFit
End Sub
geht auf meinem PC einwandfrei, alles wird wie gewünscht eingetragen. Wenn ich die gleiche Mappe auf einem anderen PC ausführe bleibt er immer beim Befehl
Cells(xZeile, 8) = CDbl(VBA.Format(Sheets("TAVISO").Cells(1, 38), "#,###.#0 "))
stehen mit "Laufzeitfehler 1004, Typen unverträglich". Auf dem anderen Rechner ist das gleiche Windows-System und Office-Paket drauf und alle Service-Packs sind auch drauf. Woran liegt das, hat jemand eine Idee, ist doch im Grunde ein einfacher Befehl oder?
Grüsse
Drazen