Delete nicht möglich, warum ?
09.01.2004 10:04:03
marc
bevor ich in einem selektierten Bereich neue Werte kopiere, will ich den
gleichen Bereich von den alten Werten befreien.
Nun mit meinem Code ist die Methode nicht vorhanden warum?
Gibt es eine andere Möglichkeit mit der ich die alten Werte lösche ?
oder muss ich doch das Löschen in einem extra Vorgang erledigen.
marc :o)...
--------------------------------------------------------------------
Sub ErrorExport_Step3()
Dim wb As Workbook
Set wb = ActiveWorkbook
Dim Spalte As Integer
Dim Zelle As Range
Dim I As Integer
Worksheets("QAL_Ges").Range("C7:H14").Copy
Set wb = Workbooks.Open("C:\Auslauf\Alarm\Q_Ges.xls")
With Workbooks("Q_Ges.xls")
.Worksheets("Q_ATL_Info").Select
''''''----> Range("R7:W14").ClearContents '''''
Range("R7").PasteSpecial Paste:=xlValues, Paste:=xlFormats
Range("W7").Activate
Worksheets("QA_DB").Select
Application.ScreenUpdating = False
End With
I = 2
For Spalte = 4 To 53
If Cells(I, Spalte).Value = "" Then Exit For
Next Spalte
For Each Zelle In Sheets(1).Range("W7:W14")
Cells(I, Spalte).Value = Zelle.Value
I = I + 1
Next
Application.CutCopyMode = False
Application.ActiveWorkbook.Save
wb.Close False
Worksheets("Aus.Gr").Activate
End Sub
Anzeige