Wenn Zelle leer dann Wert kopieren

Bild

Betrifft: Wenn Zelle leer dann Wert kopieren von: MarryJo
Geschrieben am: 17.03.2005 14:23:31

Hallo zusammen,

ich habe 3 Spalten. Die erste ist mit Werten gefüllt, die zweite ist eine komplett leere Spalte und die dritte ist auch mit Werten gefüllt.
Jetzt soll folgendes durch ein Makro geschehen:
Es soll quasi jede Zelle durchsucht werden. Und zwar soll, wenn in der ersten Spalte die Zelle leer ist, der Wert, der in der gleichen Zeile in der dritten Spalte steht links rüber in die leere Spalte gezogen werden. Also er soll nicht kopiert werden, sondern soll komplett rüber.

Wie geht das?

Danke vorab.

Gruss, MarryJo

Bild


Betrifft: AW: Wenn Zelle leer dann Wert kopieren von: marcl
Geschrieben am: 17.03.2005 14:34:52

Hallo MarryJo,


Sub test()
Range("A1").Select
Do While ActiveCell.Address <> "$A$3000" ' Adresse der ersten leeren Zelle in der Datenreihe
If ActiveCell = "" Then
ActiveCell.Offset(0, 2).Copy
ActiveCell.PasteSpecial
ActiveCell.Offset(0, 2).ClearContents
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub



Gruß

marcl


Bild


Betrifft: AW: Wenn Zelle leer dann Wert kopieren von: marcl
Geschrieben am: 17.03.2005 14:34:53

Hallo MarryJo,


Sub test()
Range("A1").Select
Do While ActiveCell.Address <> "$A$3000" ' Adresse der ersten leeren Zelle in der Datenreihe
If ActiveCell = "" Then
ActiveCell.Offset(0, 2).Copy
ActiveCell.PasteSpecial
ActiveCell.Offset(0, 2).ClearContents
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub



Gruß

marcl


Bild


Betrifft: AW: Danke vorab heißt wohl, es kommt... von: Luc :-?
Geschrieben am: 17.03.2005 14:40:56

keine Bestätigung der Antworten durch dich! Dann wirst du bald keine mehr bekommen. Du hast die Antworter in deinem letzten Thread auch hängen lassen. Sehr schlechter Stil!
:-((


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Wenn Zelle leer dann Wert kopieren"