Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
820to824
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige