Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
172to176
172to176
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatisch kopieren

Forumthread: Automatisch kopieren

Automatisch kopieren
25.10.2002 11:19:22
TF

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

Betreff
Datum
Anwender
Anzeige
Re: Automatisch kopieren
25.10.2002 11: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 11:42:46
PeterW
Hallo ??,

das sollte das gewünschte Resultat liefern:

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

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige