nicht leere Zelle finden und Nachbarzelle kopieren
08.06.2006 10:09:31
Anton
ich habe eine lange Liste mit vielen überflüssigen Zeilen.
(Das Ganze erinnert ein wenig an eine Pivot-Tabelle)
Spalte A enthält in unregelmäßigen Abständen Werte.
Eine Zeile darunter in Spalte D ist die dazugehörige Zahl (das Ergebnis).
Ich möchte die Zahl in die selbe Zeile kopieren lassen wie das Wort in Spalte A.
Danach kann ich den restlichen Müll löschen.
Mein Lösch-Makro lautet:
Sub E_ZeileWegWennZelleLeer()
' Zeilen löschen wenn Zelle in Spalte A leer ist
Dim L As Long
Dim ZL As Long
ZL = ActiveSheet.UsedRange.Rows.Count
Range("A1").Select
For L = ZL To 3 Step -1
If Len(ActiveCell.Value) = 0 _
Then Selection.EntireRow.Delete _
Else ActiveCell.Offset(1, 0).Select
Next L
End Sub
Jetzt suche ich nach einem Makro das etwa so aussehen könnte:
wenn in Spalte A die Zelle nicht leer
dann aktiviere Zelle in Spalte D eine Zeile darunter (Spalte+3 und Zeile+1)
und kopiere sie nach darüberliegender Zelle.
nexter Eintrag
Wer von Euch kann mir bitte mit dem Code auf die Sprünge helfen?
Mein Dank geht schon jetzt in Eure Richtung
Servus,
Anton