Bei Doppelklick mit X füllen über mehrere Bereiche
15.04.2015 20:29:47
akruegr
ich habe bereits eine kleine Prozedur gefunden, die das Thema "eigentlich schon löst:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim bereich As Range
Set bereich = Range("B3:F3")
If Intersect(Target, bereich) Is Nothing Then Exit Sub
Cancel = True
Intersect(Target.EntireRow, bereich) = ""
Select Case Target
Case "": Target = "x"
Case "x": Target = ""
End Select
End Sub
Ich habe allerdings folgende Bereiche, auf die ich Intersect(Target.EntireRow, bereich) = "" getrennt anwenden möchte (natürlich alle in einer Reihe):
Set bereich = Range("B3:E3")
Set bereich2 = Range("F3:I3")
Set bereich3 = Range("J3:M3")
Set bereich4 = Range("N3:Q3")
Set bereich5 = Range("R3:U3")
Diese sind mit Union auch bereits zu einem Gesamtbereich zusammen gefasst. Allerdings klappt das nicht. Ich kann zwar die Bereiche auswählen, aber dann löscht er mir alles über den Gesamtbereich.
Wie kann ich hier eine Trennung hinbekommen (das EntireRow umgehen) und das Doppelklicken für die getrennten horizontalen Bereiche anwenden?
Und wie kann ich das vertikal erweitern? (B3:U12)
Vielen Dank für eventuelle Antworten.