Queryabfrage verschwindet aus Exceldatei
31.03.2005 08:31:34
Heiko
ich habe für unsere Firma eine Exceldatei angefertigt,
in der Produktionsdaten erfasst werden.
Sie ist freigegeben, damit mehrere Leute gleichzeitig darauf Zugriff haben.
Für die Komplettierung der Daten benutze ich eine Queryabfrage, die ich über VBA
starte. Diese greift auf unsere Produktionsdatenbank zu und fragt dort je
Artikel 2 Werte ab.
Das Problem ist, dass die Abfrage, die ich auf einem ausgeblendeten Tabellenblatt ("Extern") habe ca. aller 3-4 Wochen plötzlich verschwindet.
Hier mal der Code, der die Abfrage ausführt.
'$$---------------------------------------------------$$
Sub Abfrage_Widerstand()
Dim Z, S As Long
Dim Blattname As String
Z = ActiveCell.Row
S = ActiveCell.Column
Blattname = ActiveSheet.Name
Worksheets("Extern").Range("B2").Value = ActiveSheet.Cells(Z, 1).Value
Application.ScreenUpdating = False
Worksheets("Extern").Activate
Application.GoTo Reference:="Abfrage_von_AVS"
Selection.QueryTable.Refresh BackgroundQuery:=False
Worksheets(Blattname).Activate
ActiveSheet.Cells(Z, 34).Value = Worksheets("Extern").Range("C5").Value
ActiveSheet.Cells(Z, 35).Value = Worksheets("Extern").Range("B5").Value
Application.ScreenUpdating = True
End Sub
'$$---------------------------------------------------$$
Wie kommt es, dass die Abfrage andauernd verschwindet ?
Wie kann mann Die verhindern ?
Vielen Dank für Eure Hilfe
Beste Grüße von Heiko