Datei Öffnen

Zweites Video der Serie: “Dateien Auswählen”

Inhalt

✓ Benutzer mit der GetOpenFilename-Methode eine Datei auswählen lassen und diese öffnen
✓ Daten von einer Arbeitsmappe in eine andere Arbeitsmappe kopieren
✓ Code optimieren: ScreenUpdating und PopUps deaktivieren
✓ Die If-Anweisung
✓ Letzte befüllte Zeile finden
✓ Variable definieren
✓ Tabellenblätter und Arbeitsmappen ansprechen

 

Code

 Sub Datei_auswaehlen() 
 
Dim Dateiname As Variant 
Dim wbQuelle As Workbook 
Dim LetzteZeile As Long 
 
'ScreenUpdating und PopUps deaktivieren 
Application.ScreenUpdating = False 
Application.DisplayAlerts = False 
 
'Benutzer Datei auswählen lassen 
Dateiname = Application.GetOpenFilename(FileFilter:="Excel-Dateien (*.xls*),*.xls*") 
 
'Wurde eine Datei ausgewählt? 
If Dateiname <> False Then 
 
    LetzteZeile = ThisWorkbook.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row 
 
    'Arbeitsmappe öffnen 
    Set wbQuelle = Workbooks.Open(Filename:=Dateiname) 
     
    'Daten kopieren und einfügen 
    wbQuelle.Worksheets(1).Range("A2:E7").Copy 
    ThisWorkbook.Worksheets(1).Range("A" & LetzteZeile + 1).PasteSpecial 
     
 
    'Arbeitsmappe schließen 
    wbQuelle.Close SaveChanges:=False 
     
End If 
 
'ScreenUpdating und PopUps aktivieren 
Application.ScreenUpdating = True 
Application.DisplayAlerts = True 
 
'Bereitgestellt von VBATrainer: www.vbatrainer.de

End Sub
Share on linkedin
Share on xing
Share on email
Share on whatsapp
Share on facebook

Ähnliche themen

VBATrainer Excel VBA Coaching - QR-Code
Kai Weissmann

QR-Code

  Inhalt QR-Code über eine selbstgeschrieben Funktion als Bild in Excel einfügen URL zur Generierung

Mehr lesen »
VBATrainer Excel VBA Coaching -Outlook Termin
Kai Weissmann

Outlook-Termin

  Inhalt Outlook-Termin erstellen und Zugriff auf alle Termin-Eigenschaften haben Outlook-Bibliothek aktivieren/Verweis setzen (Extras –>

Mehr lesen »
VBATrainer Excel VBA Coaching -PDF erstellen
Kai Weissmann

PDF erstellen

  Inhalt PDF erstellen: Ansprechen des Tabellenblatts und ExportAsFixedFormat Erstellung Dateipfad & Direktbereich Dateipfad und

Mehr lesen »
VBATrainer Excel VBA Coaching - Dozent Kai Weissmann

Kai Weissmann

VBA Entwickler

Hallo und schön, dass du hier bist! Schau dich gerne in meinen Blog-Posts um. Falls du Fragen zu einem Thema hast, schreib mir gerne einen Kommentar.

Kai Weissmann

Persönliche Empfehlungen
Mein Kurs

Jetzt registrieren