Fehlerbehandlung Gen_1 bis Gen_20

[schauan]

Hallöchen,

hast Du geschaut, wo der Text für die "komplette" Meldung zusammengesetzt wird?

Die Meldung lautet
MsgBox "In der rechten Tabelle fehlen die Spalten für" & vbCrLf & vbCrLf & lstrErrMsg & vbCrLf ....

Darin hast Du die Variable lstrErrMsg

Zusammengesetzt wird sie dort:

lstrErrMsg = lstrErrMsg & lstrGenTxt & vbCrLf

Also aus sich selbst und einer anderen Variable. Die vCrLf lass ich mal außen vor.
... und auch nur dann, wenn varSP das Wort "Fehler" enthält, also die Spalte nicht de ist.

Was ist nun lstrGenTxt ?

lstrGenTxt = "#Gen_" & lloGenNr - 6

also der gesuchte "Spaltentext"

Den willst Du als jeweils einzelne Meldung. Also, wenn schlimmstenfalls alle 25 Spalten fehlen willst Du 25 Meldungen haben und quittieren.

Dann ersetzte

lstrErrMsg = lstrErrMsg & lstrGenTxt & vbCrLf

durch

MsgBox lstrGenTxt

und lasse die andere MsgBox weg ...

[luna101]

Guten Abend André
danke für die Modifikation und Erklärung dazu.
Funktioniert wie gewünscht.
Ich möchte die MsgBox noch ändern auf.
zB.
"#Gen 25 fehlt in der rechten Tabelle,
 das Makro wird abgebrochen."

Bitte um nochmalige Hilfe.
Gruss Martin

[schauan]

Hallo Martin,

das ist doch recht einfach.

Deine Meldung ist eine Zeichenkette und Zeichenketten setzt man meist mit & zusammen. Also, im Prinzip

Msgbox "Ein Teil vom Text " & lstrGenTxt & " und das ein anderer."

Da sind dann auch die Leerzeichen dabei vor und nach #GEN...

[luna101]

Hallo André
Danke für die Info.
Die Änderung habe nun hingekriegt, aber es meldeten sich sich
immer noch 2 mal die "MsgBox lstrGenTxt". Habe ich aber hingekriegt.
Werde es mal ausgiebig testen.
Nochmals -lichen    und für Deine Hilfe.
Wünsche ein schönes Wocheende.
Gruss Martin