Mehrere Tabellen ansprechen

Hallo Excelfreunde
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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 For i = 1 To Worksheets.Count varvergleichsArray = Worksheets(i).Range("A1:A50") Next i 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(i).Range("A1:A50") Cancel = True End If End If End Sub

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 For i = 1 To Worksheets.Count varvergleichsArray = Worksheets(i).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(i).Range("A1:A50") Cancel = True End If Next i End If End Sub

Hallo Leute
Ich frage nochmal scheu nach der Lösung.
Das Problem ist, dass die ganze Angelegenheit nur in Tabelle1 funktioniert.
Zur Funtion: Wenn in Spalte A ein Eintrag gemacht wird und anschliessend die Tabelle gesichert wird, geht eine E-Mail an den hinterlegten Empfänger ab. Wenn jedoch dieser Empfänger das macht, wird die E-Mail nicht versand (was auch so sein soll).
Das ganze geht aber nur so lange ich das in Tabelle1 mache! kopiere ich diese und erstelle somit Tabelle2, geht dass dann nicht mehr. Das würde ich gerne (anscheinend mit einer Schleife) lösen, so dass ich mindestens zehn weitere Mappen erstellen kann. Ich habe bereits Hilfe erhalten, weiss jedoch nicht wo die Schleife eingebaut wird.
https://www.herber.de/bbs/user/6094.xls
Die andere Sache mit dem erstellen eines Termin läuft beim kopieren
Gruss Glen

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread