Daten Kopieren

Inhalt

✓ Makro einem Button zuweisen
✓ Erste freie Zelle / letzte befüllte Zelle finden mit Rows.Count, End(XlUp) und Offset
✓ Code über mehrere Zeilen schreiben mit dem Unterstrich
✓ Zell-Methoden: Kopieren und Einfügen mit der Copy-Methode
✓ Range ohne Header finden (mit Intersect)
✓ Direktfenster
✓ Zellbereiche ansprechen (Range, UsedRange)
✓ Tabellenblätter ansprechen (Index)
✓ Arbeitsmappen ansprechen (ThisWorkbook und Name)
✓ Variablen und Datentypen (Set-Anweisung)

 

Code

Sub Datei_kopieren() 
 
Dim rng As Range 
 
'Range der Quelldatei definieren 
Set rng = Workbooks("February.xlsx").Worksheets(1).UsedRange 
 
'Daten ohne Header kopieren und einfügen 
Intersect(rng, rng.Offset(1)).Copy _ 
ThisWorkbook.Worksheets(1).Range("A" & ThisWorkbook.Worksheets(1).Rows.Count).End(xlUp).Offset(1) 
 
'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