Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1572to1576
1572to1576
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

for schleife mit zwei variablen

Forumthread: for schleife mit zwei variablen

for schleife mit zwei variablen
17.08.2017 14:18:34
Ahmet
Hallo zusammen,
ich bin gerade dabei eine Tabelle zu erstellen in der eine For schleife sinnvoll wäre.
Allerdings kriege ich diese nicht wirklich zum laufen:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Range("P5:P14").Interior.ColorIndex = 15
Range("P5:P14").Value = "Urlaub"
Range("P5:P14").Locked = True
Range("P16:P25").Interior.ColorIndex = 15
Range("P16:P25").Value = "Urlaub"
Range("P16:P25").Locked = True
Range("P27:P36").Interior.ColorIndex = 15
Range("P27:P36").Value = "Urlaub"
Range("P27:P36").Locked = True
..... der Code würde hier ewig weiter laufen (inkls. else Anweisung)
Mein Vorschlag sieht so aus:


Private Sub CheckBox1_Click()
dim x as integer
dim y as integer
If CheckBox1.Value = True Then
For x = 5 to 577 step 11
for y = 14 to 586 step 11
Range(Cells(16,x), Cells(16,y)).Interior.ColorIndex = 15
Range(Cells(16,x), Cells(16,y)).Value = "Urlaub"
Range(Cells(16,x), Cells(16,y)).Locked = True
next y
next x
end if
End Sub


ist bei Excel solch eine Schleife überhaupt möglich? Bei c++ kriege ich so etwas hin - nicht aber bei excel
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: for schleife mit zwei variablen
17.08.2017 14:46:10
Werner
Hallo Ahmet,
so? 
Private Sub CheckBox1_Click()
dim x as long
dim y as long
y = 14
If CheckBox1.Value = True Then
For x = 5 to 577 step 11
Range(Cells(x, 16), Cells(y, 16)).Interior.ColorIndex = 15
Range(Cells(x, 16), Cells(y, 16)).Value = "Urlaub"
Range(Cells(x, 16), Cells(y, 16)).Locked = True
y = y + 11
next x
end if End Sub
Bei der Cells Schreibweise ist der erste Wert in der Klammer die Zeile und der zweite wert die Spalte.
Gruß Werner
Anzeige
Eine verschachtelte Schleife ist aber unnötig...
17.08.2017 14:50:06
Michael
Ahmet,
...aus meiner Sicht. Wenn ich Dich richtig interpretiert habe, sollte Dir auch das reichen (mit nur einer Schleife, und einer Laufvariablen):
Private Sub CheckBox1_Click()
Dim i&
If CheckBox1.Value = True Then
For i = 5 To 577 Step 11
With Range("P" & i & ":" & "P" & i + 9)
.Interior.Color.Index = 15
.Value = "Urlaub"
.Locked = True
End With
Next i
End If
End Sub
LG
Michael
Anzeige
AW: for schleife mit zwei variablen
17.08.2017 15:15:54
Ahmet
Hi,
klasse Vorschläge von euch beiden. Simpel aber gut.
Bei Michael seinem Code kommt leider ein Fehler:
.Interior.Color.Index = 15 --> Objekt erforderlich
Werner sein Code funktioniert soweit. Nur wenn ich mein Else Part mit einfüge bekomme ich den Fehler "Else ohne If Block" obwohl dieser Code vorher funktionierte.
Probiert habe ich das auf einer leeren Mappe.
Private Sub CheckBox3_Click()
Dim x As Long
Dim y As Long
y = 14
If CheckBox1.Value = True Then
For x = 5 To 577 Step 11
Range(Cells(x, 16), Cells(y, 16)).Interior.ColorIndex = 15
Range(Cells(x, 16), Cells(y, 16)).Value = "Urlaub"
Range(Cells(x, 16), Cells(y, 16)).Locked = True
y = y + 11
Else
Range(Cells(x, 16), Cells(y, 16)).Interior.ColorIndex = 40
Range(Cells(x, 16), Cells(y, 16)).ClearContents
Range(Cells(x, 16), Cells(y, 16)).Locked = False
Next x
End If
End Sub

