ich habe ein Makro erstellt welchen ich in die
Private Sub Workbook_Open()
einfügen will.
Das ist erstmal dieser Makro:
Private Sub Workbook_Open()
Dim anzahl1 As Integer, anzahl2 As Integer
Dim vFile As Variant
anzahl1 = 2 'Damit die Schleife einmal durchgegangen wird
anzahl2 = 4
Do While anzahl1 < anzahl2
anzahl1 = 0
anzahl2 = 0
For Each c In Worksheets("Oktober 02").Range("A5:A100")
If (c.Value Like "MK#####") Then
anzahl1 = anzahl1 + 1
End If
Next c
Application.ScreenUpdating = False
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
vFile = "C:\Decker\Projekte\Zeiterfassung\Zeiterfassungs-Stammblatt.xls"
If vFile = False Then GoTo ERRORHANDLER
Workbooks.Open Filename:=vFile
'ab hier Zählen in Stammblatt
For Each c In Worksheets("Stammblatt").Range("A5:A100")
If (c.Value Like "MK#####") Then
anzahl2 = anzahl2 + 1
End If
Next c
ActiveWorkbook.Close savechanges:=False
ERRORHANDLER:
Application.EnableEvents = True
Application.ScreenUpdating = True
If anzahl1 < anzahl2 Then
Call Makro3
End If
Loop
End Sub
Jetzt das Problem: So wie ich es hier den Code eingefügt habe funktioniert es nicht, er bringt keine Fehlermeldung, anzahl2 bleibt bei Null, obwohl es 17(Anzahl der Zeilen mit "MK#####") sein soll.
Es funktioniert nur wenn ich das ganze in z.B. Private Sub Worksheet_Activate() schreibe, oder einfach so über MS Visual Basic ausführe.
Was habe ich da falsch gemacht?
Muß ich auf irgendwas besonderes achten bei Workbook_Open()???
Ich danke euch schon mal für eure Beiträge
mfg
Steffen