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