AW: Zahlen löschen
13.11.2003 08:03:10
Peter der 3.te :-)
Guten Morgen Manu und Peter's,
Bin ja wohl der dritte Peter hier! :-))
Am einfachsten geht es mit einem Modul Manu,
--------------------------------------------
Sub Löschen()
Sheets("Tabelle soundso").Activate
Dim i As Integer
Dim Bereich As Range
On Error Resume Next
i = MsgBox _
("Sollen die Inhalte der ganzen Tabelle gelöscht werden?", _
vbQuestion + vbOKCancel, "Löschabfrage")
If i = 1 Then Range("A1:A65536").ClearContents Else _
Set Bereich = _
Application.InputBox(prompt:="Einzelne(n) Mitarbeiter(in) löschen!" & Chr(13) & _
"Bitte Tragen Sie den Bereich ein, " & Chr(13) & _
"der gelöscht werden soll! zB. A12:A42", _
Type:=8)
If Bereich Is Nothing Then
MsgBox "Sie haben keinen Bereich ausgewählt!", _
vbExclamation
Else
Bereich.Select
MsgBox "Ausgewählten Bereich wirklich löschen?"
If i = vbOKCancel Then Exit Sub
Selection.ClearContents
Range("A1").Select
End If
End Sub
----------------------------------------------------------------
Tabelle soundso musst Du durch deine ersetzen!!
Then Range in(da wo deine Zahlen stehen)ändern!
Du kannst den Bereich auch in der InputBox eingeben,
dann wird nur der Bereich gelöscht.
Schönen Tag noch Gruss Peter