Anzeige
Archiv - Navigation
1456to1460
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Letzte ausgefüllt Zelle einer Zeile löschen

Letzte ausgefüllt Zelle einer Zeile löschen
03.11.2015 19: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 :) !!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte ausgefüllt Zelle einer Zeile löschen
03.11.2015 20: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

324 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige