Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zellen kopieren wenn Ziel nicht leer

Zellen kopieren wenn Ziel nicht leer
18.08.2008 11:18:24
Tom
Guten Morgen!
Ich suche mittels VBA folgende Möglichkeit
Suche Zeile für Zeile (Beginnend ab Zeile 4) die Spalte H ab ob etwas drinn steht.
Kopiere den Inhalt in die gleiche Zeile, aber in die Spalte P
Wichtig! Ist die ZIEL-Zelle bereits befüllt (es steht also etwas drin), dann kopiere NICHT!
Hintergrund:
In der Spalte H stehen untereinander Daten, diese will ich nach P kopieren, sofern P nicht bereits schon etwas drinstehen hat.
Ich hoffe Ihr könnt mir helfen, da ich nichts brauchbares gefunden habe und der Macrorekorder auch keine hilfe war.
Vielen Dank
Der Tom

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen kopieren wenn Ziel nicht leer
18.08.2008 11:22:00
yusuf
Hi,
ungestestet. Sicherungskopie nicht vergessen

Sub eintragen()
For i = 4 To activesheets.UsedRange.Rows.Count
If IsEmpty(Cells(i, 16)) Then
Cells(i, 16) = Cells(i, 8)
End If
Next i
End Sub


Gruß
Yusuf

AW: Zellen kopieren wenn Ziel nicht leer
18.08.2008 11:23:00
yusuf
Hi,
For i = 4 To activesheets.UsedRange.Rows.Count
das "s" ist zuviel.
Gruß
Yusuf

Anzeige
AW: Zellen kopieren wenn Ziel nicht leer
18.08.2008 11:40:05
Tom
So simpel und doch so gut...
Das wars! vielen Dank
Funktioniert!
Der Tom

Forumthreads zu verwandten Themen

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige