Hilfe ! Warum wird die Auto_Open ...
27.03.2006 08:38:28
walter
habe eine Datei erstellt, die ich ins "Netz" gestellt habe, damit die "Nutzer"
darauf zu greifen können.
Jetzt stelle ich fest, das die Auto Open nicht durchgeführt wird.
Hier das Makro:
Sub Auto_Open()
Application.ScreenUpdating = False
Sheets("Eingang").Select
Range("A1").Select
Application.Calculation = xlCalculationManual
'--------- jetzt wird erst gelöscht --------------------
Sheets("Laufende").Select
Range("c3").Select
ActiveSheet.Unprotect (getStrPasswort)
For i = 4 To Cells(Rows.Count, 1).End(xlUp).Row '4 ist die Zeile anfängt, Rows.Count,3
' Spalte geprüft wie weit belegt ist
Cells(i, 2) = Delete 'hier erst löschen
Next i
Dim jdate
Dim Verzeichnis As String
Dim myFSO As Object, myDrv As Object, strFS As String
Dim zuhr
jdate = Format(Now, "dd.mm.yyyy hh:mm")
zuhr = Format(Now, "hh:mm")
Password:=getStrPasswort 'schützen
For i = 4 To Tabelle1.[ah22].End(xlUp).Row
Tabelle71.ComboBox1.AddItem Tabelle1.Cells(i, 34)
Next
Tabelle71.ComboBox1.ListIndex = -1 'hier Combobox einlesen
For i = 4 To Tabelle1.[ah22].End(xlUp).Row
Tabelle711.ComboBox1.AddItem Tabelle1.Cells(i, 34)
Next
Tabelle711.ComboBox1.ListIndex = -1 'hier Combobox einlesen
Sheets("Laufende").Select
Range("c3").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True, Password:=getStrPasswort 'schützen
Sheets("Eingang").Select
Range("A1").Select
Application.Calculation = xlCalculationAutomatic
UFEingang.Show
Application.ScreenUpdating = True
End Sub
Die Sheet ("Eingang") ist dann auf der Oberfläche aber die UFEingang wird nicht geladen.
Wenn ich die Datei von meiner Festplatte starte, kein Problem.
mfg walter