VB Code adaptieren grösserer Suchbereich
29.04.2005 10:06:46
Roman´dl
Wer kann mir helfen untenstehenden Code zu adaptieren.
Derzeit wird Spalte A nach einem Wert der in A1 steht durchsucht, in die gefundene Zeile gesprungen und die Zeile bis in die Spalte O eingefärbt.
Ich hätte jetzt den Code in der Form gerne adaptiert das nicht nur Spalte A durchsucht wird, sonder Spalte A bis C und die ganze Zeile bis O wie gehabt eingefätbt wird.
https://www.herber.de/bbs/user/21861.xls
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim zelle As Range
Dim bereich As Long
Dim such As String
bereich = Range("a65536").End(xlUp).Row
If Target.Address <> "$A$1" Then Exit Sub
On Error Resume Next
Range("A2:o" & bereich).Interior.ColorIndex = xlNone
such = UCase([a1])
For Each zelle In Range("A2:a" & bereich)
If Left(zelle, Len([a1])) = such Then
zelle.Select
Range(zelle, zelle.Offset(0, 14)).Interior.ColorIndex = 4
Exit Sub
End If
Next
MsgBox "Wert nicht gefunden"
End Sub
Für Eure Hilfe bin ich sehr dankbar
Gruss vom Romandl
Anzeige