Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
696to700
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
696to700
696to700
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA - Schleife funktioniert nicht ???

VBA - Schleife funktioniert nicht ?
17.11.2005 11:12:06
Thomas
Hallo
Ich habe zwei For-Next-Schleifen, die bei verschiedenen Bedingungen gestartet werden. Allerdings funktioniert nur die erste. Ändere ich die Variable i in der zweiten Schleife in j, dann funktioniert es. Was mach ich falsch?
Dim i As Long
If Range("E6").Value = "T" Then
For i = 0 To 26
Range(Cells(6, 5 + i * 7), Cells(6, 9 + i * 7)).Value = "T"
Range(Cells(6, 10 + i * 7), Cells(6, 11 + i * 7)).Value = ""
Next i
End If
If Range("E6").Value = "F" Then
For i = 0 To 26
Range(Cells(6, 5 + i * 7), Cells(6, 9 + i * 7)).Value = "F"
Range(Cells(6, 10 + i * 7), Cells(6, 11 + i * 7)).Value = ""
Next i
End If
Gibt es außerdem noch eine elegantere und schnellere Methode 7 Zellen mit unterschiedlichen Werten zu beschreiben? z.B. range(A6:A8).value = "F", "T", "F" usw.
Gruß Thomas

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Schleife funktioniert nicht ?
17.11.2005 13:03:17
Frank
Hallo Thomas,
zum ersten glaube ich, dass sich die beiden Schleifen ausschließen (was ja vielleicht beabsichtigt ist!?). Entweder "E6" ist "T" oder "F".
Aber eine schneller Lösung wäre doch:
If Range("E6").Value = "T" Or Range("E6").Value = "F" Then
For i = 0 To 26
Range(Cells(6, 5 + i * 7), Cells(6, 9 + i * 7)).Value = Range("E6").Value
Range(Cells(6, 10 + i * 7), Cells(6, 11 + i * 7)).Value = ""
Next i
End If
Vielleicht hilfst Dir, wenn nicht, versuche bitte die Frage zu präzisieren.
Gruß
Frank.
Anzeige

166 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige