Überflüssige Daten löschen
19.11.2008 09:01:02
Jürgen
in meiner Arbeitsmappe habe ich eine Vielzahl von Webabfragen (QueryTables),
und zwar je eine pro Arbeitsblatt.
Um sie gelegentlich zu aktualisieren benutze ich folgendes Makro:
Public Sub DatenErneuern()
Dim WS As Worksheet, QT As QueryTable
Range("H2:I100").Value = Range("E2:F100").Value
For Each WS In ThisWorkbook.Worksheets
For Each QT In WS.QueryTables
QT.Refresh
Next QT
Next WS
Set WS = Nothing: Set QT = Nothing
End Sub
Da die Arbeitsblätter letztendlich mehr Informationen enthalten als ich benötige,
ich sie aber vor der Abfrage leider nicht einschränken kann,
möchte ich unmittelbar nach der Aktualisierung eines Blattes einiges löschen.
(zur Verringerung von Datenmüll)
Und zwar kann Spalte B,C,D...
sowie Zeile 101,102,103...entfallen.
Oder mit anderen Worten: Ich benötige jeweils nur A1:A100.
Vor dem Löschen sollten noch alle verbundenen Zellen getrennt werden,
damit es kein Kuddelmuddel gibt.
Ich würde mich sehr freuen,
wenn mir jemand dabei behilflich sein könnte,
diesen Wunsch in den o.g. Code einzubauen.
(Oder Alternativ-Lösung)
MFG
Jürgen