Office: Bereich einfärben range deklarieren

Weissbart · 22. Juli 2013

Hallo
zusammen

ich komme mal wieder nicht weiter

gibt es im folgendem Code irgendwie die Möglichkeit den spaltenbereich auch schon mit zu deklarieren?

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim IntZeile As Integer
Dim IntSpalte As Integer

For IntZeile = 1 To 1
For IntSpalte = 1 To 65

If Range("G" & IntZeile) = "1" Then

Range("G" & IntSpalte).Interior.ColorIndex = 6

End If

If Range("G" & IntZeile) = "" Then

Range("G" & IntSpalte).Interior.ColorIndex = 0

End If

Next
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Also brauche den Bereich G - NG

danke für eure Hilfe
gruß Ron

:)

HS(V) · 23. Juli 2013

Hallo Ron,

Du meintest so etwas.
Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G1")) Is Nothing Then Range("G1:NG65").Interior.ColorIndex = IIf(Range("G1") = 1, 6, xlNone)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly · 23. Juli 2013

Hi Ron,

habe ich das richtig verstanden: im Bereich G1:NG65 soll bei Eintrag von 1 in eine Zelle diese Zelle gelb gefärbt werden?

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G1:NG65")) Is Nothing Then
For Each Target In Target
If Not Intersect(Target, Range("G1:NG65")) Is Nothing Then _
Target.Interior.ColorIndex = IIf(Target = 1, 6, xlNone)
Next Target
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

EarlFred · 23. Juli 2013

Hallo Ron,
hallo Rateteam,

vielleicht auch so?
Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngTemp As Range

For Each rngTemp In Intersect(Target, Range("G1:NG65"))
rngTemp.Interior.ColorIndex = IIf(rngTemp.Value = 1, 6, xlColorIndexNone)
Next rngTemp

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

oder etwa so?
Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("G1")) Is Nothing Then
If Range("G1") = 1 Then
Range("G1:NG1").Interior.ColorIndex = 6
Else
Range("G1:NG1").Interior.ColorIndex = xlColorIndexNone
End If
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ron, das ist nicht die erste Rückfrage an Dich wegen unklarer Problembeschreibungen - und Du solltest zumindest als Fragesteller ein "alter Hase" sein. Magst Du nicht aus Fairness den Helfern gegenüber etwas mehr Zeit und Sorgfalt in die Beschreibung investieren, damit die Helfer nicht unnötig raten müssen?
Dein Code sollte zumindest in Ansätzen formatiert sein (Einrückungen!) - das macht nicht nur uns das Lesen leichter.

Grüße
EarlFred

HS(V) · 23. Juli 2013

Hallo Karin,

Wenn du Recht hast, soll diesen Code ausreichen?

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G1:NG65")) Is Nothing Then _
Target.Interior.ColorIndex = IIf(Target = 1, 6, xlNone)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

EarlFred · 23. Juli 2013

\@Harry,

die Prüfung Target = 1 schlägt fehl, sobald mehr als eine Zelle geändert wurde.
(Eingabe in mehrere Zellen mit Strg+Enter oder Einfügen nach Kopieren, um 2 Möglichkeiten zu nennen)

Grüße
EarlFred

Beverly · 23. Juli 2013

Hi Harry,

bei mehreren ausgewählten Zellen hast du damit ein Problem.

HS(V) · 23. Juli 2013

Hallo Karin & EarlFred,

Euch habt recht.
Ich war nicht von dieser Möglichkeit ausgegangen.

Weissbart · 25. Juli 2013

Hallo

zusammen ich kann ja auch nichts dafür mit dem Erklären ich versuch schon mein bestes *wink.gif*

also nochmal den code den ich gepostet habe funktioniert nur im bereich G1
wenn ich dort die 1 setze wird diese spalte G1:G65 gelb markiert.so solls auch sein. jetzt benötige ich es auch für die anderen Spalten G-NG

also nicht nur die 1 zelle gelb markieren sondern jeweils die Zelle und bis *65

gruß
Ron

HS(V) · 25. Juli 2013

Versuche es einmal Ron.

Code von Karin ein bisschen angepasst.
Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G1:NG1")) Is Nothing Then
For Each Target In Target
If Not Intersect(Target, Range("G1:NG1")) Is Nothing Then _
Target.Resize(65).Interior.ColorIndex = IIf(Target = 1, 6, xlNone)
Next Target
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly · 25. Juli 2013

Hi Ron,

das ist immer noch keine 100% keindeutige Aussage - es gibt also immer noch genügend Spielraum zu Interpretationen. Ich interpretiere es so: wenn in den Spalten G bis NG in Zeile 1 eine 1 eingetragen wird, sollen alle Zellen der betreffenden Spalte(n) bis Zeile 65 gelb formatiert werden:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
For Each Target In Intersect(Target, Range("G1:NG1"))
Range(Target, Target.Offset(64, 0)).Interior.ColorIndex = IIf(Target = 1, 6, xlNone)
Next Target
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Weissbart · 25. Juli 2013

jawohl korrekt

danke funktioniert jetzt

gruß
Ron

aber welche Interpretationen kann man da noch machen ?

Beverly · 25. Juli 2013

Hi Ron,

da niemand außer dir genau weiß, was dein Ziel ist bzw. was deine Voraussetzungen/Bedingungen sind, könnte man noch daraus interpretieren, dass eine beliebige Zelle im Bereich G1:NG65 die Farbänderung auslösen soll. Eine eindeutige Fragestellung wäre z.B. gewesen: wenn in eine Zelle im Bereich G1:NG1 eine 1 eingetragen wird, sollen alle Zellen dieser Spalte(n) von Zeile 1 bis einschließlich Zeile 65 gefärbt werden.

Weissbart · 25. Juli 2013

ok leuchtet ein

dann versuche ich es das nächste mal meine umständlichen erklärungsversuche
eindeutiger zu beschreiben betonung auf versuche *wink.gif*

ich danke euch auf jedenfall für eure geduld und hilfe.

gruß
Ron

Office: Bereich einfärben range deklarieren

Bereich einfärben range deklarieren

Bereich einfärben range deklarieren

Bereich einfärben range deklarieren

Bereich einfärben range deklarieren

Bereich einfärben range deklarieren

Bereich einfärben range deklarieren - Similar Threads - Bereich einfärben range

Bereich von Excel nach Word mit zusammenhängenden Passagen übergeben

Nur markierte Zellen kopieren und wieder einfügen

Bereich zweimal in Word einfügen (VBA)

Bereich (z.B. C1:C12) aus Formel berechnen lassen

Word geschützter Bereich in Tabelle

Namens-Bereich - Überschriften Zeile fehlt

Wenn Datum innerhalb gewissen Bereich dann Zeile einfärben