AW: quelldatei passwortgeschützt-
11.05.2014 14:55:57
Spenski
hi nepumuk.
das steht alles in den posts davor. hat sich aber erledigt . ich habe bei der quelldatei den leseschutz rausgenommen und jetzt läuft das ding besser als erwartet.
das der code:
Public t As Boolean
Sub starten() 'startet schleife
t = True
zeit = Time + TimeSerial(0, 0, 10)
Application.OnTime zeit, "aktualisieren"
End Sub
Sub aktualisieren()
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
UserForm1.TextBox48.Value = Range("AU8").Value
UserForm1.TextBox53.Value = Range("AU5").Value
UserForm1.TextBox57.Value = Range("AU6").Value
UserForm1.TextBox61.Value = Range("AU7").Value
UserForm1.TextBox49.Value = Range("AV8").Value
UserForm1.TextBox54.Value = Range("AV5").Value
UserForm1.TextBox58.Value = Range("AV6").Value
UserForm1.TextBox62.Value = Range("AV7").Value
UserForm1.TextBox50.Value = Range("AW8").Value
UserForm1.TextBox55.Value = Range("AW5").Value
UserForm1.TextBox59.Value = Range("AW6").Value
UserForm1.TextBox63.Value = Range("AW7").Value
UserForm1.TextBox51.Value = Range("AX8").Value
UserForm1.TextBox52.Value = Range("AX5").Value
UserForm1.TextBox56.Value = Range("AX6").Value
UserForm1.TextBox60.Value = Range("AX7").Value
UserForm1.TextBox64.Value = Range("AW1").Value
UserForm1.TextBox65.Value = Range("AY1").Value
If t = True Then starten
End Sub
Sub beenden()
t = False
End Sub
bei der fettgedruckten zeile hatte er faxen gemacht da es sich beim aktualisieren um verknüfungen zu anderen datenquellen handelt und diese lese/schreibgeschützt waren.
ohne leseschutz läufts super und das nehme ich gerne in kauf
gruss und danke für den zeitaufwand an alle
christian