Automatisch kopieren

Forumthread: Automatisch kopieren

25.10.2002 13:19:22

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Automatisch kopieren

25.10.2002 13:30:43

gerhard w
Re: Automatisch kopieren

25.10.2002 13:42:46

PeterW

Re: Automatisch kopieren

25.10.2002 13:30:43

gerhard w

Hallo,

versuche mal

Sub verschieben()
Dim c As Range
For Each c In Range("d1:d30")
If c > "" And c.Offset(1, 0) > "" And Not c.Offset(2, 0) > "" Then
c.Offset(1, 0).Cut c.Offset(0, 1)
End If
Next c
End Sub

gruß Gerhard

Re: Automatisch kopieren

25.10.2002 13:42:46

PeterW

Hallo ??,

das sollte das gewünschte Resultat liefern:

Gruß
Peter
PS: im Forum bitte Real(vor)Namen benutzen, siehe auch FAQ

Forumthread: Automatisch kopieren

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread