Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
956to960
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
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Richtiges Worksheet finden

Richtiges Worksheet finden
09.03.2008 20:29:00
Vera
Hallo liebe Excelfreunde,
ich wage es Euch noch einmal mit einer für mich knifflichen Frage zu löchern.
Ich muss mittels VBA diejenige Arbeitsmappe finden die ein Tabellenblatt "Vorlage" und dort in Zelle "N5" an 19. Stelle den Text "V20" stehen hat. Also z.B:
Mid(Worksheets("Vorlage").Range("N5").Text, 19, 3) = "V20"
Das wäre ja ganz einfach, aber der Name der gesuchten Arbeitsmappe ist leider nicht bekannt und es könnte auch sein, dass die passende Arbeitsmappe gar nicht geöffnet ist. Dann sollte das Script mit einer Meldung enden.
Wer hat eine zündende Idee?
Liebe Grüße
Vera

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Richtiges Worksheet finden
09.03.2008 20:43:00
Daniel
Hi
probier mal diesen Code

Sub MappeFinden()
Dim wb As Workbook
Dim Gefunden As Boolean
Gefunden = False
On Error Resume Next
For Each wb In Application.Workbooks
Gefunden = Mid$(Worksheets("Vorlage").Range("N5").Text, 19, 3) = "V20"
If Gefunden Then Exit For
Next
On Error GoTo 0
Select Case Gefunden
Case True
MsgBox "Gefunden in Workbook: " & wb.Name
Case False
MsgBox "Es konnte keine passende Datei gefunden werden."
End Select
End Sub


Gruß, Daniel

AW: Richtiges Worksheet finden
09.03.2008 23:46:11
Vera
.. nein, leider findet dieses Script nur das entsprechende Worksheet wenn es aktiv (im Vordergrund) ist ..
Vielleicht hat doch noch jemand eine Idee..
Liebe Grüße
Vera

Anzeige
AW: Richtiges Worksheet finden
09.03.2008 23:49:00
Daniel
HI
sorry, kleiner fehler von mir, machs mal so:

Sub MappeFinden()
Dim wb As Workbook
Dim Gefunden As Boolean
Gefunden = False
On Error Resume Next
For Each wb In Application.Workbooks
Gefunden = Mid$(wb.Worksheets("Vorlage").Range("N5").Text, 19, 3) = "V20"
If Gefunden Then Exit For
Next
On Error GoTo 0
Select Case Gefunden
Case True
MsgBox "Gefunden in Workbook: " & wb.Name
Case False
MsgBox "Es konnte keine passende Datei gefunden werden."
End Select
End Sub


Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige