Bei verbundenen Zellen Inhalte löschen
20.02.2022 17:07:30
RolRom
mit viel Hilfe und nach langem Googeln habe ich mir eine Tabelle zur Erfassung des Arbeitsbeginn sowie der geleisteten Stunden der Mitarbeiter gebastelt. Jetzt fehlt mir aber noch eine Funktion, die ich "Letzte Eingabe löschen" genannt habe. D,h., per Makro soll die jeweils letzte Eingabe in ein (Stunden-)Feld in Spalte E10:E71 gelöscht werden. Mein Makro:
Sub letzte_Eingabe_loschen_2()
ActiveSheet.Unprotect
Dim lngLR&
Const lngLMT As Long = 71
With ThisWorkbook.Sheets("Stunden")
lngLR = IIf(Len(.Cells(lngLMT, 5)), lngLMT, .Cells(lngLMT, 5).End(xlUp).Row)
If lngLR > 9 Then .Cells(lngLR, 5).ClearContents
End With
ActiveSheet.Unprotect
End Sub
Saudummerweise bestehen diese Felder nun aus jeweils zwei verbundenen Zellen, sodass ich auf die Fehlermeldung "Dies ist bei verbundenen Zellen leider nicht möglich" laufe.
Diese verbundenen Zellen liegen 'natürlich' vertikal...
Kann mir dazu jemand einen heißen Tipp, besser noch ein passendes Makro mitteilen?
Bin leider nicht so fit mit Excel, dass mir hierzu was einfallen würde...
Danke euch schon mal!!