Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1224to1228
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
Inhaltsverzeichnis

Makro funktioniert nicht

Makro funktioniert nicht
Helge
Hallo,
wollte gerne etwas färben, aber das gebastelte Makro funktioniert nicht.
Funktioniert
Sub farbig_B()
For i = 5 To Worksheets(1).Range("A2:A10").End(xlDown).Row
If Worksheets(1).Range("A" & i).Value = "x" Then
Worksheets(1).Range("B" & i).Interior.ColorIndex = 35
End If
Next i
End Sub
Funktioniert nicht
Sub farbig_B_D()
For i = 5 To Worksheets(1).Range("A2:A10").End(xlDown).Row
If Worksheets(1).Range("A" & i).Value = "x" Then
Worksheets(1).Range("B:D" & i).Interior.ColorIndex = 35
End If
Next i
End Sub
Was mache ich falsch?
Gruß
Helge

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

Betreff
Benutzer
Anzeige
AW: Makro funktioniert nicht
23.08.2011 19:07:35
Hajo_Zi
Hallo Helge,
gib die Zelle komplett an.
.Range("B" & i &":D" & i)

AW: Makro funktioniert nicht
23.08.2011 20:33:10
Helge
Hallo Hajo,
danke für den Tipp!
Gruß
Helge
andere Schreibweise
24.08.2011 01:02:22
Erich
Hi Helge,
so könnte man das besser schreiben:

Option Explicit               ' immer zu empfehlen
Sub farbig_B_D()
Dim i As Long
With Worksheets(1)
For i = 5 To .Range("A2").End(xlDown).Row
If .Cells(i, 1).Value = "x" Then
.Cells(i, 2).Resize(, 3).Interior.ColorIndex = 35
End If
Next i
End With
End Sub
Warum eigentlich schreibst du
Range("A2:A10").End(xlDown).Row
statt
Range("A2").End(xlDown).Row ? Hat die kürzere zweite Variante nicht das selbe Ergebnis?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige