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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige