Mehrere Bereiche markieren (gezielt weiter machen)
02.01.2007 17:18:36
proxima05
ich habe eine Tabelle, die periodisch aktualisiert wird, u.a. sind dann mehrere Löschungen vorzunehmen. Da diese nicht ganz unheikel sein können, möchte ich da gesteuert durchführen. Los geht es mit dem Markieren der Bereiche, deren Inhalte gelöscht werden sollen. Das möchte ich mit dem folgenden Code erreichen:
========================================
Private Sub AdminButton1_Click()
Dim Bereich1 As Range
Dim Bereich2 As Range
Dim Gesamtbereich As Range
Dim Qe1 As Integer
Dim Qe2 As Integer
' Der folgende Code markiert mehrere Bereiche und gibt deren Koordinaten aus
Sheets("Tabelle").Select
Set Bereich1 = Range("D5:G575")
Set Bereich2 = Range("Q5:Q575")
Set Gesamtbereich = Union(Bereich1, Bereich2)
Gesamtbereich.Select
Qe1 = MsgBox("Sie haben die Zellen " & _
Gesamtbereich.Address & " markiert! Möchten Sie mit der " & _
"Aktualisierung fortfahren?", vbCritical + vbOKCancel)
If Qe1 = vbCancel Then
Set Bereich1 = Nothing
Set Bereich2 = Nothing
Set Gesamtbereich = Nothing
Else
Qe2 = MsgBox("Sollen die Zellinhalte im markierten Gesamtbereich vollständig gelöscht werden?", _
vbYesNo + vbQuestion)
If Qe2 = vbNo Then
Set Bereich1 = Nothing
Set Bereich2 = Nothing
Set Gesamtbereich = Nothing
Else
If Qe2 = vbYes Then Exit Sub
'On Error Resume Next
'Range("Q5:T575").SpecialCells(xlCellTypeConstants, 3).ClearContents
End If
End If
End Sub
========================================
Beim Selektieren des Gesamtbereichs erhalte ich die Fehlermeldung
"Die Select-Methode des Range-Objekts konnte nicht ausgeführt werden."
Ein davor gesetztes "ActiveSheet.Gesamtbereich.Select" bringt die Meldung "Objekt unterstützt diese Eigenschaft oder Methode nicht."
Kann mir da jemand helfen, was da stehen muss?
Ich hoffe, der Rest des Codes ist ok.
Danke für Unterstützung.
Ralph