Anzeige
Bei mir ist nur der Punkt in Color.Index zuviel oT
17.08.2017 15:45:02
Michael
AW: for schleife mit zwei variablen
17.08.2017 16:09:48
Werner
Hallo Ahmet,
Next x muss vor Else 
Private Sub CheckBox3_Click()
Dim x As Long
Dim y As Long
y = 14
If CheckBox1.Value = True Then
For x = 5 To 577 Step 11
Range(Cells(x, 16), Cells(y, 16)).Interior.ColorIndex = 15
Range(Cells(x, 16), Cells(y, 16)).Value = "Urlaub"
Range(Cells(x, 16), Cells(y, 16)).Locked = True
y = y + 11
Next x
Else
Range(Cells(x, 16), Cells(y, 16)).Interior.ColorIndex = 40
Range(Cells(x, 16), Cells(y, 16)).ClearContents
Range(Cells(x, 16), Cells(y, 16)).Locked = False
End IfEnd Sub
Gruß Werner
Anzeige
AW: for schleife mit zwei variablen
17.08.2017 15:35:59
Ahmet
Nachtrag: so hat es nun funktioniert:
Private Sub CheckBox1_Click()
Dim x As Long
Dim y As Long
y = 14
For x = 5 To 577 Step 11
If CheckBox1.Value = True Then
Range(Cells(x, 6), Cells(y, 6)).Interior.ColorIndex = 15
Range(Cells(x, 6), Cells(y, 6)).Value = "Urlaub"
Range(Cells(x, 6), Cells(y, 6)).Locked = True
Else
Range(Cells(x, 6), Cells(y, 6)).Interior.ColorIndex = 40
Range(Cells(x, 6), Cells(y, 6)).ClearContents
Range(Cells(x, 6), Cells(y, 6)).Locked = False
End If
y = y + 11
Next x
End Sub

vielen dank euch beiden
Anzeige
Bitte, aber...
17.08.2017 16:02:06
Michael
Ahmet,
...so wie Du es jetzt hast, prüfst Du bei jedem Schleifendurchlauf ob die CheckBox1 WAHR ist:
For x = 5 To 577 Step 11
If CheckBox1.Value = True Then
Aber das musst Du doch nur einmal prüfen. Und die doppelte Zählvariable ist aus meiner Sicht immer noch nicht erforderlich. Ich würde so tun...
Sub CheckBox1_Click()
Dim x&, c&, v$, l As Boolean
With CheckBox1
c = IIf(.Value = True, 15, 40)
v = IIf(.Value = True, "Urlaub", vbNullString)
l = IIf(.Value = True, True, False)
End With
For x = 5 To 577 Step 11
With Range(Cells(x, 6), Cells(x + 9, 6))
.Interior.ColorIndex = c
.Value = v
.Locked = l
End With
Next x
End Sub
LG
Michael
Anzeige
AW: Bitte, aber...
17.08.2017 16:18:22
Werner
Hallo Ahmet,
sehe gerade, dass du im Else Zweig ja ebenfalls eine Schleife brauchst. 
Private Sub CheckBox3_Click()
Dim x As Long
Dim y As Long
y = 14
If CheckBox1.Value = True Then
For x = 5 To 577 Step 11
Range(Cells(x, 16), Cells(y, 16)).Interior.ColorIndex = 15
Range(Cells(x, 16), Cells(y, 16)).Value = "Urlaub"
Range(Cells(x, 16), Cells(y, 16)).Locked = True
y = y + 11
Next x
Else
Range(Cells(x, 16), Cells(y, 16)).Interior.ColorIndex = 40
Range(Cells(x, 16), Cells(y, 16)).ClearContents
Range(Cells(x, 16), Cells(y, 16)).Locked = False
End IfEnd Sub
Wobei der Code von Michael natürlich eleganter ist und auf die zweite Zählvariable verzichtet.
Gruß Werner
Anzeige
Sry Michael, im falschen Zweig. o.w.T.
17.08.2017 16:19:14
Werner
Kein Problem! LG und owT
17.08.2017 16:25:18
Michael
;

