hi leute, ich probiere mehrere zeilen in excel zu markieren wenn ein bestimmter text enthalten ist.
die textabfrage funktioniert wunderbar. habe auch schon ein laufendes makro, was mir die betreffenden zeilen löscht. funktioniert auch. jetzt habe ich es umgeschrieben, das er nicht löschen sondern markieren soll. geht auch bis zur ersten betreffenden zeile, danach hängt er sich auf.
kann mir da jemand einen lösungsansatz geben?
hier mein code:
danke schon mal im vorraus.
die textabfrage funktioniert wunderbar. habe auch schon ein laufendes makro, was mir die betreffenden zeilen löscht. funktioniert auch. jetzt habe ich es umgeschrieben, das er nicht löschen sondern markieren soll. geht auch bis zur ersten betreffenden zeile, danach hängt er sich auf.
kann mir da jemand einen lösungsansatz geben?
hier mein code:
VB.NET-Quellcode
- Private Sub CommandButton4_Click()
- If Trim(TextBox1.Value) = vbNullString Or Trim(TextBox2.Value) = vbNullString Or Trim(TextBox3.Value) = vbNullString Then
- MsgBox ("Es müssen alle Felder ausgefüllt sein"), vbCritical
- Exit Sub
- End If
- Dim i As Long
- Dim letzteZeile As Long
- Dim suchBereich As Range
- Dim gefunden As Range
- Dim ersterTreffer As String
- Dim suchWert As String
- suchWert = TextBox2.Text 'hier kommt das suchwort rein
- With ThisWorkbook.Sheets(TextBox1.Text) 'hier kommt die arbeitsmappe in der gearbeitet wird rein
- letzteZeile = .Range(TextBox3.Text & Rows.Count).End(xlUp).Row
- Set suchBereich = .Range(TextBox3.Text & "1:" & TextBox3.Text & letzteZeile) 'hier wird die spalte in der gesucht werden soll eingetragen
- Set gefunden = suchBereich.Find(What:=suchWert, LookAt:=xlPart)
- If Not gefunden Is Nothing Then
- ersterTreffer = gefunden.Address
- Do
- gefunden.Activate
- ActiveCell.EntireRow.Interior.ColorIndex = 8
- Set gefunden = suchBereich.Find(What:=suchWert, LookAt:=xlPart)
- Loop While Not gefunden Is Nothing
- End If
- End With
- MsgBox ("Habe Fertig ;-)")
- End Sub
danke schon mal im vorraus.
