Office: Zelle A1 bis letzte Gefüllte in Spalte löschen

Hallo,
ich möchte ein Makro erstellen, dass die letzte gefällte Zelle in Spalte A sucht und dann von A1 bis zu dieser alle Zellen löscht.

Wenn ich A:A schreibe oder sowas in der Art dauerd es mir zu lange da jede andere Zelle im ganzen Sheet von Spalte A abhängt.

Wie mach ich das? Wäre dankbar für Antworten!

-----------------
Ich hätte noch eine Frage aber ich hab schon im Internet gesucht un da wusste es keiner bzw. sie haben gesagt es ist unmöglich.
Kann man Buttons so fixieren, dass die beim Scrollen nicht mitscrollen sondern immer an der selben Stelle sind?
Aber ist nicht so wichtig...

bis dann
Gruß fexs

 

Hallo!

Code:

Range(Range("A1"), Range("A:A").SpecialCells(xlCellTypeLastCell)).ClearContents

Aber ist das wirklich schneller als dies?

Code:

Columns(1).ClearContents

Bemerke: Hier werden die INHALTE gelöscht.
Wenn die gesamten ZELLEN gelöscht werden sollen, dann statt "ClearContents" "Delete".

Soweit ich weiß, sind deine Infos zu den Buttons (leider) richtig!
Allerdings: Wenn du deinen Button auf einer UserForm platzierst, dann müsste es funktionieren, denn diese scrollt nicht mit.

 

Ich habe ein Makro aufgenommen, das erst A:A makiert un dann die Selection löscht. Mit Clear Contents isses bestimmt schneller;)

Wie mach ich denn eine UserForm?
Und geht das auch wenn unter den Buttons Text steht??

 

Hallo!

Ohne "Select" ist es immer schneller. Diese Anweisung ist zu 99% überflüssig.

Eine UserForm erstellst du im VBA-Editor:
Menü Einfügen > Userform
Darauf erstellst du deinen Button (inkl. Code), den gewünschten Text und was du sonst noch haben möchtest.
Aufrufen kannst du die UF dann z.B. mit

Code:

Sub ZeigeUF()
UserForm1.Show vbModeless
End Sub

 

Echt klasse. So hats geklappt:)
Dank dir.. un das noch so spät in der Nacht.
Schonwieder alles gelöst!
mfg