ich habe mit eurer Hilfe folgenden Makro erstellt:
Sub Daten_Aktualiseren_Jan()
Dim wbAlt As Workbook, wbNeu As Workbook, strWks As String
Dim wksNeu As Worksheet, wksAlt As Worksheet
Dim varDatei
varDatei = Application.GetOpenFilename(Filefilter:="Excel (*.xls),*.xls", _
Title:="Bitte Alte Datei mit Daten auswählen", MultiSelect:=False)
If varDatei = False Then GoTo Ende
strWks = "Januar"
Set wbNeu = ThisWorkbook
Set wksNeu = wbNeu.Worksheets(strWks)
Set wbAlt = Workbooks.Open(Filename:=varDatei)
Set wksAlt = wbAlt.Worksheets(strWks)
With wksAlt
.Range(.Cells(8, 7), .Cells(38, 8)).Copy Destination:=wksNeu.Cells(11, 5)
Application.CutCopyMode = False
.Range(.Cells(8, 10), .Cells(38, 11)).Copy Destination:=wksNeu.Cells(11, 8)
Application.CutCopyMode = False
.Range(.Cells(8, 13), .Cells(38, 14)).Copy Destination:=wksNeu.Cells(11, 10)
Application.CutCopyMode = False
.Range(.Cells(8, 16), .Cells(38, 17)).Copy Destination:=wksNeu.Cells(11, 12)
Application.CutCopyMode = False
.Range(.Cells(8, 19), .Cells(38, 20)).Copy Destination:=wksNeu.Cells(11, 14)
Application.CutCopyMode = False
End With
wbAlt.Close savechanges:=False
Ende:
Set wbAlt = Nothing: Set wbNeu = Nothing
Set wksAlt = Nothing: Set wksNeu = Nothing
End Sub
Mit diesem Makro lese ich Daten aus einer alten Datei in die neue Datei ein. Leider werden nicht nur die Werte aus der alten Datei übernommen, sondern auch die Formate. Gibt es eine Möglichkeit, NUR die Werte (ohne Format) aus der alten Datei auszulesen?
Beste Grüße
Jürgen