Local:=True | einbetten
12.06.2014 10:59:24
Basti
ich komme bei meinem Makro nicht weiter.
ich versuche schon seit längeren Local:=True in das Makro einzubauen.
bisher ohne Erfolg.
Hintergrund ist, das ich Messwerte in Excel einlesen will und anschließend eine auswertung machen will.
ich habe beim laden der Messwerte jedoch folgendes Problem:
Messwerte mit 0,123 werden als 0,123 ubermittelt jedoch werte wie 1,234 werden als 1234 bzw 1.234 übermittelt. ich wollte dieses mit Local:=True verhindern.
hier das Makro:
Sub Import_mit_Dialog()
Dim Quelle As Object, Ziel As Object
Dim Datei As String
On Error GoTo Fehler
'Dialog "Datei öffnen" anzeigen
Datei = Application.GetOpenFilename("Excel-Dateien(*.txt),*txt")
'Abbrechen falls keine Datei ausgewählt
If Datei = "Falsch" Then
MsgBox "keine Datei ausgewählt", , "Abbruch"
Exit Sub
End If
'MsgBox "Ausgewählte Datei: " & Datei, , ""
'Ausgewählte Datei öffnen
Workbooks.Open Filename:=Datei
Set Quelle = ActiveWorkbook.Worksheets(1)
Set Ziel = ThisWorkbook.Worksheets(1)
Rows("1:2").Select
Selection.Delete Shift:=xlUp
Rows("3:8").Select
Selection.Delete Shift:=xlUp
Columns("B:C").Select
Selection.Replace What:=",", Replacement:=";", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
'kopieren und einfügen
Quelle.UsedRange.Copy Ziel.Cells(1, 1)
ActiveWorkbook.Close
'Speicher freigeben
Set Quelle = Nothing
Set Ziel = Nothing
Exit Sub
Fehler:
Set Quelle = Nothing
Set Ziel = Nothing
MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
& "Beschreibung: " & Err.Description _
, vbCritical, "Fehler"
End Sub
LG Basti