vba/Button zum Löschen von Textfeldern
13.10.2004 20:30:34
Textfeldern
Ich arbeite mit einer Datei auf zwei Rechnern. Einer mit NT4, der andere mit XP-Home.
Untenstehende Prozedur läuft unter NT4 mit Excel97 problemlos. Unter XP mit Excel2003 bekomme ich ständig den Laufzeitfehler 9.
Es handelt sich um einen Button zum Löschen der vorher eingegebenen Daten, da ich für einen neuen Arbeitsablauf die "geleerte" UF nutzen will.
Public
Sub daten_loeschen() 'Alle Eingaben in Tabelle 'Daten1/Spalte C' löschen
Workbooks("Arbeit.xls").Activate
loesch = MsgBox("Alle eingegebenen Daten werden gelöscht !!. Vorgang fortsetzen ? ", 4 + 32)
auswahl.Label1.Caption = " Löschen der Daten"
If loesch = vbYes Then
Application.Wait (Now + TimeValue("0:00:02"))
ActiveWorkbook.Worksheets("Daten1").Range("C1:C800").Value = ""
ActiveWorkbook.Worksheets("Splitwerte1").Range("C4:D4").Value = ""
ActiveWorkbook.Worksheets("Splitwerte1").Range("H5").Value = ""
ActiveWorkbook.Worksheets("Splitwerte1").Range("I5").Value = ""
ActiveWorkbook.Worksheets("Splitwerte1").Range("J5").Value = ""
ActiveWorkbook.Worksheets("Splitwerte1").Range("G9:N9").Value = ""
ActiveWorkbook.Worksheets("Splitwerte1").Range("I16:K16").Value = ""
Formularauswahl_loeschen
Textfelder_löschen 'Alle Textfelder in Druckformularen löschen
auswahl.Label1.Caption = ""
MsgBox ("Alle Daten wurden gelöscht !")
Else
Exit Sub
End If
End Sub
Kann mir jemand weiterhelfen?
Gruß Claudia