Datenübernahme UserForm
12.02.2004 11:32:59
Paul
Arbeite mit USERFORM um Daten in einer ECXEL Tabelle zu verschieben.
In Spalte F sind Preise. Die Formatierung ist Zahlen mit Dezimalstellen 2 und 1000 Trennzeichen.
Bei der Übernahme wird aus dem Punkt ein Koma.
Wenn ich jedes mal das Koma in ein Punkt ändere werden die Daten korrekt ins Excelzurückgespeichert. Andernfalls habe ich Textformat
Bei einem Spätern erneuten einlesen habe ich eine Fehlermeldung Typenuntertäglichkeit.
.
Ich habe den Teil der mit dem Einlesen zutun hat kopiert.
Option Explicit
Dim FeldA As String
Dim FeldB As String
Dim FeldC As String
Dim FeldD As String
Dim FeldE As String
Dim FeldF As Currency
Dim FeldH As Date
Private Sub UserForm_Initialize()
Dim frm As UserForm
Einlesen
Abfrage = False
Anzeigen
End Sub
Function Einlesen()
Set frm = UserFormMMOffertenAendern
' Zelle Bestimmen
l = ActiveCell.Row
'Datenübernahme vom Excel
FeldA = Cells(l, 1).Value
FeldB = Cells(l, 2).Value
FeldC = Cells(l, 3).Value
FeldD = Cells(l, 4).Value
FeldE = Cells(l, 5).Value
FeldF = Cells(l, 6).Value
End Function
Was ist hier falsch?
Danke Paul