[Haggi]

Hallo,

ich suche einen Code, der folgendes kann:

Ich habe eine Excel Datei mit Zahlen in der Ersten Spalte.

Jetzt öffnet sich bei mir die Form zur Suche (in VB bereits fertig) und ich gebe in eine Textbox den zu suchenden Wert aus der 1. Spalte an.
Klicke ich auf den Button "Check" sucht er mir den Wert aus der Textbox und markiert ihn grün.

Den Code für den Button brauche ich, mehr nicht ...


Bitte um rasche Hilfe.


Haggi

Dieser Beitrag wurde von Haggi bearbeitet: 21. Juli 2006 - 13:04

[ThomasE]

Option Explicit
Dim i As Long
Dim str_Suchstring As String
Dim str_Zelleninhalt As String

Sub Makro1()

str_Suchstring = InputBox("Suchwort eingeben", "Thomas")
If str_Suchstring = "" Then
Exit Sub
End If
i = 0
For i = 1 To 6000
str_Zelleninhalt = Cells(i, 1)
If str_Suchstring = str_Zelleninhalt Then
Cells(i, 1).Select
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
End If
Next i
End Sub

Code müsste funktionnieren

Gruss Thomas

Option Explicit
Dim i As Long
Dim str_Suchstring As String
Dim str_Zelleninhalt As String

Sub Makro1()

str_Suchstring = InputBox("Suchwort eingeben", "Thomas")
If str_Suchstring = "" Then
Exit Sub
End If
i = 0
For i = 1 To 6000
str_Zelleninhalt = Cells(i, 1)
If str_Suchstring = str_Zelleninhalt Then
Cells(i, 1).Select
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
End If
Next i
End Sub

Code müsste funktionnieren

Gruss Thomas