Anzeige
Archiv - Navigation
1008to1012
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
Inhaltsverzeichnis

Schleife

Schleife
10.09.2008 07:58:08
Snewi
Hallo
ich habe eine Schleife wie diese
For i = 3 To 12
If Cells(i, 12) = "" Then
.........
End If
Cells(i, 2) = Cells(i, 12)
Cells(i, 12).ClearContents
Next
wenn ich jetzt oben für i nicht nur die Zeilen 3 bis 12 sondern zusätzlich noch 16 bis 20 durchlaufen möchte wie mache ich das?
Gruß

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schleife
10.09.2008 08:17:00
Hajo_Zi
Hallo Nick,
2 Schleifen.

AW: Schleife
10.09.2008 08:25:00
Snewi
Und die kann ich einfach hintereinander packen und dann das Next zum Schluss?
Gruß
AW: Schleife
10.09.2008 08:36:00
Matthias
Hallo
hier eine Alternative zu Hajos Vorschlag
Option Explicit

Sub snewi()
Dim i As Byte
For i = 3 To 20
If Cells(i, 12) = "" Then
End If
If Cells(i, 2).Row  13 And Cells(i, 2).Row  14 And Cells(i, 2).Row  15 Then
Cells(i, 2) = Cells(i, 12)
Cells(i, 12).ClearContents
End If
Next
End Sub


Gruß Matthias

AW: Schleife
10.09.2008 08:39:32
Hajo_Zi
Hallo Nick,
For ..
next
For ..
Next
so hätte ich Deine Aufgabe verstanden.
Gruß Hajo
Anzeige
AW: Schleife
10.09.2008 08:44:10
Snewi
Super klappt soweit :-)

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige