Zeilenumbruch im VBA Code

Hallo Forum,
Ich muß folgende Zeile aufteilen da der Code sonst zu lang wird und unübersichtlich wird.
If Target.Value = ("B4,D4,F4,H4,B15,D15,F15,H15,B28,D28,F28,H28...............")
Es sind jedoch viel mehr Zellbereiche die ich ansprechen muß sehe unten. Ein Zeilenumbruch mit "Space" und "Unterstrich" bringt mir jedoch immer folgenden Fehler.
Fehler meldung Erwartet Listentrennzeichen oder
Hat jemand einen Tip für mich?
(Private Sub Worksheet_Change(ByVal Target As Range)
'**************************************************
'* H. Ziplies *
'* 01.01.09 *
'* erstellt von Hajo.Ziplies@web.de *
'* http://Hajo-Excel.de/
*
'**************************************************
Dim StBild As String ' Variable für Bildname
Dim InI As Integer ' Schleifenvariable
Dim RaBereich As Range ' Bereich der Wirksamtkeit
Dim RaZelle As Range ' Zelle die in der Schleife bearbeitet wird
' Bereich der Wirksamkeit

If Target.Value = ("B4,D4,F4,H4,B15,D15,F15,H15,B28,D28,F28,H28")
Set RaBereich = Union(Range("B4,D4,F4,H4,B15,D15,F15,H15,B28,D28,F28,H28,B39,D39,F39,H39,B52,D52,F52,H52"), _
Range("B63,D63,F63,H63,B76,D76,F76,H76,B87,D87,F87,H87,B100,D100,F100,H100,B111,D111,F111,H111"), _
Range("B124,D124,F124,H124,B135,D135,F135,H135,B148,D148,F148,H148,B159,D159,F159,H159"))
Vielen Dank im Voraus.
Karel

Hallo Sep
das Funktioniert perfekt aber ?
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = ("B4,D4,F4,H4,B15,D15,F15,H15,B28,D28,F28,H28,B39,D39,F39,H39,B52,D52,F52,H52" & _
"B63,D63,F63,H63,B76,D76,F76,H76,B87,D87,F87,H87,B100,D100,F100,H100,B111,D111,F111,H111" & _
"B124,D124,F124,H124,B135,D135,F135,H135,B148,D148,F148,H148,B159,D159,F159,H159") Then Exit Sub
aber wenn ich das gleiche versuchen für Gleiche Zellbereich im Code unter bekommen ich wieder gleiche Fehlermeldung woan liegt dass.


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range("A1").Activate
Dim Zelle As Range
Dim Bereich As Range
Set Bereich = Range("B4,D4,F4,H4,B15,D15,F15,H15,..........")
For Each Zelle In Bereich
Zelle.Select
Next
End Sub

Grusse
Karel

Forumthread: Zeilenumbruch im VBA Code

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial