VBA erst ausführen, wenn vorher bestätigt wurde

Forumthread: VBA erst ausführen, wenn vorher bestätigt wurde
6 Beiträge zu diesem Forumthread
Anzeige

Forumthread: VBA erst ausführen, wenn vorher bestätigt wurde

03.12.2024 17:11:20

chris58

Hallo !
Ich hatte nun das Problem schon 3x das ich den Commandbutton irrtümlich gedrückt habe und dadurch die letzte Zeile gelöscht wurde.
Nun möchte ich mich an Euch wenden, ob es möglich ist, eine Sicherung einzuführen - also ein Textfeld das aufgeht und fragt:
Wollen Sie die Zeile wirklich löschen Ja.............Nein (bei Nein wird abgebrochen).
Was soll ich wo einfügen, das das funktioniert ?
Danke Euch vielmals
chris58

Hier der Code vom Button:
Private Sub CommandButton12_Click()
Dim letzteZeile As Long
letzteZeile = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row, 65536)
Range(Cells(letzteZeile, 1).Address, Cells(letzteZeile, 14).Address).ClearContents
End Sub

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA erst ausführen, wenn vorher bestätigt wurde

03.12.2024 17:15:30

{Boris}
AW: VBA erst ausführen, wenn vorher bestätigt wurde

03.12.2024 18:01:29

GerdL
AW: VBA erst ausführen, wenn vorher bestätigt wurde

04.12.2024 12:02:02

chris58
AW: VBA erst ausführen, wenn vorher bestätigt wurde

03.12.2024 17:21:49

chris58
Sorry - mein Fehler

03.12.2024 17:26:01

{Boris}
AW: Sorry - mein Fehler

03.12.2024 17:29:38

chris58

AW: VBA erst ausführen, wenn vorher bestätigt wurde

03.12.2024 17:15:30

{Boris}

Hi,

Private Sub CommandButton12_Click()

Dim letzteZeile As Long

letzteZeile = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row, 65536)

If MsgBox("Sicher?", "Letzte Nachfrage", vbYesNo) = VbYes Then

    Range(Cells(letzteZeile, 1).Address, Cells(letzteZeile, 14).Address).ClearContents

Else

    MsgBox "Abgebrochen"

End If

End Sub

VG, Boris

AW: VBA erst ausführen, wenn vorher bestätigt wurde

03.12.2024 18:01:29

GerdL

Moin Chris,

noch ein Kurzgedicht.

Private Sub CommandButton12_Click()



    If MsgBox("Sicher?", vbYesNo, "Daten in letzer Zeile löeschen") = vbYes Then _

    Cells(Rows.Count, 1).End(xlUp).Resize(1, 14).ClearContents



End Sub

Gruß Gerd

AW: VBA erst ausführen, wenn vorher bestätigt wurde

04.12.2024 12:02:02

chris58

Hallo Gerd !
Danke auch für Deine Mühe und vor allem Zeit. Ich bin immer wieder begeistert über die Hilfe die man hier erhält.
chris58

AW: VBA erst ausführen, wenn vorher bestätigt wurde

03.12.2024 17:21:49

chris58

Hallo Boris !
In der 4 Zeile

If MsgBox("Sicher?", "Letzte Nachfrage", vbYesNo) = VbYes Then

kommt der Fehler

lg chris58

Sorry - mein Fehler

03.12.2024 17:26:01

{Boris}

Hi,

...hatte das aus der Hand geschrieben und Caption und Auswahl vertauscht.

So:

Private Sub CommandButton1_Click()

Dim letzteZeile As Long

letzteZeile = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row, 65536)

If MsgBox("Sicher?", vbYesNo, "Letze Nachfrage") = vbYes Then

    Range(Cells(letzteZeile, 1).Address, Cells(letzteZeile, 14).Address).ClearContents

Else

    MsgBox "Abgebrochen"

End If

End Sub

VG, Boris

AW: Sorry - mein Fehler

03.12.2024 17:29:38

chris58

Hallo Boris !
Danke für den raschen Beistand. Das funktioniert super. Werde dadurch viel weniger Fehler haben. Herrlich
chris58

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!