Ich habe ein Makro zum Kopieren von Spalte A bis C erstellt, die Inhalte aus einer anderen Exceldatei, welche in zwei Tabelletenblättern sind sollen untereinander kopiert werden, jedoch eigentlich nur Inhalte wo auch was drin geschrieben steht. Ich habe das Ganze temporär einfach mit Range A5:C1000 gelöst, wohl wissend das es keine gute Lösung darstellt, jedoch weiss ich nicht weiter und meine sonstigen Ansätze funktionieren nicht, vielleicht kann mir ja hier jemand eine gute Lösung anbieten. Also das Hauptproblem ist, dass nur Zellen mit Inhalt kopiert werden sollen und nicht wahllose 1000 leere Zeilen.
Hier der Code:
Option Explicit
Sub Load()
Dim WBZiel As Workbook, ExportDatei As Variant
Dim WBQuelle As Workbook, WSZiel As Worksheet
Set WBZiel = ThisWorkbook
Application.ScreenUpdating = False
'DateiÖffnen Dialog anbieten
ExportDatei = Application.GetOpenFilename("Excel-Dateien, *.xlsm*", , "Bitte die Datei zum _
Kopieren der Stammdaten öffnen ...")
ExportDatei = CStr(ExportDatei)
If ExportDatei = "Falsch" Then Exit Sub
'öffnen der ausgewählten Datei
Set WBQuelle = Workbooks.Open(ExportDatei)
'kopieren des Blattinhaltes und Schließen der Quell-Datei
With WBQuelle
.Sheets("Chemikalien").Range("A5:c1000").Copy WBZiel.Sheets("Stammdaten").Range("A" & _
Cells(Rows.Count, 1).End(xlUp).row + 1)
.Sheets("Labormaterialien").Range("A5:c1000").Copy WBZiel.Sheets("Stammdaten").Range("A" & _
Cells(Rows.Count, 1).End(xlUp).row + 1)
.Close savechanges:=False
End With
Application.ScreenUpdating = True
End Sub
Ich hoffe mir kann jemand weiterhelfen.
Lieben Gruß und vielen Dank im Voraus