Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

hiiiilfe, kleine änderung im vba code bitte

hiiiilfe, kleine änderung im vba code bitte
17.02.2005 11:15:21
carsten
hallo,
der code macht eine quasi bedingte formatierung, aber ich muss zusätzlich die range F1:H5 formatieren. die range entsprechend zu vergrössern klappt deshalb nicht, weil die eingaben in spalte c,d und e nicht betroffen sein dürfen.
kann jemand helfen?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim var
If Intersect(Target, Range("A1:B5")) Is Nothing Then Exit Sub
For Each Zelle In Target
If Zelle.Value = "" Then
Zelle.Interior.ColorIndex = xlNone
Else
var = Application.Match(Zelle.Value, Worksheets("Farbindex").Columns(1), 0)
Zelle.Interior.ColorIndex = Worksheets("Farbindex").Cells(var, 2)
Zelle.Font.ColorIndex = Worksheets("Farbindex").Cells(var, 3)
End If
Next Zelle
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: hiiiilfe, kleine änderung im vba code bitte
17.02.2005 11:22:21
Mac4
So sollte es gehen:
If Intersect(Target, Range("A1:B5,F1:H5 ")) Is Nothing Then Exit Sub
Marc
AW: hiiiilfe, kleine änderung im vba code bitte
Kurt
If Intersect(Target, Range("A1:B5,F1:H5")) Is Nothing ....
superschnelle hilfe, und funz natürlich.
carsten
danke
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige