Letzten Eintrag löschen
17.03.2022 14:27:33
Mago
Ich bin grad an einer Projektarbeit dran und muss viel mit VBA arbeiten. Da meine VBA Kenntnisse nicht der Burner sind, würde ich gerne euch um Hilfe bitten.
Ich bräuchte einen Code der folgendes für Mich erledigt :
Wenn Der Wert der Ersten Spalte in der letzten Zeile des Blattes Küvettenhystrorie, dem Wert der ersten Spalte in der letzten Zeile des aktiven Blatts übereinstimmt dann lösche die komplette letzte Zeile auf dem Blatt Küvettenhystorie.
Ein Makro mit dem button "letzten Eintrag löschen" habe ich schon angelegt und er funktioniert auch wunderbar für das aktive Blatt. Dieser lautet bei mir :
Sub LoLetzte()
'Letzten Eintrag löschen
ActiveSheet.Unprotect
Dim Antwort As VbMsgBoxResult
Dim Meldung As String
Meldung = "Sind Sie sicher, dass Sie den letzten Eintrag dauerhaft löschen möchten?"
Antwort = MsgBox(Meldung, vbYesNo + vbQuestion, "ACHTUNG!")
If Antwort = vbYes Then
MsgBox "Der letzte Eintrag wird GELÖSCHT"
Dim LoLetzte As Long
With ActiveSheet
LoLetzte = .Cells(Rows.Count, 1).End(xlUp).Row
.Cells(LoLetzte, 1).EntireRow.Delete
End With
Else
Blattschutz
Exit Sub
End If
Blattschutz
End Sub
Ich bedanke mich schonmal für eure Hilfe
LG