Bekomme die Schleife nicht zum laufen

Hallo Excelfreunde
Ich habe hier im Forum einen Vorschlag erhalten, dass ich für meine Funktion eine Schleife einbauen muss. Die Schleife gibt jetzt die Fehlermeldung aus (Variable nicht definiert). Kann mir jemand sagen, was hier falsch ist?
Die Schleife soll bewirken, dass das Makro nicht nur in Tabelle1 läuft, sondern auch dann, wenn ich Tabelle1 kopiere und Tabelle2, 3, 4 usw. nutzen möchte.
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
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


Private Sub Workbook_Open()
For i = 1 To Worksheets.Count
varArray = Worksheets("Tabelle(i)").Range("A1:A50")
Next i
End Sub

Gruss
Glen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_Open() und die Fehlermeldung markiert das i, dass nach For steht. Ich hoffe du kommst damit klar. Ich kann das Teil bei Bedarf auch mal hochladen. Gruss Glen Private Sub Workbook_Open() For i = 1 To Worksheets.Count varArray = Worksheets("Tabelle(i)").Range("A1:A50") Next i End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim varvergleichsArray As Variant, lngIndex As Long, bolgeaendert As Boolean Dim i As Byte 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

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim varvergleichsArray As Variant, lngIndex As Long, bolgeaendert As Boolean Dim i As Byte If Not SaveAsUI Then For i = 1 To Worksheets.Count varvergleichsArray = Worksheets("Tabelle1").Range("A2:A50") For lngIndex = 2 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("A2:A50") Cancel = True End If Next i 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 Dim i As Byte If Not SaveAsUI Then For i = 1 To Worksheets.Count varvergleichsArray = Worksheets(i).Range("A2:A50") For lngIndex = 2 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("A2:A50") Cancel = True End If Next i End If End Sub

Beliebteste Forumthreads (12 Monate)

Bekomme die Schleife nicht zum laufen

25 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread