Kopieren Sie nur Zellen mit Daten von Excel zu Powerpoint VBA

Question

Ich habe eine Excel-Tabelle, die je nach dem angewendeten Filter von der Größe abhängt (Anzahl der Zeilen; die Anzahl der Spalten ist immer gleich).

Die Tabelle befindet sich im Bereich B2: F7 eines Blattes mit dem Namen "Einzelhändler".

Ich möchte ein VBA-Skript schreiben, das die Tabelle auf Folie 35 einer vorhandenen Powerpoint-Präsentation namens "Stores" kopieren würde. Da die Tabelle jedoch in der Größe variiert, möchte ich bei jedem Ausführen des Codes nur die Zeilen mit Werten kopieren.

Ich habe versucht, dies zu tun:

Sub Copy Table() 

'Copy Range from Excel 
    Set rng = ThisWorkbook.Sheets("Retailers").Range("B2:F7") 

'Copy Excel Range 
    rng.Copy 

'Paste to PowerPoint and position 

Ich bin nicht sicher, wie es zu Powerpoint einfügen noch nur die Zeilen mit Daten zu kopieren.

Wie könnte ich das tun?

Answer 1

Sub t() 
    Dim copy_range As Range, paste_range As Range 
    With Sheets("Sheet1") 
     Set copy_range = .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row) 
    End With 

    Set paste_range = Sheets("Sheet2").Range("A5") 

    copy_range.Copy paste_range 
End Sub 

Answer 2

So ist das Problem, wie man nicht leere Zellen wählt? Sie können die dynamische Bereichsauswahl verwenden - mithilfe der End-Eigenschaft oder noch einfacher CurrentRegion-Eigenschaft. Es funktioniert wie die Tastenkombination Strg + Umschalt + Pfeiltasten in der normalen Excel-Ansicht.