EXCEL VBA leere Zeile Überspringen

Private Sub CommandButton1_Click()
Dim rng As Range
Dim cell As Variant

Set rng = Range("C8:C12")

For Each cell In rng
    Sheets("Sheet1").Range("A1:H7").Copy Destination:=Sheets("Quantity").Range("XFD4").End(xlToLeft).Offset(-3, 3)
    Sheets("Quantity").Range("XFD1").End(xlToLeft).Offset(0, 1).Value = cell.Offset(1, -1).End(xlUp).Value
    Sheets("Quantity").Range("XFD2").End(xlToLeft).Offset(0, 1).Value = cell.Value
    Sheets("Quantity").Range("XFD3").End(xlToLeft).Offset(0, 1).Value = cell.Offset(0, 1).Value  
Next
End Sub

Was ich erreichen will, ist hier skip blank cell/row. Denn es wird ein Kopie leeren Daten auf die Platte. Gibt es eine Methode, die z.B. Nicht isEmpty oder isBlank für diese For loop? Vielen Dank im Voraus.

InformationsquelleAutor 4 Leave Cover | 2013-01-01
  1. 1

    Sollten Sie in der Lage sein zu überprüfen IsEmpty(cell) um zu sehen, ob eine Zelle leer ist.

    Beispielsweise (ungetestet):

    For Each cell In rng
    If Not IsEmpty(cell) Then
        Sheets("Sheet1").Range("A1:H7").Copy Destination:=Sheets("Quantity").Range("XFD4").End(xlToLeft).Offset(-3, 3)
        Sheets("Quantity").Range("XFD1").End(xlToLeft).Offset(0, 1).Value = cell.Offset(1, -1).End(xlUp).Value
        Sheets("Quantity").Range("XFD2").End(xlToLeft).Offset(0, 1).Value = cell.Value
        Sheets("Quantity").Range("XFD3").End(xlToLeft).Offset(0, 1).Value = cell.Offset(0, 1).Value 
    End If 
Next
    • IsEmpty gibt true zurück, wenn die Zelle mit nichts und ff ist die Zelle das Ergebnis einer Formel? oder wenn retursn #N/A?
    • Sollte es wieder nur wahr, wenn die Zelle mit nichts in ihm. #N/A ist ein Fehler Bedingung, die getestet werden können, indem IsError
    InformationsquelleAutor lc.
Schreibe einen Kommentar