Datum

Titel

20.04.2024 00:49:19

Excel Sheet in einen Excel Kalender einfügen

20.04.2024 00:08:11

In Ordner nur das Speichern von Dateien erlauben

19.04.2024 21:26:15

mehrfache Texte finden

19.04.2024 19:41:34

Bei VBA Ausführung Anzeige einfrieren

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1140to1144

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Datei mit bestimmtem Namen ansprechen

Forumthread: Datei mit bestimmtem Namen ansprechen
6 Beiträge zu diesem Forumthread
Anzeige
300 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

Hans

Hallo Zusammen,
es sind drei Dateien göffnet. In Datei 1 läuft ein Makro ab, dass eine der beiden Dateien aktiviert. Problem, ist dass sich der Name der zu aktivierenden Datei immer ändert, aber ein festes Schema hat...nämlich vier Zahlen am Schluss.
Z.B.
Mrz 27_OH_1234
oder
Jun 01_KH_5579
Also es soll die Datei, die vier zahlen am ende hat, aktiviert werden.
Vielen Dank schon mal.
Hans

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Datei mit bestimmtem Namen ansprechen

robert
AW: Datei mit bestimmtem Namen ansprechen

Hans
AW: Datei mit bestimmtem Namen ansprechen

Ramses
@Ramses - diemal warst du schneller ;-)) o.T.

Josef
AW: Datei mit bestimmtem Namen ansprechen

Hans
AW: Datei mit bestimmtem Namen ansprechen

Josef

AW: Datei mit bestimmtem Namen ansprechen

03.03.2010 10:31:28

robert

hi,
Also es soll die Datei, die vier zahlen am ende hat, aktiviert werden.
lt.deiner aussage hat doch jede datei vier zahlen am ende...
welche soll nun aktiviert werden ?
gruß
robert

AW: Datei mit bestimmtem Namen ansprechen

03.03.2010 10:44:06

Hans

nein die andere heisst völlig anders.
hab mich da falsch augedrückt.
grüße
hans

AW: Datei mit bestimmtem Namen ansprechen

03.03.2010 10:44:32

Ramses

Hallo
Ich habe das so verstanden, dass nur jeweils eine Datei mit 4 Zahlen am Schluss geöffnet ist.
Ein Restrisiko besteht natürlich immer

Option Explicit

Sub Find_Number_Book()
    Dim wkb As Workbook, tarWkb As Workbook, chkNr As Long
    For Each wkb In Application.Workbooks
        If InStr(1, wkb.Name, ".") > 0 Then
            On Error Resume Next
            If CLng(Mid(wkb.Name, InStr(1, wkb.Name, ".") - 4, 4)) <> 0 Then
                'Aktivieren der Mappe
                wkb.Activate
                Exit Sub
            End If
        End If
    Next
End Sub

Gruss Rainer

@Ramses - diemal warst du schneller ;-)) o.T.

03.03.2010 10:48:26

Josef

Gruß Sepp

AW: Datei mit bestimmtem Namen ansprechen

03.03.2010 11:08:36

Hans

Funtioniert beides Prima.
Herzlichen Dank an Euch alle!!!
Grüße
Hans

AW: Datei mit bestimmtem Namen ansprechen

03.03.2010 10:46:16

Josef

Hallo Hans,
das geht z.B. so.

Sub activateWB()
  Dim objWb As Workbook

  For Each objWb In Application.Workbooks
    If Not objWb Is ThisWorkbook Then
      If objWb.Name Like "? ##_?_####.xls*" Then
        objWb.Activate
        Exit For
      End If
    End If
  Next

End Sub

Gruß Sepp