Office: zellen nach oben verschieben

hallo leute

hab mal wieder ein problem

in spalte A sind werte (mal mehr mal weniger, per hand eingegeben)
in zeile D1:O1 sind werte die berechnet werden

mit folgendem code vergleiche ich die werte
und lösche die übereinstimmung in spalte A

Dim a As Range
Dim b As Range
For Each a In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
For Each b In Range("D1:O1" & Cells(Columns.Count, 1).End(xlUp).Column)
If a = b Then
a.Clear
End If

Next b
Next a

dann bleiben in spalte A leere zellen

x
x


x

x
x

usw.

wie kann ich die leeren zellen löschen
oder wie kann ich die werte nach oben rücken

und noch eine frage bitte

For Each b In Range("D1:O1" & Cells(Columns.Count, 1).End(xlUp).Column)

wie muss der code sein für eine ganze zeile
also nicht D1:O1 sondern D1:ende zeile

hoffe meine erklärungen sind verständlich

gruß

willi

:)

 

Hallo willi,

ich hoffe ich habe dich jetzt richtig verstanden...
Code:

 

hallo chen

ersmal danke für deine schnelle antwort


nicht ganz

dein code löscht die werte in der zeile

es sollen aber die werte in der spalte gelöscht werden
die mit den werten aus der zeile übereinstimmen

gruß

willi

 

Hallo willi,

das war doch auch die Fragestellung:

Wie auch immer... hier der angepasste Code
Code:

 

hallo chen

bitte um entschuldigung
war ein bisschen zu voreilig
es hat natürlich auch vorhin geklappt
ich hab mich nur ein bisschen doof angestellt

entschuldigung

und nochmals herzlichen dank

gruß

willi