Thema Datum  Von Nutzer Rating
Antwort
08.11.2011 13:37:35 Rob
NotSolved
08.11.2011 14:25:03 Till
NotSolved
08.11.2011 14:25:11 Till
NotSolved
08.11.2011 14:25:13 Till
NotSolved
08.11.2011 14:33:56 Rob
NotSolved
Blau geöffnete Datei verwenden
 08.11.2011 22:03:16 Till
NotSolved

Ansicht des Beitrags:
Von:
Till		 Datum:
08.11.2011 22:03:16		 Views:
2162		 Rating:
     
Antwort:
  Ja
Thema:
geöffnete Datei verwenden

Wie wäre es damit:

Option Explicit

Private Sub selectWorkbook()
'Variablen deklarieren
    Dim rngBereich As Range
    Dim wb As Workbook
    Dim wbZwei As Workbook
    Dim ws As Worksheet
    Dim wsZwei As Worksheet
    Dim YesNo$
    
    Set wb = ThisWorkbook                               'Workbook setzen
    Set ws = wb.Sheets("Preisliste")          'Worksheet setzen
        
    For Each wbZwei In Workbooks
        YesNo = MsgBox("Ist " & wbZwei.Name & " das richtige Workbook?", vbYesNo)
        If YesNo = vbYes Then
            Exit For
        Else
            Set wbZwei = Nothing
        End If
    Next
    If Not wbZwei Is Nothing Then
        wbZwei.Activate
        Set wsZwei = wbZwei.Sheets("OBSO")          'Worksheet setzen
    End If
    
End Sub

Wenn du nicht selber etwas eingeben willst musst du schon irgendwas haben, was dein Workbook einmalig macht. Wenn du maximal zwei offen hast und es nicht das aktive Workbook ist kannst du das auch so machen:

    For Each wbZwei In Workbooks
        If Not wbZwei = ThisWorkbook Then
            Exit For
        Else
            Set wbZwei = Nothing
        End If
    Next

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
08.11.2011 13:37:35 Rob
NotSolved
08.11.2011 14:25:03 Till
NotSolved
08.11.2011 14:25:11 Till
NotSolved
08.11.2011 14:25:13 Till
NotSolved
08.11.2011 14:33:56 Rob
NotSolved
Blau geöffnete Datei verwenden
 08.11.2011 22:03:16 Till
NotSolved