Free Trial

Safari Books Online is a digital library providing on-demand subscription access to thousands of learning resources.


Share this Page URL
Help

27.2 So sehen die Codings aus > 27.2 So sehen die Codings aus - Pg. 552

Kapitel 27 So kennzeichnen und ersetzen Sie Texte in anderen Tabellen und Mappen 27.2.4 So suchen Sie in allen geöffneten Arbeitsmappen Als nächste Erweiterung soll der Suchbegriff in allen geöffneten Arbeitsmappen und in allen darin befindlichen Tabellen gefunden werden. Listing 27.4: Die Suche in allen Tabellen aller geöffneten Mappen If OptionButton3.Value = True Then 'Suche in allen Tabellen aller geöffneten Mappen strSuche = TextBox1.Value If Textbox2.Visible = True Then strErsatz = Textbox2.Value End If For Each Mappe In Application.Workbooks For Each Tabelle In Mappe.Worksheets With Tabelle.UsedRange Set zelle = .Find(strSuche, LookIn:=xlValues) If Not zelle Is Nothing Then strZelle = zelle.Address If CheckBox1.Value = True Then zelle.Interior.ColorIndex = iFarbe End If Do