Komme nicht weiter.
Ich habe ein Makro, dass in "DieserArbeitsmappe" eingebaut ist. Nun bezieht sich der Code da nur auf ("Tabelle1"). Kann ich aber erreichen, dass dieser Code auch auf die anderen Tabellen (2-10) reagiert?
Danke vorab den Helfern und Grüsse
Glen.
Hier das Makro:
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim varvergleichsArray As Variant, lngIndex As Long, bolgeaendert As Boolean
If Not SaveAsUI Then
varvergleichsArray = Worksheets("Tabelle1").Range("A1:A50")
For lngIndex = 1 To 50
If varvergleichsArray(lngIndex, 1) <> varArray(lngIndex, 1) Then bolgeaendert = True: Exit For
Next
If bolgeaendert Then
mailen
Application.EnableEvents = False
ThisWorkbook.Save
Application.EnableEvents = True
varArray = Worksheets("Tabelle1").Range("A1:A50")
Cancel = True
End If
End If
End Sub
Private Sub Workbook_Open()
varArray = Worksheets("Tabelle1").Range("A1:A50")
End Sub