Hallo,
ich verwende ein Makro zum Übertragen von Daten. Es funktioniert soweit auch gut. Das Problem besteht jedoch, wenn in der Quell-Datei der Zahlenwert mit einem Apostrohp geschrieben wurde (z.B. '12345.1200). Beim Übertragen wird der Wert falsch angezeigt (z.B. 12.345,12)
-----------------------------------------------------
Sub Daten()
Dim strPfad As String, strDatei As String, strTabelle As String, strZelle As String
.
.
strPfad = Application.ActiveWorkbook.Path + "\" ' Aktuelle Datei Pfad
strDatei = "Daten.xls" ' Name der Datei
strTabelle = "Artikel" 'Name der Tabelle
.
strZelle = "R" & j & "C1" 'Sach-Nummer
Range("A" & i & "") = Application.ExecuteExcel4Macro("'" & strPfad & "[" & strDatei & "]" & strTabelle & "'!" & strZelle)
.
.
End Sub
-----------------------------------------------
Danke im voraus.
Camillo
