title image


Smiley Re: VBA: Daten kopieren, aber vorher Inhalte löschen
Hi!



Es wundert mich ernsthaft, dass mit diesem Code überhaupt was geht und nicht eine Fehlermeldung nach der anderen eingeblendet wird.



So sollte der Code funktionieren:



Sub Daten_kopieren()

Dim WbA, WbN As Workbook

Dim WsA, WsD As Worksheet

Set WsA = ActiveSheet

Set WbA = WsA.Parent



WsA.Range(Cells(5, 1), WsA.SpecialCells(xlCellTypeLastCell)).Copy

Workbooks.Open Filename:="C:\Programme\SoftM AG\Suite\Vorlagen\DataExplorer\DispoZEK Daten V1.xls"



Set WbN = Application.Workbooks(Application.Workbooks.Count)

Set WsD = WbN.Worksheets("Daten")



WsD.UsedRange.ClearContents

WsD.Range("A1").PasteSpecial xlPasteValues



Application.CutCopyMode = False



WbN.Save

WbN.Close



Set WbA = Nothing

Set WbN = Nothing

Set WsA = Nothing

Set WsD = Nothing

End Sub

Grüße

 

LXus

 

Win7 x64

Office 2013 x64



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: