Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1924to1928
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
1924to1928
1924to1928
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Next ohne For

Next ohne For
22.03.2023 09:26:49
Christian

Hallo,

ich bekomme beim Kompilieren die Fehlermeldung, dass ich Next ohne For verwendet habe.

For Blattindex2 = 2 To Sheets.Count
    If Not Worksheets(Blattindex).Cells(8, 2).Value = "blablabla" And Worksheets(Blattindex).Cells(25, 2).Value = "bliblablubb" Then
        Next Blattindex2
    End If


Was mach ich falsch? Ich hab bisschen das Gefühl, dass bei VBA die "schachtelung" etwas komisch ist bzw. nicht so wie ich es erwarten würde.

Vielen Dank für eure Hilfe.

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Next ohne For
22.03.2023 09:29:25
Fennek
Hallo,

die Verschachtelung von "For ... next" und "If ... endif" is falsch.

mfg


AW: Next ohne For
22.03.2023 09:39:30
Christian
ok vielen Dank und wie ist sie richtig?


AW: Next ohne For
22.03.2023 09:43:03
Matthias
Hallo,

Ich hab bisschen das Gefühl, dass Dein VBA - Code etwas komisch ist ;-)
Dein Code ist Total sinnfrei!
Erklär doch bitte mal was Du damit bezweckst, außer eine Variable hochzuzählen.
Das die Verschachtelung falsch ist hat Fennek bereits erwähnt.

MfG Matthias


AW: Next ohne For
22.03.2023 10:31:00
Christian
Hallo, ich habe natürlich ne Menge weggelassen, da es nach meinem Gefühl nicht relevant war.

Der Code soll folgendes machen:

For Blattindex = 2 To Sheets.Count ' Die Variable "Blattindex" hochzählen, von zwei anfangen, bis zur Anzahl der Blätter.
If Not Worksheets(Blattindex).Cells(8, 2).Value = "xxx" And Worksheets(Blattindex).Cells(25, 2).Value = "yyy" Then' Wenn in den Zellen nicht der richtige text ist...
Next Blattindex 'mit dem nächsten Blatt weitermachen
danach kommt noch eine Ganze Menge Code, was mit dem Blatt gemacht werden soll.
ganz am ende wieder next Blattindex


Anzeige
AW: Next ohne For
22.03.2023 11:02:16
Piet
Hallo

ich bin etwas faul, verwende lieber kurze Variable wie i, j zum zählen. Not kann man durch > ersetzen
Nach der İf Then Auswertung steht dein code, mit dem du ja arbeiten willst. So sollte es klappen.

  • Sub test()
Dim i As Integer
For i = 2 To Sheets.Count
    If Worksheets(i).Cells(8, 2) > "blablabla" And Worksheets(i).Cells(25, 2) = "bliblablubb" Then
    
    'Hier steht jetzt der Code mit dem du arbeiten willst!
    
    End If
Next i
End Sub

    • mfg Piet


    AW: Next ohne For
    22.03.2023 09:58:30
    onur
    Egal wie sinn- oder hirnfrei der Code ist - ich erkläre es mal:
    Stell dir mal vor, Eine For-Next-"Schleife" wären normale klammern und eine If-Then Schleife eckige Klammern.
    Du darfst, wenn du mit "Klammer auf" und dann "eckige Klammer auf" anfängst, nicht einfach mit "Klammer zu" weitermachen, bevor du die eckige Klammer geschlossen hast.Was DU machst, sieht wie folgt aus:
    (3* [4-) 1]
    Blödsinn - oder??


    Anzeige
    AW: Next ohne For
    22.03.2023 10:42:44
    onur
    SO geht das:
    For Blattindex = 2 To Sheets.Count ' Die Variable "Blattindex" hochzählen, von zwei anfangen, bis zur Anzahl der Blätter.
   If Not Worksheets(Blattindex).Cells(8, 2).Value = "xxx" And Worksheets(Blattindex).Cells(25, 2).Value = "yyy" Then
       'MACH WAS
   END IF
Next Blattindex 'mit dem nächsten Blatt weitermachen


    AW: Next ohne For
    22.03.2023 10:00:46
    Der Steuerfuzzi
    Hallo,

    Du kannst doch nicht das hochzählen der Schleife per Bedingung durchführen. Wenn die Bedingung nicht erfüllt ist, wird nicht hochgezählt, wenn nicht hochgezählt wird, kann die Schleife nicht beendet werden.

    Also das Next darf nicht innerhalb des If-Befehls, also zwischen "if" und "end if" stehen. Das kann nicht funktionieren.

    Wenn Du die Schleife abbrechen willst, wenn eine bestimmte Bedingung eintritt, dann kannst Du das mit "Exit For" machen.

    Gruß
    Michael


    Anzeige
    AW: Next ohne For
    22.03.2023 10:35:48
    Christian
    Hallo,

    ich versuche es nochmal zu erklären.

    ' Durchlaufe jedes Blatt, angefangen beim 2.
    ' WENN irgendwas ist
         ' mache mit dem nächsten Tabellenblatt weiter
    ' Ende WENN
    'Mache etwas mit dem Tabellenblatt
    '....
    '....
