code geht nur halb
13.10.2005 10:07:37
lexika
kann mir vielleicht jemand sagen warum der folgende code nicht richtig funktioniert?
If Sheets("Sensor 5").Cells(32000, 6).Value "" And _
Sheets("Sensor 5").Cells(32000, 7).Value "" Then
Sheets("Sensor 5").Range("F21:I30000").Delete Shift:=xlUp
Dim Quelle As String, Ziel As String
Quelle = "D:\excel\Neu\5\gesamt.csv"
Ziel = "D:\excel\Neu\5\versuch.csv"
FileCopy Quelle, Ziel
MsgBox "Datei wurde kopiert!", vbOKOnly + vbInformation, "fertig"
End If
er wird über einen button ausgelöst und funktioniert auch beim ersten mal. drückt man den button nochmal ohne die datei versuch.csv zu löschen geht er nicht mehr. erst wenn die datei gelöscht worden ist funktioniert er wieder.
Danke