Fehlerbehandlung Gen_1 bis Gen_20

[luna101]

Guten Tag ihr fleissigen Helfer
in der Tabelle links wird per Ereignisüberwachung jede Zelländerung markiert, nach Tabelle rechts kopiert und ebenfals markiert.
Tabelle links hat Spalten von "Gen1" bis "Gen 20". Die Tabelle rechts hat nur Spalten von "#Gen_1"  bis " #Gen_18"  oder weniger.

Ich wollte nun eine Fehlermeldung einzubauen, die, wenn in Tabelle rechts die Spaltenüberschriften nicht vorhanden sind, 
eine Fehlermeldung erhalte.
zB:      MsgBox "in Tabelle rechts ist die Spalte  "#Gen_19"  (oder *#Gen_ 20") nicht vorhanden, bitte neu erstellen"

Die restlichen Überschriften sind immer vorhanden. Habe verschiedenes versucht, aber keine Meldung funktioniert richtig.

Bitte um Hilfe, mein "MsgBox"  Problen zu lösen.
Mit dankbaren Grüssen
Martin

[Oberschlumpf]

Hi,

Gegenfrage:
Und wieso fügst du in rechter Tabelle nicht einfach die fehlenden Spalten hinzu?
Dann muss doch nich mehr kontrolliert werden, was vorhanden ist - weil - immer ist alles vorhanden.

Ciao
Thorsten

[luna101]

Hallo Thorsten.
Danke für den Typ. Das mache ich schon.
Aber es arbeiten auch andere mit der Tabelle.
Da wäre es von Vorteil, wenn beim Fehlen der
Spalten eine Fehlermeldung erscheinen würde.
Wünsche ein schönes Wocheende.
Gruss Martn

[BoskoBiati]

Hi,

Deine auskommentierte Fehlerbehandlung funktioniert, wenn Du es richtig machst:

Code:

If IsError(Application.Match("#Gen_20", Rows(6), 0)) Then                                                                    ' Spalte mit Überschrift "#Gen_20" finden
        MsgBox "Spalte nicht vorhanden, bitte ergänzen"
    Else
        varSp89 = Application.Match("#Gen_20", Rows(6), 0)
    End If

[luna101]

Guten Abend Edgar, 
     für die angepasste Fehlerbehandlung.
Sie funktioniert, aber ich erhalte nach dem quitieren eine Fehlermeldung
      Interior.ColorIndex = lngColorindex 
Woher kommt diese Meldung und wie kann man sie Verhindern.
Mit dankbaren Grüssen
Martin

[Oberschlumpf]

Hallo Thorsten.
Danke für den Typ. Das mache ich schon.
Aber es arbeiten auch andere mit der Tabelle.
Da wäre es von Vorteil, wenn beim Fehlen der
Spalten eine Fehlermeldung erscheinen würde.
Wünsche ein schönes Wocheende.
Gruss Martn

Hi,

ich denk, du hast mich falsch verstanden.

Ich gehe davon aus, es gibt genau EINE Datei, mit der mehrere Leute arbeiten - und genau DAS gibst du ja auch an.

Also meine ich:

Füge in dieser EINEN Datei gleich sofort die fehlenden Spalten in der rechten Tabelle ein UND speicher diese EINE Datei.

AB JETZT sind doch für jeden, der DIESE EINE Datei öffnet, ALLE Spalten enthalten.

Oder was habe ja vielleicht auch ich noch immer nicht verstanden?

Ciao
Thorsten

[luna101]

Guten Tag Thorsten,
Du hast mich richtig verstanden. Genau so mache ich es bis jetzt.
Wollte nur sicher gehen, dass wenn mal vergessen wird eine neue 
Spalte einzfühgen, eine MsgBox uns daran erinnert.
Wünsche noch ein schöner Sonntag.
Gruss Martin

[Oberschlumpf]

Hi,

ok, JETZT hab ich verstanden!  

Du willst nur ganz, ganz, ganz auf Nummer sicher gehen.

Ok, versuch es mal mit meiner geänderten Datei.
Such im Code nach den Kommentaren:

'START MEIN CODE

...und...

'dieser dein Befehl führt auch zu nem Fehler

Konnte ich denn jetzt helfen?

Ciao
Thorsten

[luna101]

Guten Tag Thorsten.
lichen für Deine Hilfe.
Es funktioniert .
Wünsche noch eine gute Woche.
Gruss Martin