Bereich in die Zwischenablage kopieren

[thenotoriousend]

Hallo zusammen,

ich bräuchte da einmal eure Hilfe. Ich möchte einen Button mit einem Makro belegen, was mir den Bereich CL19 bis zur ersten leeren Zelle in die Zwischenablage kopiert. (Leere Zelle per Formel mit ""). Warscheinlich müsste zum kopieren der Blattschutz kurz aufgehoben und wieder aktiviert werden. Leider habe ich 0 Ahnung vom VBA schreiben :( Kann mir da jemand unter die Arme greifen.

[Kuwer]

Hallo,

Sub aaa()
 Range(Cells(19, 90), Columns(90).Find(What:="*", _
                                     After:=Cells(1, 90), _
                                     LookIn:=xlValues, _
                                     LookAt:=xlWhole, _
                                     SearchOrder:=xlByRows, _
                                     SearchDirection:=xlPrevious, _
                                     MatchCase:=False, _
                                     SearchFormat:=False)).Copy
End Sub

Gruß Uwe

[thenotoriousend]

Vielen, vielen Dank. Hat sofort geklappt :)