Ich bin mittlerweile sehr viel weiter. Die Suchfunktion + Makierung funktioniert prima nun habe ich aber noch eine Art Filter das im Prinzip auf der Suche aufbaut.
Es ist ein Option Button, denn habe ich Software genannt. Wenn ich nun darauf klicke makiert dieser mir auch wie die Suchfunktion alles was das eingetragene Stichwort beinhaltet. Nur das es bei dem Option Button ein vorgebenes Wort ist nämlich "Software" wer hätte es gedacht.
Funktioniert auch soweit nur will ich auch wie bei der Suchfunktion das die makieren Felder auch demakiert werden. Da es ein Option Button ist geht nur True oder False. True = Klick Button und False = nicht Klick Option Button.
Ich bekomme die False Variable nicht hin. Kann mir wer helfen und das ist der Code bis jetzt:
'--------------------------------------'
'Software Option Button True - Step 1 -'
'--------------------------------------'
Private Sub Software_click()
Dim strWert As String
Dim strSuche As String ' Danach wird gesucht
Dim rngFound As Range ' hier wurde es gefunden
Dim rngFound1 As Range
Dim strFirstAddress As String ' die Adresse der 1. Fundstelle
Dim strNextAddress As String ' die Adresse der nächsten Fundstelle
'Dim strFirstAddress1 As String ' die Adresse der 1. Fundstelle
'Dim strNextAddress1 As String ' die Adresse der nächsten Fundstelle
Dim zeile As Variant
Dim wzeile As Variant
Dim i As Integer 'Anzahl der Datensätze in Tabelle "Fxxxx"
strWert = Tabelle1.Software
If strWert = True Then
strWert = "Software"
suche strWert
End If
'Wenn Eingabe nicht vorhanden...
If rngFound Is Nothing Then
Range("B12:G19").Select
Selection.Interior.Color = RGB(255, 255, 255)
Exit Sub
End If
End Sub
'--------------------------------------'
'Software Option Button True - Step 2 -'
'--------------------------------------'
Sub suche(strWert As String)
Dim rngFound As Range ' hier wurde es gefunden
Set rngFound = Columns(7).Find(What:=strWert, After:=Cells(Rows.Count, 7), LookIn:=xlValues, LookAt:=xlWhole)
strFirstAddress = rngFound.Address
Do
wzeile = Split(rngFound.Address, "$")
zeile = "B" & wzeile(2) & ":" & "G" & wzeile(2)
Range(zeile).Interior.Color = RGB(200, 160, 35)
'Weitersuchen
Set rngFound = Columns(7).FindNext(rngFound)
wzeile = Split(rngFound.Address, "$")
zeile = "B" & wzeile(2) & ":" & "G" & wzeile(2)
Range(zeile).Interior.Color = RGB(200, 160, 35)
Loop While rngFound.Address <> strFirstAddress
End Sub
So und ab Stepp 1 im Abschnitt Is nothing then komtm doch eigentlich die Deklaration rein was er machen soll wenn zum Beispiel nicht vorhanden in dem Fall der False Zustand des Buttons. Nur kriege ich das nicht hin.
Habe es mit Selektion versucht und das den selektierten Bereich neu färben z.B weiß. Funktioniert aber nicht. Habr Ihr evtl. eine Lösung bei Rat.
MFG
Liveplay
|