Forumthreads zu verwandten Themen

For Schleife mit Variablen
Tobias

Hallo liebes Forum.
Ich (kein Excel Experte) versuche ein Blatt in einer Datei zu vervielfältigen und in diesen Blättern jeweils nach "x" bzw "y" oder auch leeren zeilen zu filtern.
Die Dateneingabe erfolgt über eine UserForm mit mehreren Option Buttons und Check Boxen.
Jetzt hätte...
18.07.2018 16:25:46
Thread-ID: 1634726
2 Beiträge
Anzeige
For-Schleife mit VariablenNamen
Gebhard

Hallo, auch ich bin Excel-Anfänger und möchte mehrere Checkboxen auswerten.Die Checkboxen heißen wie folgt.
1) Chat_cb01
2) Chat_cb02
3) Chat_cb03Ich möchte dies mit einer For-Schleife realisieren um den Code gering zu halten.Bsp:For i = 1 To 3
If Sheet1.(Chat_cb(&i))=true then
...
17.10.2002 15:39:29
Thread-ID: 170465
2 Beiträge
Anzeige
for next mit 2 Variablen
bjoern

das nervt mich gerade selbst weil ich nicht abschalten kann
ähmm
also
hallo erst mal
das ist wieder so eine "ich will VBA-lernen“ Frage
ich will eine "for next" Schleife mit 2 Variablen herstellen
For xx = 1 To 97
For y = 2 To 98
(Richtig?)
Sheets(xx).Rows("...
27.08.2019 15:30:40
Thread-ID: 1709743
3 Beiträge
variablenübergabe mit userform
franz

Guten Tag !
Liebe Teilnehmer/innen, ich habe ein Anliegen:
Ich habe eine Makro, in welchem durch mehere Inputboxen diverse Variable
abgefragt werden.
Wie könnte ich es über eine Userform realisieren, dass diese
Variablen schon im Vorfeld -durch aktivieren- definiert werden ?<...
04.07.2004 15:53:59
Thread-ID: 450031
3 Beiträge
For-Next-Schleife mit Übergabe zwischen Modulen
Gaidin

Hallo,
ich habe folgendes Problem: Ich habe eine Excel-Datei mit mehreren VBA-Modulen. In jedem der Module läuft eine For-Next-Schleife, die auf die gleichen Counter-Variablen zurückgreift. Nun soll die For-Next-Schleife im Modul 1 starten, dort die erste Schleife durchlaufen (Count: 1) un...
26.10.2004 18:22:30
Thread-ID: 507063
4 Beiträge
For Next Schleife mit 2 Worksheets
Marin

Hallo Allerseits,
mit folgendem Code wollte ich erreichen, dass wenn im Tabellenblatt "Database" ein gewisser _
Wert steht, im Tabellenblatt "Unternehmen" die Schriftfarbe angepasst wird:
Sub Farblichekenntlichmachung_Kommunenart() Dim i As Integer With Sheets("Database") For i =...
09.12.2020 16:06:43
Thread-ID: 1798651
3 Beiträge
Bedingte Formatierung mit 2 Variablen
Sascha
Liebe Forum,
ich suche nach einer Lösung für eine Bedingte Formatierung:
Das Wort "PAUSE" soll formatiert werden, wenn es außerhalb eines bestimmten größer u. kleiner Bereichs eingetragen wird.
In Beispiel Fall wird "Pause" bei 8:45 und "Pause" bei 16:00 Uhr fett formatiert. Weil die Pau...
22.10.2022 08:52:27
Thread-ID: 1903940
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

For Schleife mit zwei Variablen in VBA optimieren

Schritt-für-Schritt-Anleitung

Um eine For Schleife mit 2 Variablen in VBA zu implementieren, folge diesen Schritten:

  1. Öffne deinen Excel-Arbeitsblatt und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Füge ein neues Modul hinzu, indem du im Menü auf Einfügen > Modul klickst.
  3. Kopiere den folgenden Code in das Modul:
Private Sub CheckBox1_Click()
    Dim x As Long
    Dim y As Long
    y = 14
    If CheckBox1.Value = True Then
        For x = 5 To 577 Step 11
            Range(Cells(x, 16), Cells(y, 16)).Interior.ColorIndex = 15
            Range(Cells(x, 16), Cells(y, 16)).Value = "Urlaub"
            Range(Cells(x, 16), Cells(y, 16)).Locked = True
            y = y + 11
        Next x
    Else
        For x = 5 To 577 Step 11
            Range(Cells(x, 16), Cells(y, 16)).Interior.ColorIndex = 40
            Range(Cells(x, 16), Cells(y, 16)).ClearContents
            Range(Cells(x, 16), Cells(y, 16)).Locked = False
            y = y + 11
        Next x
    End If
End Sub
  1. Schließe den VBA-Editor und teste die Funktionalität durch einen Klick auf die CheckBox.

Häufige Fehler und Lösungen

  • Fehler: "Else ohne If Block"

    • Stelle sicher, dass das Next-Statement vor dem Else-Teil steht. Dies ist wichtig, damit die Schleife korrekt funktioniert.

  • Fehler: "Objekt erforderlich"

    • Achte darauf, dass der Befehl .Interior.Color.Index korrekt geschrieben ist. Der Punkt vor Interior sollte entfernt werden.

Alternative Methoden

Wenn du die For Schleife mit 2 Variablen vermeidest, kannst du auch eine einfache Schleife mit einer Laufvariablen verwenden, um denselben Effekt zu erzielen. Hier ist ein Beispiel:

Private Sub CheckBox1_Click()
    Dim i As Long
    If CheckBox1.Value = True Then
        For i = 5 To 577 Step 11
            With Range("P" & i & ":P" & i + 9)
                .Interior.ColorIndex = 15
                .Value = "Urlaub"
                .Locked = True
            End With
        Next i
    End If
End Sub

Praktische Beispiele

Hier sind einige praktische Beispiele zur Verwendung der For Schleife mit 2 Variablen:

  1. Farben ändern:

    Range(Cells(x, 16), Cells(y, 16)).Interior.ColorIndex = 15

    Dieser Befehl ändert die Hintergrundfarbe der Zellen.

  2. Werte einfügen:

    Range(Cells(x, 16), Cells(y, 16)).Value = "Urlaub"

    Dieser Befehl fügt den Text "Urlaub" in die Zellen ein.

  3. Zellen sperren:

    Range(Cells(x, 16), Cells(y, 16)).Locked = True

    Mit diesem Befehl werden die Zellen gesperrt, sodass keine Eingaben möglich sind.

Tipps für Profis

  • Überlege, die Werte von y vor der Schleife zu initialisieren, um die Lesbarkeit zu verbessern.
  • Verwende die With-Anweisung, um den Code zu optimieren und wiederholte Schreibweisen zu vermeiden.
  • Nutze die IIf-Funktion, um den Code noch schlanker zu gestalten.

FAQ: Häufige Fragen

1. Kann ich die Schleife auch rückwärts durchführen? Ja, du kannst die Schleife mit Step -1 verwenden, um rückwärts zu iterieren. Zum Beispiel:

For x = 10 To 1 Step -1

2. Ist es möglich, mehrere Schleifen zu verschachteln? Ja, du kannst mehrere Schleifen innerhalb einer Schleife verwenden. Achte jedoch darauf, dass dies den Code komplizierter machen kann.

3. Welche Excel-Version wird benötigt? Die gezeigten Beispiele funktionieren in Excel 2007 und höheren Versionen. Achte darauf, dass die VBA-Umgebung in deiner Excel-Version verfügbar ist.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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