Spalten erweitern

Question

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Range("a1:a10")) Is Nothing Then
ActiveWindow.Zoom = 75
Else
ActiveWindow.Zoom = 100
End If
End Sub

wie kann ich den bereich auch auf die spalte c und e erweitern ???

danke für jede hilfe :-)

Answer 1

If Intersect(Target, Range("a1:a10, C1:C10")) Is Nothing

Answer 2

geht leider nicht habe ich schon probiert !!!
laufzeitfehler 1004

Answer 3

Das liegt dann aber nicht am Code

Answer 4

wenn ich das nur mit der spalte a mache geht es ja. was muß ich ändern das es geht ????

Answer 5

ich sehe Deine Datei nicht. Da es nicht am Code liegt muss es ja an der Datei liegen.

Answer 6

du kannst es mit einer neuen ausprobieren, geht auch nicht !!! :-(

Answer 7

Hallo,

wenn ich deinen vorhandenen Code wie von Hajo beschrieben umbaue müsste der nach deiner Frage so aussehen:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Range("A1:A10, C1:C10, E1:E10")) Is Nothing Then
ActiveWindow.Zoom = 75
Else
ActiveWindow.Zoom = 100
End If

End Sub

Dieser Code funktioniert einwandfrei (Excel 2007).

Gruß

M.O.

Answer 8

ich habe es in 2003 getestet und ok

Answer 9

Super, geht ich glaube ich hatte das leerzeichen nicht dabei. :-)
danke nochmal !!!!