Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
352to356
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
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Alle geöffneten Arbeitsmappen durchsuchen

Alle geöffneten Arbeitsmappen durchsuchen
16.12.2003 00:50:42
Sabine
Hallo und guten Morgen,

ich möchte gerne alle geöffneten Arbeitsmappen in einer EXCEL-Instanz durchsuchen lassen. Wird der Wert (z.B. "GeForce") in einer der geöffneten Mappen gefunden, so soll die Mappe und das dazugehörige Sheet aktiviert, der Wert selber aber nicht markiert werden.

Ich habe keine Idee wie ich das hinbekommen soll.

Könnt Ihr mir helfen?

Danke und viele Grüße

Sabine

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

Betreff
Datum
Anwender
Anzeige
AW: Alle geöffneten Arbeitsmappen durchsuchen
16.12.2003 07:17:30
Nepumuk
Hallo Sabine,
so geht's:

Option Explicit
Dim myWorkbook As Workbook, myWorksheet As Worksheet, myRange As Range
Public Sub Sabine()
Dim varSuchbegriff As Variant
varSuchbegriff = InputBox("Bitte Suchbegriff eingeben.", "Eingabe")
varSuchbegriff = Trim(CStr(varSuchbegriff))
If varSuchbegriff <> "" Then
For Each myWorkbook In Workbooks
For Each myWorksheet In myWorkbook.Worksheets
Set myRange = myWorksheet.Cells.Find(What:=varSuchbegriff, LookIn:=xlValues, Lookat:=xlPart)
If Not myRange Is Nothing Then
myWorksheet.Activate
freigeben
Exit Sub
End If
Next
Next
MsgBox "Der Suchbegriff wurde nicht gefunden.", 64, "Information"
freigeben
End If
End Sub
Private Sub freigeben()
Set myRange = Nothing
Set myWorksheet = Nothing
Set myWorkbook = Nothing
End Sub



Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk
Anzeige
AW: Alle geöffneten Arbeitsmappen durchsuchen
16.12.2003 12:27:42
Sabine
Hallo Nepumuk,

klasse, danke für Deine Hilfe.

Funktioniert einwandfrei.

Gruß

Sabine

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige