Datum

Titel

18.04.2024 21:09:11

4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren

18.04.2024 20:45:35

Worksheet_Activate für alle Sheets

18.04.2024 19:30:20

VBA - Tabelle mit Mannschaftsergebnissen sortieren

18.04.2024 18:04:29

Formel fehler Wert#

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1464to1468

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Suchen und markieren

Forumthread: Suchen und markieren
5 Beiträge zu diesem Forumthread
Anzeige
305 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

15.12.2015 09: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 10:33:13

ede
AW: Suchen und markieren als VBA

15.12.2015 10:41:29

Erwin
AW: Suchen und markieren als VBA

15.12.2015 11:09:22

ede
AW: Suchen und markieren als VBA

15.12.2015 11:28:56

ede
AW: Suchen und markieren als VBA

15.12.2015 12:14:18

Erwin

AW: Suchen und markieren

15.12.2015 10: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 10: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 11: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 11: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 12:14:18

Erwin

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