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
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
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,
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
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
(14.10.2023, 13:48)luna101 schrieb: [ -> ]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
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
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
Guten Tag Thorsten.
lichen
für Deine Hilfe.
Es funktioniert
.
Wünsche noch eine gute Woche.
Gruss Martin