InputBox
11.09.2014 10:55:23
popeye
hier meine VBA code, ich möchte gerne die InputBox Farbe auf hellgrün ändern und wenn man den Inputbox "suchen" anklickt erscheint Suchfenster "Bitte MK-Notierung eingeben" das nur in die Zeilen 8 und 9 gesucht wird und zwar nur den Wert "ungefähr" muss also nicht exakt sein, Beispiel such 631 gefunden wird 630. Wäre super wenn jemand weiterhelfen könnte? Danke Vorab, VG Steve
Sub popeye()
Dim c, firstAddress
Dim sBegriff As String
Dim rHier As Range
With Tabelle1.Range("7:9,44:46,80:82")
sBegriff = InputBox("Bitte MK-Notierung eingeben")
If sBegriff = "" Then
'do nothing
Else
Set c = .Find(sBegriff, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
'c.Interior.Pattern = xlPatterngray17
If rHier Is Nothing Then
Set rHier = c
Else
Set rHier = Union(rHier, c)
End If
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstAddress
End If
End If
End With
rHier.Select
End Sub