Datum

Titel

26.09.2025 10:29:46

Wert aus einer Zelle bei jeder Eingabe in neue Zelle

26.09.2025 08:51:00

Teilinhalt einer Zelle vergleichen

25.09.2025 23:04:12

Einen von drei möglichen Einträgen in einer Zeile suchen

25.09.2025 19:59:48

Lebenserleichternde Datei, im Bezug auf die Essensauswahl

Keine passende Antwort im Forumarchiv gefunden?

Stelle deine Frage im Live-Forum

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Vorheriger Thread

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Nächster Thread

Vorwärts blättern

Inhaltsverzeichnis

VBA-Code für Bereich mit Farbe ausfüllen

Forumthread: VBA-Code für Bereich mit Farbe ausfüllen
6 Beiträge zu diesem Forumthread
Anzeige
159 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen
Top 100 Forumthreads

Forumthread: VBA-Code für Bereich mit Farbe ausfüllen

Karsten

Hallo,
könnte mir bitte jemand beim Bau des Codes helfen?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
If Zelle.Value = "Blfl." Then
diese und die beiden Zellen daneben rechts und die unter "Zelle" und die beiden Zellen daneben rechts mit
Colorindex = 3 ausfüllen.
End if
Besten Dank für die Hilfe.
Gruß
Karsten

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: VBA-Code für Bereich mit Farbe ausfüllen

Backowe
AW: VBA-Code für Bereich mit Farbe ausfüllen

Karsten
Dann arbeite mit Offset!

Backowe
AW: Dann arbeite mit Offset!

Karsten
Select Case

Rudi
AW: Select Case

Karsten

AW: VBA-Code für Bereich mit Farbe ausfüllen

04.10.2010 09:15:07

Backowe

Hi Karsten,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "Blfl." Then _
Target.Resize(2, 3).Interior.ColorIndex = 3
End Sub

Gruß Jürgen

AW: VBA-Code für Bereich mit Farbe ausfüllen

04.10.2010 09:29:29

Karsten

Hallo Backowe
Danke. Ich habe was verwechselt. Es sollte so heißen:
diese und die beiden Zellen daneben rechts und die unter "Zelle" und die beiden Zellen daneben rechts
Die 3 (2, 3) sind die drei Zellen nach rechts. Die 2 Ist wohl "Zelle" und die darunter. Aber wie komme ich eine höher. -2 geht nicht.
Gruß
Karsten

Dann arbeite mit Offset!

04.10.2010 09:42:48

Backowe

Hi Karsten,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target = "Blfl." Then _
Range(Target, Target.Offset(-1, 2)).Interior.ColorIndex = 3
Range(Target, Target.Offset(1, 2)).Interior.ColorIndex = 3
End If
End Sub

Gruß Jürgen

AW: Dann arbeite mit Offset!

04.10.2010 10:55:52

Karsten

Hallo Jürgen,
danke. so funktioniert es.
Wenn nicht "Blfl.","Key.""Sax." brauche ich Colorindex = xlNone. Mit meiner Else-Konstruktion komme ich daaber nicht klar. Kannst du mir das noch richtig machen?
Danke
Gruß
Karsten
If Target.Count = 1 Then
If Target = "Blfl." Then _
Range(Target, Target.Offset(-1, 2)).Interior.Colorindex = 34
If Target.Count = 1 Then
If Target = "Key." Then _
Range(Target, Target.Offset(-1, 2)).Interior.Colorindex = 36
If Target.Count = 1 Then
If Target = "Sax." Then _
Range(Target, Target.Offset(-1, 2)).Interior.Colorindex = 38
else
If not Target = "Sax." or "Blfl." or "Key." Then _
Range(Target, Target.Offset(-1, 2)).Interior.Colorindex = 38

Select Case

04.10.2010 11:11:07

Rudi

Hallo,

If Target.Count = 1 Then
Select Case Target
Case "Blfl."
Range(Target, Target.Offset(-1, 2)).Interior.ColorIndex = 34
Case "Key."
Range(Target, Target.Offset(-1, 2)).Interior.ColorIndex = 36
Case "Sax."
Range(Target, Target.Offset(-1, 2)).Interior.ColorIndex = 38
Case Else
Range(Target, Target.Offset(-1, 2)).Interior.ColorIndex = xlNone
End Select
End If

Gruß
Rudi

AW: Select Case

04.10.2010 11:43:47

Karsten

Hallo Rudi,
besten Dank:
Gruß
Karsten

;