Zelle löschen und auffüllen
08.01.2020 15:28:38
TomatenAugen
auch ich habe ein kleines Problem. Ich habe verschiedene Werte in einer Tabelle und lösche nun einen Wert aus dieser Tabelle. Die Lücke ist dabei aber nicht schön und ich würde gerne, dass die unteren Werte hochschiebt, sodass es keine Lucke mehr gibt. Also Beispiel:
A B
1 Test1 Test2
2 Test3 Test4
3 LEER Test5
4 Test6 LEER
5 Test7 Test8
Soll werden zu:
A B
1 Test1 Test2
2 Test3 Test4
3 Test6 Test5
4 Test7 Test8
5
Ich habe keine Ahnung, wie ich das machen soll. Mein Code zum löschen ist der hier (der funktioniert):
Sub Test()
For z =Anfang To Ende
For Each s In Array(Spalte01, Spalte02, Spalte03, Spalte04, Spalte05, Spalte06, _
Spalte07)
If Worksheets("Tabelle").Cells(z, s).NumberFormat Like Suche Then
Worksheets("Tabelle").Cells(z, s).Clear
End If
Next s
Next z
End Sub