Thema Datum  Von Nutzer Rating
Antwort
Rot Msgbox in For Schleife
10.12.2022 12:11:12 Marc.L
NotSolved
10.12.2022 13:15:02 Flotter Feger
NotSolved
11.12.2022 17:37:15 Marc.L
NotSolved
11.12.2022 17:51:59 Marc.L
NotSolved
11.12.2022 18:26:46 Flotter Feger
NotSolved
11.12.2022 19:51:12 Marc.L
NotSolved
11.12.2022 20:19:31 Gast61337
NotSolved

Ansicht des Beitrags:
Von:
Marc.L
Datum:
10.12.2022 12:11:12
Views:
100
Rating: Antwort:
  Ja
Thema:
Msgbox in For Schleife

Hallo zusamen ich habe da gleich noch mal eine Frage: 

wie kann ich in einer For-Schleife eine MsgBox einbauen die bei eine If-Else abfrage mit den Fehler anzeigt und dann die Schleife beendet sodas ich zu der Zeile springe an der das Problem ist? 

Genau geht es um Querschnitte und Farben die in einem extra Tabellenblatt stehen. Wenn der Wert nicht da ist soll die MsgBox aufgehen und melden das der Querschnitt "2,5" fehlt.  Bisher hing sich meine schleife immer auf wenn ich es als Else Bedinung gesetz habe 

(Else

    MsgBox "Querschnitt oder Farbe fehlen!"&" "&Material 

    Exit For

)

anbei mal der Code: 

Material = wks.Cells(1 + i, 2)
                    Worksheets("Material").Select
                    Range("B2").Select
                    Zeilenanzahl2 = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row - 1
    
                        For j = 1 To Zeilenanzahl2
 
                            'Farbe in Zelle in Tabelle suchen
                            If Material = Worksheets("Material").Cells(1 + j, 2) Then
                                    'Farbe setzen in ING_Eplan_Export
                                wks.Cells(1 + i, 2) = Worksheets("Material").Cells(1 + j, 1)
                            End If
                            
                        Next j
                    
                    Farbe = wks.Cells(1 + i, 1)
                    Worksheets("Material").Select
                    Range("B4").Select
                    Zeilenanzahl3 = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row - 1
    
                        For k = 1 To Zeilenanzahl3
 
                            'Querschnitt in Zelle in Tabelle suchen
                            If Farbe = Worksheets("Material").Cells(1 + k, 5) Then
                                   'Querschnitt setzen in ING_Eplan_Export
                                wks.Cells(1 + i, 1) = Worksheets("Material").Cells(1 + k, 4)
                            End If
        
                        Next k
                        
                    wks.Cells(1 + i, 3) = wks.Cells(1 + i, 2).Value & " " & wks.Cells(1 + i, 1).Value
                
            Next i

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Msgbox in For Schleife
10.12.2022 12:11:12 Marc.L
NotSolved
10.12.2022 13:15:02 Flotter Feger
NotSolved
11.12.2022 17:37:15 Marc.L
NotSolved
11.12.2022 17:51:59 Marc.L
NotSolved
11.12.2022 18:26:46 Flotter Feger
NotSolved
11.12.2022 19:51:12 Marc.L
NotSolved
11.12.2022 20:19:31 Gast61337
NotSolved