Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1556to1560
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1556to1560
1556to1560
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehler bei If Then Else

Fehler bei If Then Else
19.05.2017 08:29:21
Markus
Hallo zusammen,
ich habe ein kleines Problem mit If Then.
Mein Code lautet:
For sh = 1 To 20
Workbooks(Dateiname).Worksheets(sh).Activate
With Workbooks(Dateiname).Worksheets(sh)
lzZeile = .Cells(18, 1).End(xlUp).Row
For a = 2 To lzZeile
If sh = 1 Then
For a = 3 To 23
End If
Hier bringt er mir den Fehler "For Steuervariable wird bereits verwendet"
Wenn ich das ganze so gestallte
For sh = 1 To 20
Workbooks(Dateiname).Worksheets(sh).Activate
With Workbooks(Dateiname).Worksheets(sh)
lzZeile = .Cells(18, 1).End(xlUp).Row
If sh = 1 Then
For a = 3 To 23
Else
For a = 2 To lzZeile
End If
sagte er mir "Else ohne If"
Kann mir jemnad verraten was ich falsch mache?
Danke
Susmark

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler bei If Then Else
19.05.2017 08:36:24
yummi
Hallo Markus,
du musst for schleifen und if verzweigungen als blöcke sehen, die zwar übereinander leigen können, aber nicht ineinander geschachtelt.

for a= 2 to lzzeile
if...
end if
next a
for a
next a

oder dein 2. Beispiel:

If sh = 1 Then
For a = 3 To 23
next a
Else
For a = 2 To lzZeile
next a
End If
gruß yummi
AW: Fehler bei If Then Else
19.05.2017 08:45:00
Rainer
Hallo Markus,
das ist aber nicht der ganze Code, oder? Ein For braucht doch ein Next am Ende?
Bei deinem Code 1 führst du 2 For Schleifen ineinander, beide mit "Zähler" a:

For sh = 1 To 20
Workbooks(Dateiname).Worksheets(sh).Activate
With Workbooks(Dateiname).Worksheets(sh)
lzZeile = .Cells(18, 1).End(xlUp).Row
For a = 2 To lzZeile
If sh = 1 Then
For a = 3 To 23
End If
'Hier bringt er mir den Fehler "For Steuervariable wird bereits verwendet"
Außerdem ist die zweite FOR Schleife nicht beendet vor der Anweisung "EndIf".
Dein zweiter Code:

'Wenn ich das ganze so gestallte
For sh = 1 To 20
Workbooks(Dateiname).Worksheets(sh).Activate
With Workbooks(Dateiname).Worksheets(sh)
lzZeile = .Cells(18, 1).End(xlUp).Row
If sh = 1 Then
For a = 3 To 23
Else
For a = 2 To lzZeile
End If
ist auch nicht viel besser. Das "Else" hat kein "If", weil dazwischen ein "For" steht, aber kein "Next". Die Schleife "FOR mit a" ist immer noch doppelt.
Es muss so aussehen:

For sh = 1 To 20
Workbooks(Dateiname).Worksheets(sh).Activate
With Workbooks(Dateiname).Worksheets(sh)
lzZeile = .Cells(18, 1).End(xlUp).Row
If sh = 1 Then
For a = 3 To 23
' Tu etwas
Next a
Else
For a = 2 To lzZeile
'Tu etwas anderes
Next a
End If
End With
Next sh
Gruß,
Rainer
Anzeige
AW: Fehler bei If Then Else
19.05.2017 08:56:00
Markus
Alles klar.
Danke für die Erklärung .
Ich habe es jetzt so gelöst:
 For sh = 1 To 20
Workbooks(Dateiname).Worksheets(sh).Activate
With Workbooks(Dateiname).Worksheets(sh)
lzZeile = .Cells(18, 1).End(xlUp).Row
If sh = 1 Then lzZeile = 23
For a = 2 To lzZeile
nicht besonders elegant, aber es läuft.
Danke für eure Antworten.
AW: Fehler bei If Then Else
19.05.2017 08:59:31
Rainer
Hallo Markus,
mit diesem Schnipsel an Code kann man über Eleganz nichts sagen und die ist zudem auch extrem subjektiv.
Wenn es klappt, dann gut. Aber du hast wieder einen Code gepostet, der 4 Schleifen startet und keine einzige abschließt. Beim nächsten mal poste bitte den kompletten Code.
Gruß,
Rainer
Anzeige
AW: Fehler bei If Then Else
19.05.2017 09:00:15
Markus
ok
AW: Fehler bei If Then Else
19.05.2017 09:01:25
Daniel
Hi
in deinem Fall müsstest du das so programmieren:
if sh = 1 then
x = 3
y = 23
Else
x = 2
y = lzZeile
End if
For a = x to y
Next