' Mache mit dem nächsten Tabellenblatt weiter


    AW: Next ohne For
    22.03.2023 10:58:58
    Daniel
    Hi
    du "schachtelst" hier nicht, sonder du "verschränkst"

    um mal den Unterschied deutlich zu machen:

    Schachteln ist das:

    +----------
| +-----
| | 
| +-----
+----------
    verschränken ist das
    +------
|  ------+
+------  |
   ------+
    oder anders gesagt:
    es gilt das Prinzip: First In - Last Out
    was du als erstes eröffnest, muss als letztes geschlossen werden.
    dh wenn du beim Öffnen zuerst das FOR hast und danach das IF, dann muss beim Schließen zuerst das END IF kommen und am Schuss das NEXT
    und genau gegen dieses Prinzip verstößt du.

    Ineinander geschachtelt werden müssen immer
    - alle Schleifen (For-Next, Do-Loop)
    - alle Bedingten Programmierungen (If Then - Select Case)
    - WITH-Klammern

    keines dieser Konstrukte darf mit einem anderen Konstrukt "verschränkt" werden, es muss immer "geschachtelt" werden.

    Gruß Daniel


    Anzeige
    AW: Next ohne For
    22.03.2023 14:26:10
    Ben
    Moin,

    die Erklärungen der anderen sollten dir ja inzwischen deutlich gemacht haben, warum dein Code so nicht funktioniert.

    Es gibt für dafür aber trotzdem eine sehr simple Lösung, nämlich die GoTo-Verweise (habe ich so auch schon benutzt).
    Du ersetzt dein "Next Blattindex" innerhalb des If-Blocks einfach durch einen Verweis zum Ende der Schleife. Grob sollte das so aussehen:

    For Blattindex = 2 To Sheets.Count
    If Not Worksheets(Blattindex).Cells(8, 2).Value = "blablabla" And Worksheets(Blattindex).Cells(25, 2).Value = "bliblablubb" Then
        GoTo NächstesBlatt
    End If
    'hier können noch -zig andere Dinge stehen
NächstesBlatt:
Next Blattindex
    Dieser Verweis katapultiert dich heraus aus der Abfrage, vorbei an allem anderen was danach kommt und direkt zum Hochzählen des Blattindex.
    Natürlich musst du trotzdem darauf achten, dass du alle Verschachtelungen ordnungsgemäß öffnest und schließt. Hoffe das hilft!

    LG Ben


    Anzeige
    AW: Next ohne For
    22.03.2023 19:14:14
    Daniel
    naja so bringt das nicht viel.

    das macht man dann doch besser mit 
    
For Blattindex = 2 To Sheets.Count
    If Not Worksheets(Blattindex).Cells(8, 2).Value = "blablabla" And Worksheets(Blattindex).Cells(25, 2).Value = "bliblablubb" Then
    else
        'hier können noch -zig andere Dinge stehen
    End If
Next Blattindex
    Gotos sind unübersichtlich und Fehleranfällig.
    um Vorzeitig aus einer Schleife auszusteigen, gibst EXIT FOR, das springt dann zum ersten Befehl nach dem entsprechenden Next.

    Gruß Daniel


    Anzeige
    AW: Next ohne For
    22.03.2023 20:52:27
    Yal
    Hallo Christian,

    das Vorteil von Binär ist, dass das Gegenteil vom Gegenteil das gleiche ist :-)

    Anstatt zu springen, wenn Bedingung 1 erfüllt ist: 
    ' FÜR jedes Blatt ab der 2.
    ' WENN Bedingung 1 erfüllt ist
         ' mache mit dem nächsten Tabellenblatt weiter
    ' Ende WENN
    'Mache etwas mit dem Tabellenblatt
    '....
    '....
' nächstes Blatt
    bleibe lieber dabei, wenn nicht erfüllt ist (ansonsten geht es ohne Behnadlung auf die nächste): 
    
' FÜR jedes Blatt ab der 2.
    ' WENN Bedingung 1 NICHT erfüllt ist
        'Mache etwas mit dem Tabellenblatt
        '....
        '....
    ' Ende WENN
' nächstes Blatt
    VG
    Yal


    Anzeige
    AW: Next ohne For
    22.03.2023 21:05:21
    Yal
    Sieht dann so aus:
    For Blattindex = 2 To Sheets.Count
    With Worksheets(Blattindex)
        If .Cells(8, 2).Value = "blablabla" Or .Cells(25, 2).Value > "bliblablubb" Then
            'hier passier jetzt alles
        End If
    End With
Next Blattindex
    weil
    Not (A And B) = Not A Or Not B

    Dass es dabei einen Blattindex und einen Blattindex2 gibt, ist dir wohl bewusst, oder? Lieber kurzere Variablenamen, die sich auch noch visuell unterschieden.

    VG
    Yal

    158 Forumthreads zu ähnlichen Themen

    VBA - Berechnung ohne Formeleintrag
    kasi

    Hallo liebe Excelprofis,
    im Grunde bin ich jemand der lieber allein etwas herausfindet als jemanden um Hilfe zu bitten, aber ich weiß jetzt einfach nicht weiter :-(
    Nach 6 Tagen rumforschen in allen möglichen Foren geb ich mich geschlagen und will nun doch hier fragend mein Glück versuc...
    18.02.2009 02:59:00
    Thread-ID: 1051668
    4 Beiträge
    Anzeige
    Versand Tabellenblatt ohne Formel OHNE VBA
    Stef@n

    Hallo
    auf Basis der Antworten des Threads
    https://www.herber.de/forum/messages/1117576.html
    habe ich folgenden Code, der auch einwandfrei funktioniert ! (Mail wird erst versandt, wenn in
    der Zelle O10 der Text "VERKAUF" steht.
    Nur eine Nachfrage:
    Es wird das Blatt kop...
    16.11.2009 15:07:38
    Thread-ID: 1117637
    9 Beiträge
    VBA_For-Next Schleife ist fehlerhaft
    Dirk

    Hallo allerseits,
    habe da noch ein Problem mit einer Schleife.
    Nachstehender CODE soll im TB Eingaben Zeile 1 nach einem Wert aus TB Ausgabe A1 suchen.
    Macht er auch, nur zeigt er mir immer erst die msgBox an (nichts gefunden) und wenn ich die dann x-mal bestätige, kommt dann auch i...
    06.05.2010 17:41:15
    Thread-ID: 1155887
    5 Beiträge
    Anzeige
    Addition per VBA ohne Formel
    MikeS

    Hallo Leute,wer kann mir bei meinen bescheidenen VBA-Anfängen helfen?Mit nachfolgendem Code möchte ich in jedem Tabellenblatt die Zellen A1:A3 summieren.Nach dem Durchlauf aller Blätter soll die Gesamtsumme in Tabelle1-Zelle B1 reingeschrieben werden.Was stimmt hier nicht?Vielen Dank
    MikeS
    05.06.2002 21:02:45
    Thread-ID: 126298
    3 Beiträge
    direkte Zellformatierung ohne VBA
    WalterDa

    Kennt jemand eine Möglichkeit, ohne VBA, sondern direkt über Eingabe von Formeln, in Zellen Formatierungen durchzuführen?
    Ich möchte z.B. die aktive Zelle farbig markieren, wenn die aktive Zelle einen Wert und die Zelle daneben keinen Wert enthält.Gruß Walter
    10.06.2002 07:39:47
    Thread-ID: 127374
    4 Beiträge
    Sheet mit Formatierung ohne VBA copy
    Mike

    Hallo,
    ich habe ein "Mastersheet" mit dem Namen Daten_1 und möchte dieses gerne mehrfach kopieren
    anzahl = InputBox("Wieviel Jahre sollen eingefügt werden?")
    anzahl=anzahl*12 'für die Monate
    ergeben sollte es dann sowas in 3 Monatsabständen.
    Daten_3
    Daten_6
    Daten_9<...
    07.03.2012 10:33:31
    Thread-ID: 1253991
    4 Beiträge
    Formel & steuerelement ohne VBA
    Mister-B

    Hallo,
    in einer Tabelle habe ich einen Checkbox. Wie kann ich erreichen, ohne VBA, dass eine Formel guckt ober der Box aktivert ist?
    Gruß
    Martin
    21.04.2012 16:13:36
    Thread-ID: 1260382
    4 Beiträge
    For Schleife mit If/Else im Userform
    Black-Mage

    Hallo ihr lieben, ich habe folgendes Problem:
    Ich habe ein Userform das durch klick auf eine Schaltfläsche ein 2tes Userform öffnet, in dem einige Werte eingetragen werden sollen.
    Wenn ich nun im UF2 auf ok klicke Prüfe ich mit einer For schleife, ob alle Textboxen auch ausgefüllt wurd...
    01.11.2012 19:45:30
    Thread-ID: 1284895
    7 Beiträge

    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
    3
    6
    8
    4
    4
    2
    3
    3
    3
    6
    3
    8
    5
    6
    3
    4
    2
    3
    4
    6
    4
    11
    7
    3
    6