Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
820to824
820to824
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

suchen

Forumthread: suchen

suchen
24.11.2006 09:31:18
Fritz
Guten Morgen!
Hab eine schwierige Frage.
ich habe 7 tabellen (Tabelle1 bis Tabelle7)
in Tabelle1 A1 habe ich meinen suchbegriff stehen
es sollen jetzt in den Tabellen 2 bis 6 nur in der spalte a und ab der zeile 11 nach dem suchbegriff gesucht werden und dieser grün eingefärbt werden. wird nichts gefunden sollte das in einer msgbox angezeigt werden.
danke
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: suchen
24.11.2006 10:13:49
lueckii
Hallo Fritz!
Der Code unten funktioniert nur dauerhaft, wenn die Tabellenblätter, die durchsucht werden immer die Blätter 2 bis 7 sind

Sub suchen
Dim Begriff as String
Dim Zelletemp as Range
Dim Zelle as String
Begriff = ThisWorkbook.Sheets("Tabelle1").Range("A1").Value
For a= 2 to 7
With ThisWorkbook.Sheets(a).Range("A11:A100") 'Je nachdem wie lang deine Tabelle ist
Set Zelletemp = .Find(What:=Begriff, LookIn:=xlFormulas, LookAt:=xlPart)
Zelle = Zelletemp.Address
End With
ThisWorkbook.Sheets(a).Range(Zelle).Font.ColorIndex = 50
Next a
End Sub

Gruß Martin
Anzeige
AW: suchen
24.11.2006 11:02:49
regina
Hallo Fritz,
probier mal das Makro:

Sub tabVerglTEST()
Dim i As Long
Dim c As Long
Dim tb1 As Integer
Dim ende1 As Long
Dim suchbegriff As Long
suchbegriff = Sheets(1).Range("A1")
For tb1 = 2 To Worksheets.Count
Sheets(tb1).Activate
ende1 = Cells(65536, 1).End(xlUp).Row  'von letzter Zeile aufwärts
For c = 11 To ende1
Application.StatusBar = "bearbeite Zeile" & c & " von " & ende1
If Cells(c, 1) = suchbegriff Then
Cells(c, 1).Interior.ColorIndex = 4
End If
If Range("A11:A" & ende1).Interior.ColorIndex <> 4 Then
MsgBox " In Tabelle " & tb1 & " nichts gefunden"
End If
Next
Next
Application.StatusBar = False
MsgBox "Fertig"
End Sub

Gruß REgina
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige