Hallo Sepp, ich habe noch eine Frage an Dich
15.11.2007 00:05:00
Larissa
zu diesem Makro von Dir habe ich jetzt doch noch eine Frage. Kann man es vielleicht auch für einen größeren Bereich nutzen, z.B. Range("D3:K34"), wobei pro Spalte die Werte nach oben geschoben werden sollten. Naja, genau genommen brauche ich diese Funktion nur für Spalte D,E,G,H,J und K und auch nur bis Zeile 34. , Ist das zu kompliziert - Dann kann ich auch jede Spalte einzeln ansteuern.
Sub Larissa()
Dim a As Variant
Dim l As Long, m As Long
a = Range("A133:A164")
For l = 1 To UBound(a, 1) - 1
If IsEmpty(a(l, 1)) Then
For m = l + 1 To UBound(a, 1)
If Not IsEmpty(a(m, 1)) Then
a(l, 1) = a(m, 1)
a(m, 1) = Empty
Exit For
End If
Next
End If
Next
Range("A133:A164") = a
End Sub
Vielen Dank für Deine Hilfe,
Gruß,
Larissa