Range - Copy Destination & PasteSpecial
06.10.2013 23:15:34
Thomas
Dank Franz habe ich gedacht ich kann selbst weiterbasteln... aber weitgefehlt, ich bin draufgekommen dass ich eigentlich nur die WERTE kopieren darf da in dem Ausgangssheet teilweise Formeln vorhanden sind ,) soweit so schlecht, da Range Copy - wie von Franz unten sehr elegant verwendet offensichtlich (laut Dr. Google) keine Paste Special Zusätze erlaubt, richtig? Oder gibt es doch eine Möglichkeit so - und falls nicht wie müsste es aussehen wenn man's mit PasteSpecial machen muss?
danke schon wieder....
lg Thomas
Sub MonatsZusammenfassung()
Dim strOrdner As String, strTagZusFass As String
Dim lngZeile As Long
Dim wksMonatZusFass As Worksheet
Dim strTagDatei As String
Dim wkbTag As Workbook, wksTAF As Worksheet
Set wksMonatZusFass = ActiveSheet 'Zieltabelle
With wksMonatZusFass
strTagZusFass = .Range("B5").Text
strOrdner = .Range("B6").Text
'Zeilen in SPlate A ab Zeile 10 abarbeiten
For lngZeile = 10 To .Cells(.Rows.Count, 1).End(xlUp).Row 'Korrektur Zeile -- lngZeile
'Prüfen, ob leer
If .Cells(lngZeile, 1) = "" Then Exit For
'Eintrag in Spalte A
strTagDatei = .Cells(lngZeile, 1).Text
'Prüfen, ob Datei vorhanden
If Dir(strOrdner & Application.PathSeparator & strTagDatei) "" Then 'Korrektur strPfad _
_
-- strOrdner
'Datei schreibgeschützt öffnen
Set wkbTag = Application.Workbooks.Open(Filename:=strOrdner & _
Application.PathSeparator & strTagDatei, ReadOnly:=True) 'Korrektur strPfad -- _
_
strOrdner
Set wksTAF = wkbTag.Worksheets("TAF")
'Daten nach Ziel kopieren
wksTAF.Range("C3").Copy Destination:=.Cells(lngZeile, 2)
'Tages-Datei wieder schliessen
wkbTag.Close savechanges:=False
End If
Next
End With
End Sub
Anzeige