|
Hallo zusammen,
ich bin VBA Neuling und benötigte bitte Hilfe.
Ich habe eine Excel-Liste in welcher ab Zeile 6 in jeder 2 Zeile von B - Q werde vermerkt werden. Diese sind zum Teil mit Formeln und Dropdown belegt.
Nun können Zeilen welche ich nicht mehr benötige einzeln per Makro in eine Datenbank kopier werden, und diese Zeile wird dann geleert. (Formeln und alles bleibt bestehen)
Nun sollten die unteren Zeilen automatisch nach oben rutschen, sodass ich keine leeren Zeilen mehr habe und immer nach untenscrollen muss.
ich habe etwas gesucht und diesen Code gefunden, welche aber nur auf Spalte A zugereit und ich bekomm es leider nicht hin das B - Q nach oben geschoben wird.
Sub verschieben()
Dim arr() As String
Dim i As Integer
i = 6
'werte in array schreiben (spalte A)
For Z = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(Z, 1) <> "" Then
ReDim Preserve arr(i)
arr(i) = Cells(Z, 1)
i = i + 2
End If
Next Z
Columns(1).ClearContents
For Z = 0 To UBound(arr)
Cells(Z + 1, 1) = arr(Z)
Next Z
End Sub
Könnte mir bitte jemand behilflich sein?
Vielen Dank im Voraus und viele Grüße,
Martin
|