Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
564to568
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
564to568
564to568
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA

VBA
11.02.2005 10:48:42
Franz
Kann man folgende Befehlszeilen vereinfacht darstellen?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Range("D5") = "L" And Range("F5") > "1" Then Range("F5").Interior.ColorIndex = 36
If Range("D5") = "L" And Range("G5") > "1" Then Range("G5").Interior.ColorIndex = 36
If Range("D5") = "L" And Range("H5") > "1" Then Range("H5").Interior.ColorIndex = 36
If Range("D5") = "L" And Range("I5") > "1" Then Range("I5").Interior.ColorIndex = 36
If Range("D5") = "L" And Range("J5") > "1" Then Range("J5").Interior.ColorIndex = 36
End Sub

Gruß, Franz

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-Code
Galenzo
ich würde es so programmieren:
Dim c As Range
If [d5]= "L" Then
For Each c In [F5:J5]
c.Interior.ColorIndex = IIf(c = "I", 36, xlColorIndexNone)
Next
End If
Ist aber genauso lang :-(
kannst du das aber nicht auch über "bedingte Formatierung" lösen?
AW: VBA
11.02.2005 11:08:23
Cardexperte
Hello Franz, habe das nicht getestet aber mit einer Schleife sollte es mit cells klappen, also z.B. so:
For i = 6 To 10
If Cells(5, 4).Value = "L" And Cells(5, i).Value größer 1 Then Cells(5, i).Interior.ColorIndex = 36
Next i
Gruss Ws
AW: VBA
UweD
Hallo
so:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim I%
If Range("D5") = "L" Then
For I = 6 To 10
If Cells(5, I) > "1" Then Cells(5, I).Interior.ColorIndex = 36
Next
End If
End Sub

Gruß UweD
Anzeige
AW: VBA
Kurt
hi,
oder so:
Dim i As Integer
If Range("D5") &lt&gt "L" Then Exit Sub
For i = 7 To 20
If Cells(5, i) &gt "1" Then Cells(5, i).Interior.ColorIndex = 36
Next
und Tschüss Kurt

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige