Zeileninhalt leeren
24.07.2023 16:10:52
bbs2
ich möchte in eine Zeile einen Button platzieren, mit dem der Inhalt der Zeile gelleert werden kann
Das Makro hinter dem Button soll dabei die Zeile benutzen, in welcher der Button platziert ist.
Das folgende Makro funktioniert hierbei nur für den Zeilenbereich der Zeile 5: A5:K5
Wie kann der code angepasst werden, dass die Zeilennummer 5 hier ersetzt wird durch einen code, der
automatisch die Zeilennummer benutzt, in dem sich der Button befindet. So könnte ich in jede Zeile den Button setzen ohne ein
angepasstes Makro zu hinterlegen.
Sub wegmit()
oBereich = Thiscomponent.Sheets("Tabelle1").getCellRangeByName("A5:K5")
oZellen=oBereich.queryContentCells(7).Cells.createEnumeration()
do while oZellen.hasmoreelements
oZelle=oZellen.nextelement
if ozelle.cellprotection.islocked=false then
ozelle.clearcontents(7)
end if
loop
End Sub
Gruß
Heinz