Mehrere Intersect Bereiche mit Vaiable

Servus,
Ich bin neu hier bei Euch und könnte Eure Hilfe gebrauchen.
Ich habe mehrere untereinander separate Intersect Bereiche.
Mit dem Selection Change Ereignis kann ich die Zellen mit einer vordefinierten Hintergrundfarbe verändern.
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Intersect(Target, Range("D6:L10")) Is Nothing Then
'?
Else
If Target.Row 10 Then Exit Sub
If Target.Column If Target.Column > 55 Then Exit Sub
Target.Interior.ColorIndex = Range("B5").Font.ColorIndex
End If
If Intersect(Target, Range("D12:L16")) Is Nothing Then
'?
Else
If Target.Row 16 Then Exit Sub
If Target.Column If Target.Column > 55 Then Exit Sub
Target.Interior.ColorIndex = Range("B11").Font.ColorIndex
End If
Dieser Code tut was er soll alles ok.
Jetzt habe ich aber unterhalb der Zeile 10 noch eine Zeile gebraucht
und schon passt der ganze Code nicht mehr.
z.B. diese Zeile muss jetzt auf L11 erweitert werden.
If Intersect(Target, Range("D6:L10")) Is Nothing Then
z.B. diese Zeile muss jetzt auf D13:L17 erweitert werden.
If Intersect(Target, Range("D12:L16")) Is Nothing Then
Hier im Forum habe ich schon gefunden das ich für die Zeilen Nummer eine Variable nehmen kann.
Dim zeilen_nr As Long
If Intersect(Target, Range("D6:" & "L" & zeilen_nr)) Is Nothing Then
Aber ich weiß nicht wie die Variable die Info bekommen soll das eine neue Zeile eingefügt wurde.
Wer von Euch könnte mir bitte helfen dieses Problem zu lösen?
Grüße Pemito

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Not Intersect(Target, Range("D6:L11")) Is Nothing Then 'nur, wenn im Bereich D6:L11 eine Zelle gewählt wurde, erhält diese die Hintergrundfarbe von B5 Target.Interior.ColorIndex = Range("B5").Font.ColorIndex End If If Not Intersect(Target, Range("D13:L17")) Is Nothing Then 'nur, wenn im Bereich D13:L17 eine Zelle gewählt wurde, erhält diese die Hintergrundfarbe von B11 Target.Interior.ColorIndex = Range("B11").Font.ColorIndex End If End Sub

Hallo ralf_b,
Vielen Dank für deine Antworten und Hilfe.
Warum gehst du davon aus das ich hier nur fragen will? Das ist heute schon der dritte Tag wo ich Google und gewisse Foren durchsuche.
Den VBA Code den ich hier reingestellt habe ist auch nur aus dem Internet.
Also meine Fehler ist das ich nicht richtig beschrieben habe was ich möchte. Ich dachte so wie ich es beschreibe reicht es aus.
Also in Zukunft immer eine Beispieldatei und wir haben weniger Missverständnisse.
Also versuche ich es jetzt besser zu beschreiben + die Datei.
Warum ich eine Zeile einfügen möchte ist wenn in Spalte B von B6 - B10 keine Zelle mehr frei ist. In B11 steht eine neue Überschrift vom nächsten Bereich.
Von D6 - L10 kann man die Zellen durch reinklicken die Hintergrundfarbe ändern.
Wenn ich jetzt unter der Zeile 10 manuell eine Zeile einfüge dann ändert sich der Bereich von D6 - L10 auf D6 - L11
Deswegen meine Idee mit der Variable.
If Intersect(Target, Range("D6:" & "L" & zeilen_nr)) Is Nothing Then


Wir wissen ja nicht ob es mehrere Tabellenbereiche untereinander gibt. Hier würde Cells(rows.count,1) ..... nur "unten" anschlagen.

Als wenn du Gedanken lesen könntest.
Es gibt in der Spalte B mehrere Teilbereiche (zur Zeit 3) wo es mehre Zellen gibt die leer sein können.
Mit End(xlUp) wär mir nicht geholfen laut I-Net gibt es auch xlDown von oben nach unten aber wie setzt man das auf Teilbereiche ein?


Auch die Idee eines Bereichsnamens wäre hier noch zu erwägen.

Von Bereichsnamen habe ich noch nichts gehört das schaue ich mir mal an.
@ Oberschlumpf
Vielen Dank auch für deine Unterstützung und Beispielcode.
Dann bitte ich noch um Entschuldigung falls ich hier nicht die Forenregeln eingehalten habe.
Ich möchte hier niemanden die Zeit rauben. Und dann wünsche ich allen ein frohes und vor allem gesundes neues Jahr.
https://www.herber.de/bbs/user/150070.xlsm
Grüße Pemito

'wenn ganze Zeile oder ganze Spalte ausgewählt wurde If Selection.Address = Target.EntireRow.Address Or Selection.Address = Target.EntireColumn.Address Then Exit sub 'bereich von überschrift 1 bis 5 zeilen unterhalb anfangbereich3 und 10 Spalten nach rechts If Not Intersect(Target, Range(Range("anfangbereich1").Offset(, 1), Range("anfangbereich3").Offset(5, 10))) Is Nothing Then

Beliebteste Forumthreads (12 Monate)

Mehrere Intersect Bereiche mit Vaiable

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread