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

Schleife

Forumthread: 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ß
Anzeige

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

Anzeige
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
AW: Schleife
10.09.2008 08:44:10
Snewi
Super klappt soweit :-)
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige