Wert finden, Range anpassen, Rahmen erstellen
19.12.2016 08:35:53
Max2
ich möchte mit einem kleinen Code die Zahl "5" in Spalte "G" finden.
Anschließend soll eine Range erstellt werden und diese soll eine fette Rahmenlinie erhalten.
Die "5" kommt mehrmals vor also muss die Range jedes mal wieder neu angepasst werden, bzw. die Variable x, welche die Rows in der Range angibt.
Hier mein Code:
x = 7
y = 6
Set wks = ThisWorkbook.Sheets("Daten")
With wks
Set rngBereich = .Range(.Cells(x, y), .Cells(.Rows.Count, y))
For Each c In rngBereich
If c.Value = "5" Then
Set rngBearbeiten = .Range(.Cells(x, y), .Cells(x, y + 17))
With rngBearbeiten.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
End With
Set rngBearbeiten = Nothing
End If
Next c
Hier soll x so verändert werden dass x nun die Zahl der Zeile mit dem Wert "5" annimmt.
Könnt Ihr mir helfen?
Wie muss dass anstellen dass sich x immer wieder verändert.
Anzeige