nach Anzeige MsgBox bzw. strFehler Makro abbrechen
Sandra
ich habe ein Problem und hoffe Ihr könnt mir weiter helfen.
In meinem Makro tauchen verschiedene Prüfungen auf.
1. Prüfung
strFehler = strFehler & sListZeichen & "Die Spalte'" & _
ArrayQuelle(nIndex) & "' wurde nicht in der Quell-Datei gefunden" & vbCr
strFehler = strFehler & sListZeichen & "Die Spalte'" & _
ArrayZiel(nIndex) & "' wurde nicht in der Ziel-Datei gefunden" & vbCr
Dim zeile As Long, spalte As Long
Dim i As Integer
Dim strausgabe As String, strzelle As String, x As String
Dim wks As Worksheet
Dim check As Boolean
Set wks = Sheets(1)
Dim spalten()
Dim spaltennamen()
Dim spaltenausgabe()
x = ""
spalten() = Array(5, 6, 7, 15, 18)
spaltennamen() = Array("In der Spalte Mangelart (E)", "In der Spalte Vertragsart (F)", "In der _
Spalte Gewerk (G)", "In der Spalte Frist (O)", "In der Spalte Auftragnehmer (R)")
spaltenausgabe() = Array(x, x, x, x, x, x, x, x)
For i = 0 To UBound(spalten())
spaltenausgabe(i) = spaltennamen(i) & " in den Zeilen: "
Next i
With wks
For zeile = 65 To 500
If .Cells(zeile, 2).Value "" Then
For i = 0 To UBound(spalten())
On Error GoTo schleife
If Cells(zeile, spalten(i)).Value = 0 Then
schleife:
spaltenausgabe(i) = spaltenausgabe(i) & vbCrLf & zeile & ", " & vbCrLf
check = True
End If
Next i
End If
Next zeile
End With
If check = True Then
For i = 0 To UBound(spalten())
strausgabe = strausgabe & spaltenausgabe(i) & vbCrLf
Next i
MsgBox "Fehlerhaft ausgefüllte Zellen: " & vbCrLf & vbCrLf & _
strausgabe
Else
MsgBox "Es konnten keine leeren Zellen in den Spalten Mangelart (E), Vertragsart (F), _
Gewerk (G), Frist (O) und Auftragnehmer (R) gefunden werden!"
End If
Nun ist es so, dass das Makro bei negativer Prüfung nicht weiter ausgeführt werden muss. Wenn also Meldung 1. erscheint kann das Makro abbrechen, ansonsten erst einmal weiter laufen. Wenn die 2. Meldung auftaucht sollte das Makro ebenfalls abbrechen, sonst weiterlaufen. Bei der 3. Prüfung muss das Makro nur abbrechen, wenn diese MsgBox erscheint:
MsgBox "Fehlerhaft ausgefüllte Zellen: " & vbCrLf & vbCrLf & _
strausgabe
Habt Ihr eine Idee, wie ich das bewerkstelligen kann?
Lieben Dank & Gruß
Sandra