|
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
|