2017-03-08 3 views
2

Ich habe diesen Code in Excel, die einen Bereich kopiert und fügt sie ein. Es überspringt jedoch keine Leerzeichen, wie es soll.VBA Überspringen leer funktioniert nicht

With Worksheets("Calculator") 
    .Range("H10:H61").Copy 
    Worksheets("Graphs").Range("D2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ 
    SkipBlanks:=True, Transpose:=False 
End With 

Der Bereich H10:H61 enthält nur Werte, keine fromulas.

Antwort

3

Rohlingen Leider überspringen nicht tut, was Sie denken, es tut, können Sie hier lesen, was es tut Chandoo

unten stattdessen den Code Versuchen:

Dim VisRng As Range 

With Worksheets("Calculator") 
    Set VisRng = .Range("H10:H61").SpecialCells(xlCellTypeConstants) 
    VisRng.Copy 
    Worksheets("Graphs").Range("D2").PasteSpecial xlValues 
End With 
+0

Dank dieser funktioniert perfekt – tombata

+0

Wie anpassen der Code so funktioniert es mit Zellen mit Formeln, die geben Text Ergebnisse – tombata

+0

@Tombata ändern den letzten Teil 'SpecialCells (xlCellTypeFormulas)' –