Thema Datum  Von Nutzer Rating
Antwort
Rot Workbook Aktivieren ohne Dateinamen
 10.07.2019 11:06:57 Gast10092
NotSolved
10.07.2019 11:55:09 Torsten
NotSolved
10.07.2019 12:24:33 Gast34631
NotSolved
10.07.2019 12:52:52 Gast84714
Solved
10.07.2019 13:05:56 Gast6341
Solved
10.07.2019 14:31:41 Gast28744
NotSolved
10.07.2019 15:52:13 Torsten
Solved

Ansicht des Beitrags:
Von:
Gast10092		 Datum:
10.07.2019 11:06:57		 Views:
1264		 Rating:
     
Antwort:
  Ja
Thema:
Workbook Aktivieren ohne Dateinamen

Guten Tag,

ich möchte eine geöffnete Datei aktivieren, ohne deren Dateinamen angeben zu müssen. 

Um die Datei zu öffnen, verwende ich einen FileDialog mit folgendem Code: 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
'manuelle ausgewählte Datei öffnen
  
       Dim fd As FileDialog
  
        'File Dialog erstellen
        Set fd = Application.FileDialog(msoFileDialogOpen)
  
        'Variable um den Pfad anzeigen zu können
        Dim Dateipfad As Variant
  
        'With..End With für den Bezug zum File Dialog
         With fd
  
         'Anzeigen des Picker für alle ausgewählten Dateien
         If .Show = -1 Then
         For Each Dateipfad In .SelectedItems
 
         'Anzeigen des Pfades
         MsgBox "Der Pfad der gewählten Datei lautet: " & Dateipfad
  
          Next Dateipfad
           
          .Execute
           
  
          Else
          End If
          End With

 

Nachdem die Datei geöffnet wurde möchte ich mit folgendem Code, einzelne Zellen in die aktuelle Datei (DateiB) kopieren:

?
1
2
3
4
5
    Workbooks("DateiA").Activate
    Sheets("TabelleA").Range("U11").Copy
     
    Workbooks("DateiB").Activate
    Sheets("TabelleB").Range("D94").PasteSpecial xlPasteValues

Ist es möglich anstelle des Dateinamens von DateiA, einen bezug zum oben genannten Code herstzustellen, sodass der Dateiname nicht von vorn herein festgelegt sein muss, sondern sich anpasst, je nachdem welche DateiA geöffnet wird?

 

Vielen Dank für die Hilfe!

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
Rot Workbook Aktivieren ohne Dateinamen
 10.07.2019 11:06:57 Gast10092
NotSolved
10.07.2019 11:55:09 Torsten
NotSolved
10.07.2019 12:24:33 Gast34631
NotSolved
10.07.2019 12:52:52 Gast84714
Solved
10.07.2019 13:05:56 Gast6341
Solved
10.07.2019 14:31:41 Gast28744
NotSolved
10.07.2019 15:52:13 Torsten
Solved