Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
908to912
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
908to912
908to912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bemerkung bei Änderungen

Bemerkung bei Änderungen
26.09.2007 10:53:31
Rebecca
Hallo,
ich habe einen Code, der sich auf zwei Zellen bezieht. Wenn zu einem späteren Zeitpunkt die Tabelle geändert wird (z.B. eine andere Zeile löschen) würde der Code nicht mehr funktionieren. Wie muss der Code aussehen, damit bei Änderungen grundsätzlich eine Warnung auftaucht und man nach der Änderung den Code entsprechend umschreibt? Oder gibt es sogar die Möglichkeit, das sich der Code automatisch anpasst?
Der jetzige Code lautet:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Range("A34")  Range("w34") Then
MsgBox "Fehler!" & Chr(13) & _
"Differenz mit der Datei Altdaten", vbCritical, "Nochmal prüfen!"
Else
ActiveWorkbook.Close
End If
End Sub


Könnt ihr helfen?
Gruss Rebecca

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bemerkung bei Änderungen
26.09.2007 11:02:59
Matthias
Hallo Rebecca
Definiere für die beiden Zellen je einen Namen, dann dürfte das Löschen oder Hinzufügen keine Rolle spielen.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Range("Name1")  Range("Name2") Then
MsgBox "Fehler!" & Chr(13) & _
"Differenz mit der Datei Altdaten", vbCritical, "Nochmal prüfen!"
Else
ActiveWorkbook.Close
End If
End Sub


Userbild

AW: Bemerkung bei Änderungen
26.09.2007 11:46:22
Rebecca
Hallo Matthias,
ja, das klappt. Vielen Dank für deine Hilfe.
Herzlichen Gruss
Rebecca
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige