AW: Absolut Perfekt: Vielen Dank
05.06.2004 22:03:08
Peter
Hallo Reinhard, Nepumuk und alle,
habe ein Phänomen das mir Rätsel aufgibt....Reihard hat mir einen Code geschickt, der auch prima funzt.....ich hab die Datei um 2 Spalten erweitert und die Information die bisher in Spalte15 war ist jetzt in Spalte17....hat in der Datei von Reihard auch funktioniert.....jetzt hab ich das Modul in meine persönliche Anwendung integriert und dann kommt die Fehlermeldung
Function oder Variable erwartet.....bei Zeile "Ende = anf".....außerdem wird in meiner Anwendung automatisch aus "ende" "Ende"...in der Datei von Reinhard aber nicht?
<a href="https://www.herber.de/bbs/user/7137.xls">https://www.herber.de/bbs/user/7137.xls</a>
Sub Farbe()
Application.ScreenUpdating = False
Sheets("WKHindernislauf").Visible = True
With Sheets("WKHindernislauf")
.Range("A16:Q100").Interior.ColorIndex = xlNone
Werte = Array("ME", "MJ", "WE", "WJ")
anf = 16
For n = 0 To 3
Ende = anf
While .Cells(Ende, 13) & .Cells(Ende, 17) = Werte(n) _
Or .Cells(Ende, 13) & .Cells(Ende, 17) = "" _
And Ende <= .Range("a65536").End(xlUp).Row
Ende = Ende + 1
Wend
Ende = Ende - 1
If .Cells(anf, 13) & .Cells(anf, 17) = Werte(n) Then
For m = anf To Ende
If .Cells(m, 12) <> "" Then
pos = WorksheetFunction.Rank(.Cells(m, 12), Range(.Cells(anf, 12), _
.Cells(Ende, 12)))
If pos = 1 Then .Range(Cells(m, 2), Cells(m, 3)).Interior.ColorIndex = 6
End If
Next m
End If
anf = Ende + 1
Next n
End With
Sheets("WKHindernislauf").Visible = xlVeryHidden
Application.ScreenUpdating = True
End Sub
Ich bitte nochmals um Hilfe
Danke sehr
Peter S.