Code anpassen, Kopieren vba
08.11.2013 16:47:47
karl
mit dem folgenden Makro hole ich daten aus einer anderen datei
Leider werden auch die zellfarben mitkopiert übertragen
Wie muss ich den code anpassen
das ich nur die Wert mit den Zahlenformaten bekomme
Private Sub CommandButton1_Click()
Dim wksQuelle As Worksheet, wksZiel As Worksheet
Dim strPfad As String, StrDatei As String
Application.ScreenUpdating = False
Set wksZiel = Sheets("Daten")
strPfad = Sheets("Liste1").Cells(7, 3).Value
StrDatei = Sheets("Liste1").Cells(7, 4).Value
If Dir(strPfad & StrDatei) "" Then
Set wksQuelle = GetObject(strPfad & StrDatei).Sheets("Daten1")
With wksQuelle
.Range("A1:K100").Copy wksZiel.Range("A1")
If Not Windows(StrDatei).Visible Then .Parent.Close SaveChanges:=False
End With
End If
Application.ScreenUpdating = True
End Sub
vielen dank
karl
Anzeige