oder so, wenn du keinen zusätzlichen Variablen haben willst.
das ist zwar kürzer, aber nicht so übersichtlich:
for a = IIF(sh = 1, 3, 2) to IIF(sh = 1, 23, lzZeile)
Next
Gruß Daniel
AW: Fehler bei If Then Else
19.05.2017 09:11:20
Markus
auch gut. Danke

299 Forumthreads zu ähnlichen Themen

If Then mit mehreren Schritten
Pfannen-Meister

Guten Morgen,
leider ist mein Betreff etwas unglücklich formuliert, aber ich weiß nicht, wie ich mein Problem in wenigen Worten zusammen fassen soll:
In VBA nutze ich eine If Then Anweisung. Ist die Bedingungen erfüllt, so soll er mehrer Schritte abarbeiten. Aber wie sage ich ihm, daß...
13.08.2008 10:34:00
Thread-ID: 1001416
5 Beiträge
Anzeige
VBA - if anweisung mit variable
Thomas

Hallo,
ich habe ein blöds Problem und zwar habe ich folgendes If Abfrage in einer Forschleife in Pseudo:
Wenn A1 kleiner als A2 tu dies sonst tu das
VBA:
For i = 2 To 5 If "A" & i
Irgendwie trifft dort immer nur Else ein, ich glaube es liegt an der Bedingungsformulier...
16.10.2008 10:10:50
Thread-ID: 1016763
4 Beiträge
Zeilen einfärben mit mehreren Bedingungen
donald

Hallo Forum,
ich bräuchte eure Hilfe. Ich möchte folgendes erreichen:
wenn in spalte B "Ja"/"Nein" reingeschrieben wird, soll Excel die Zeile entsprechend einfärben (Grün/gelb). Das ist an sich noch gar nicht das Problem. In Spalte C wird ebenfalls eine Ja/Nein-Abfrage erwartet, so da...
22.10.2008 12:03:56
Thread-ID: 1018296
6 Beiträge
Anzeige
If then else für Anfänger
Gunter

Hallo Zusammen,
wenn ich eine If then else Abfrage habe z.B:
If ComboBox2.Value = "Trailer" And TextBox10.Value = "" Then _
Label36.Visible = True
TextBox10.BackColor = &HFF&
If ComboBox2.Value = "Spot" And TextBox11.Value = "" Then _
Label37.Visible = True
T...
30.11.2008 12:49:00
Thread-ID: 1029010
9 Beiträge
IF/ELSE in Excel (Porto anhand Gewicht berechnen)
Thomas

Hallo zusammen,
ich erstelle gerade ein Bestellformular mit Excel 2007 und möchte ein IF/ELSE Abfrage erstellen, die im Großen und Ganzen anhand eines bekannten Gewichtes die Preisliste von DHL abbildet.
Das ganze würde ich so oder so ähnlich formulieren:
if ($gewicht_kg >...
30.01.2009 12:55:49
Thread-ID: 1045369
5 Beiträge
If und else in Label.caption
Leon

Hi Zusammen
Was mache da falsch, daß Range I11 immer angezeigt wird obwohl nichts drin steht. Falls Range I11 grösser als 0 dann I11 zeigen ansonsten H11.
Private Sub userform_initialize() If Sheets("Wesentlichkeit").Range("I11") >= 0 Then Label20.Caption = Sheets("Wesentlichkeit")...
31.01.2009 22:28:06
Thread-ID: 1045773
3 Beiträge
Sumif mit 2 Bedingungen
HeinzS

Hallo zusammen, kann mir jemand sagen, wie ich die formel richtig aufbauen muß:
Aufgabenstellung: Addiere alle Zahlen aus dem Bereich A1:A100, welche entweder =123 sind? Habe es mit Sumif versucht, scheitere aber an der 2ten Bedingung.
Danke für eure Hilfe!
Lg, Heinz
04.02.2009 10:26:00
Thread-ID: 1046913
4 Beiträge
Zählenwenn mit mehreren Bedingungen
Thomy

Hallo Excelprofis
Ich habe 2 Spalten. In der 1. befinden sich Zahlen und in der 2. Namen.
Welche Formel muss ich verwenden, wenn ich die Anzahl Zahlen in der Spalte A ermitteln will, die grösser als 2 und kleiner als 6 sind und in der Spalte B der Name Meier steht.
Ich bin mal bis...
13.03.2009 15:38:03
Thread-ID: 1059916
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
2
3
5
5
8
4
2
3
1
3
8
1
3
4
4
9
3
5
7
12
2
4
8
9