habe folgendes Problem:
formatierte Stammdaten werden im Dialogfenster falsch wiedergegeben.
zB.: Formatierung in , Anzeige erfogt in $.
Wie löse ich dieses Problem?
Vielen Dank im voraus.
Gruß Pia
Sub FepHolen()
Dim PgDaten As Object
Set PgDaten = Worksheets("TAEIN").Cells (1, 1).CurrentRegion
ZeilenNr = DialogSheet("FAEIN").DropDowns ("Pg").ListIndex
If ZeilenNr > 0 Then
PgSignal = True
With DialogSheets ("FAEIN")
.DropDowns("Pg").Text = Worksheets("TAEIN").Cells(ZeilenNr, 1).Value
.EditBoxes("bstn").Text = Worksheets("TAEIN").Cells(ZeilenNr, 2).Value
.EditBoxes("Pr").Text = Worksheets("TAEIN").Cells(ZeilenNr, 3).Value
End With
Else
FepÜberprüfen
End If
End Sub
.DropDowns("Pg").Text = Worksheets("TAEIN").Cells(ZeilenNr, 1).Value
.DropDowns("Pg").Text = Worksheets("TAEIN").Cells(ZeilenNr, 1).Text