Clear Contents mit Blatt Auswahl
02.02.2022 09:39:19
Nelinax
ich habe eine Auswertung in der ich über ein Makro und ein Formular mehrere Daten importiere.
Vor jedem neuen Import, der Daten aus meinen 3 Arbeitsblättern leere ich, über einen Button, die Arbeitsblätter in die diese Daten geschrieben werden sollen.
(Damit, falls der neue Datensatz kürzer ist als der alte, keine alten Daten bestehen bleiben und falsch zugeordnet werden.
Nun gibt es allerdings Daten die nicht jedes Mal mit aktualisiert werden müssen..
Gibt es eine Möglichkeit über eine Inputbox eine Abfrage zu schalten welche der Arbeitsblätter geleert werden sollen?
Das ist meine bisherige Lösung:
Sub Delete()
Worksheets("Tabelle1").Range("A2:D9999").ClearContents 'Muss immer gelehrt werden
Worksheets("Tabelle2").Range("A2:R9999").ClearContents 'Muss manchmal gelehrt werden
Worksheets("Tabelle3").Range("A2:B9999").ClearContents 'Muss manchmal gelehrt werden
Worksheets("Jahresdaten").Range("D50").ClearContents 'Muss immer gelehrt werden
Worksheets("Jahresdaten").Range("D3").ClearContents 'Muss immer gelehrt werden
End Sub
Aus diesem Grund leere ich nur die Bereiche in denen importierte Daten stehen.
Ich bin für jeden Vorschlag oder konstruktive Kritik dankbar
Danke & Grüße
NelinaX