Thema Datum  Von Nutzer Rating
Antwort
Rot Daten von einer Datei in andere Datei
29.06.2020 15:01:22 Daytona
NotSolved
29.06.2020 16:01:50 Gast29420
NotSolved
29.06.2020 21:00:49 Daytona
NotSolved
30.06.2020 00:41:18 Gast27419
NotSolved
30.06.2020 08:32:36 Daytona
NotSolved
30.06.2020 11:58:20 Werner
NotSolved

Ansicht des Beitrags:
Von:
Daytona
Datum:
29.06.2020 15:01:22
Views:
48
Rating: Antwort:
  Ja
Thema:
Daten von einer Datei in andere Datei

Hallo,

ich möchte von Datei A, welche geöffnet ist und auch das Makro enthalt, Daten aus einem Blatt 2, in eine andere geöfnete Excel-.Datei kopieren (wb).

Private Sub CommandButton2_Click()
'**Dateifilter**
strFilter = "Excel-Dateien(*.csv*), *.csv*"
 
'**Vorbelgung Pfad**
ChDrive "D"
ChDir "D:\xxx\"
 
'**Den im Dialogfeld gewählten Namen auslesen**
strFileName = Application.GetOpenFilename(strFilter)
 
'**Prüfen, ob eine gültige Datei ausgewählt wurde**
If strFileName = False Then Exit Sub
 
'**Gewählte Datei öffnen**
Set wb = Workbooks.Open(strFileName)
 
 
'hier ist etwas noch nicht in Ordnung
          
    Workbooks("Datei A.xlsx").Activate
    Sheets("Blatt 2").Range("A1:B95").Copy
    Destination = wb.Sheets(1).Range("L1")
 
 
End Sub
Danke

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Daten von einer Datei in andere Datei
29.06.2020 15:01:22 Daytona
NotSolved
29.06.2020 16:01:50 Gast29420
NotSolved
29.06.2020 21:00:49 Daytona
NotSolved
30.06.2020 00:41:18 Gast27419
NotSolved
30.06.2020 08:32:36 Daytona
NotSolved
30.06.2020 11:58:20 Werner
NotSolved