Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Letzte ausgefüllt Zelle einer Zeile löschen

Forumthread: Letzte ausgefüllt Zelle einer Zeile löschen

Letzte ausgefüllt Zelle einer Zeile löschen
03.11.2015 20:37:36
jan
Hallo Leute
Ich denke ihr könnt mir schnell helfen, kriegs nicht hin..
Ist eigentlich recht trivial: Durch Klick auf Löschen sollen E4:E5 gelöscht werden. Es soll also immer die letzten ausgefüllten Zellen der beiden Zeilen paarweise gelöscht werden.
Sind bspw. Z4:Z5 die letzten ausgefüllten Zellen der Spalten 4 und 5 sollen dieses durch den Klick gelöscht werden.
Anbei noch die Vorlage
https://www.herber.de/bbs/user/101220.xlsx
Vielen Dank für eure Bemühungen :) !!

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte ausgefüllt Zelle einer Zeile löschen
03.11.2015 21:21:41
fcs
Hallo Jan,
kann man z.B. so lösen. Hier mit Sicherheitsabfrage vor dem Löschen.
Gruß
Franz
Sub Loesche_letzte_Spalte()
Dim wks As Worksheet
Dim Spalte_L As Long
Set wks = ActiveSheet
With wks
Spalte_L = Application.WorksheetFunction.Max( _
.Cells(4, Columns.Count).End(xlToLeft).Column, _
.Cells(5, Columns.Count).End(xlToLeft).Column)
With .Range(.Cells(4, Spalte_L), .Cells(5, Spalte_L))
If MsgBox("Zellen " & .Address(False, False, xlA1) & " löschen?", _
vbQuestion + vbOKCancel, _
"Letzte Zellen in Zeile4/5 löschen") = vbOK Then
.Clear 'oder .ClearContents wenn nur die Werte gelöscht werden sollen
End If
End With
End With
End Sub

Anzeige

Forumthreads zu verwandten Themen

Anzeige