Suchen und markieren

Forumthread: Suchen und markieren

15.12.2015 10:12:21

Erwin

Hallo Forum,
ich suche ein Makro, welches folgende Bedingungen hat:
Suche im aktiven Blatt in Spalte A von Zeile 7 bis 5000 nach allen Werten, die ungleich "Kran", "Kraftwagen" und "Krankenwagen" lauten und markiere alle entsprechenden Zeilen von Spalte A bis Spalte H in roter Farbe.
Super wäre es noch, wenn die gefundene Zeilennummern in einer MsgBox ausgegeben werden könnte; ggf. Fehlanzeige angezeigt würde.
Leider habe ich hier im Forum nichts gefunden, das ich mit meinen Kenntnissen hätte anpassen können.
Danke schon mal im Voraus
Erwin

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Suchen und markieren

15.12.2015 11:33:13

ede
AW: Suchen und markieren als VBA

15.12.2015 11:41:29

Erwin
AW: Suchen und markieren als VBA

15.12.2015 12:09:22

ede
AW: Suchen und markieren als VBA

15.12.2015 12:28:56

ede
AW: Suchen und markieren als VBA

15.12.2015 13:14:18

Erwin

AW: Suchen und markieren

15.12.2015 11:33:13

ede

Hallo Erwin,
das kannst Du auch ganz einfach mit einem Filter auf Spalte A machen!
Gruss

AW: Suchen und markieren als VBA

15.12.2015 11:41:29

Erwin

Hallo Ede,
leider nein, weil das ein Teil einer schon bestehenden VBA Prozedur werden muss.
Es ist aber insoweit in sich abgeschlossen, sodass ich nur den Code brauche.
Grüsse - Erwin

AW: Suchen und markieren als VBA

15.12.2015 12:09:22

ede

ok, dann anbei mal ein kleines Beispiel, welches Du auf deine Projekt anpassen musst.

Sub erwin()
txt_dummy = ""
For zeile = 7 To 5000
If Sheets("Tabelle1").Cells(zeile, 1)  "Kran" _
And Sheets("Tabelle1").Cells(zeile, 1)  "Kraftwagen" _
And Sheets("Tabelle1").Cells(zeile, 1)  "Krankenwagen" Then
txt_dummy = txt_dummy & zeile & ", "
Sheets("Tabelle1").Cells(zeile, 1).Interior.Color = 255
End If
Next zeile
MsgBox txt_dummy
End Sub

AW: Suchen und markieren als VBA

15.12.2015 12:28:56

ede

oder mal etwas variabler:


Sub erwin()
txt_dummy = ""
Set ws = ActiveSheet
letztezeile = ws.UsedRange.SpecialCells(xlCellTypeLastCell).Row
'letztezeile = 5000
For zeile = 7 To letztezeile
If ws.Cells(zeile, 1)  "Kran" _
And ws.Cells(zeile, 1)  "Kraftwagen" _
And ws.Cells(zeile, 1)  "Krankenwagen" Then
txt_dummy = txt_dummy & zeile & ", "
ws.Range(Cells(zeile, 1), Cells(zeile, 8)).Interior.Color = 255
End If
Next zeile
MsgBox txt_dummy, vbInformation, "Fehlerzeilen"
End Sub

AW: Suchen und markieren als VBA

15.12.2015 13:14:18

Erwin

Hey Ede,
die 2. Variante passt super und läuft in der ganzen Abfolge einwandfrei.
Herzlichen Dank
Erwin

Forumthread: Suchen und markieren

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread