Zellen clearen
05.10.2014 17:11:48
Peter
Hallo,
ich habe folgenden Code:
Sub Fakeslöschen()
' Fakeslöschen Makro
Sheets("Fakes").Select
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Range("A2").Select
Sheets("Tabelle2").Select
End Sub
Dieser soll alle Zellen "clearen", denn ich kopiere in dem Tabellenblatt "Fake" immer Daten untereinander. Lösche ich diese Zellen dann lediglich, wird danach nicht wieder in A2 angefangen einzufügen, sondern dort wo vorher die letzte belegte Zeile gewesen ist.
Also Lösche ich einfach alle Zeilen.
Dadurch werden jedoh auch sämtliche Formelbezüge auf das Tabellenblatt "Fake" gelöscht und es treten dann #Bezug Fehler auf.
Ich möchte also das Datenblatte "Fake" ab A2 so löschen, dass danach wieder beim neuen reinkopieren, ab A2 untereinander eingefügt werden kann und eben nicht ab beispielsweise der letzten belgten Zeile A150 :-)
Habt Ihr eine IDee?
Grüße
Peter