Hilfe bei CODE erweitern(Dateien auslesen)
02.10.2005 22:57:52
Lorenz
Einen schönen guten Abend (Nacht)!
Habe Folgendes Problem: wie kann ich die Aktualisierungsabfrage unterbinden?, bzw wie soll das Schreibschutzpasswort (sPW) in den Code integriert werden.
Sub AusGeschlossenerDateiLesen()
Dim sTxt As String, sBereich1 As String, sAktuell As String, rng As Range, sPW as String
sPW = ""sichern"
sBereich1 = "a1:l17"
sAktuell = ActiveSheet.Name
sTxt = "'" & ThisWorkbook.Path
sTxt = sTxt & "[" & "TEST.xls" & "]"
sTxt = sTxt & sAktuell & "'!"
sTxt = sTxt & sBereich1
Set rng = Worksheets(sAktuell).Range(sBereich1)
rng.Formula = "=if(" & sTxt & "="""",""""," & sTxt & ")" <---Hier wird die Aktualisierung abgefragt!Anschliessend kommt die manuelle Passwortabfrage!
rng.Value = rng.Value
End Sub
Bitte um Hilfe!
Danke Lorenz
Anzeige