mal wieder ein kleines Probelm meinerseits.
Habe folgendes Makro aufgezeichnet
Sub MakroDatenlog()
' MakroDatenlog Makro
' Makro am 05.05.2010 von dhorn aufgezeichnet
ChDir "C:\WaPa"
Workbooks.OpenText Filename:= _
"C:\Dokumente und Einstellungen\dhorn\Eigene Dateien\WaPa\10-05-04 16.41 Test Büro.xls" _
_
, Origin:=28591, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=True, Other:=True, OtherChar:="/", FieldInfo:= _
Array(Array(1, 1), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 4), _
Array(7 _
, 1)), TrailingMinusNumbers:=True
Range("C13:E65536").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.NumberFormat = "0.0"
Range("G12").Select
Selection.NumberFormat = "@"
ActiveCell.FormulaR1C1 = "Uhrzeit"
Range("B13").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Range("B13:B65536").Select
Selection.NumberFormat = "0"
End Sub
und es läuft.
Nun möchte ich es erweitern und weiß nicht wie.
Anstelle der festen Datei soll ein Dialog, ähnlich wie bei Datei öffnen erscheinen. Ich wähle die entsprechende Datei aus und der Import läuft wie aufgezeichnet ab.
Die Dateien welche umgewandelt werden sollen, sind alle gleich aufgebaut.
Vielen Dank schon mal für Eure Hilfe,
Daniel