Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon yxc vom 05.08.2022, 21:51 Options
Abfrage Box
Hallo
Habe mir dieses Makro aufgezeichnet, ich möchte das vor dem Löschen eine Box mit der nachfrage wirklich Löschen erscheint.
Sub Löschen()
'
' Löschen Makro
' Makro am 01.08.2010 von Familie aufgezeichnet
'
'
Range("B9:H13,B16:H21,B24:H28").Select
Range("B24").Activate
Selection.ClearContents
Range("B7").Select
End Sub
Besten dank für folgende Hilfe
MFG
Hans
Habe mir dieses Makro aufgezeichnet, ich möchte das vor dem Löschen eine Box mit der nachfrage wirklich Löschen erscheint.
Sub Löschen()
'
' Löschen Makro
' Makro am 01.08.2010 von Familie aufgezeichnet
'
'
Range("B9:H13,B16:H21,B24:H28").Select
Range("B24").Activate
Selection.ClearContents
Range("B7").Select
End Sub
Besten dank für folgende Hilfe
MFG
Hans
Antwort 1 von Hajo_Zi vom 06.08.2022, 06:28 Options
Hallo Hans,
Gruß Hajo
Option Explicit
Sub Test()
If MsgBox("Wollen Sie den Auftrag wirklich löschen.", vbYesNo + vbQuestion, "Löschabfrage ?") = vbYes Then
MsgBox "Ja"
Else
MsgBox "Nein"
End If
End Sub
Gruß Hajo
Antwort 2 von yxc vom 06.08.2022, 17:44 Options
Hallo
Besten dank für deine Hilfe
Habe es nach einigen probieren hin bekommen
Mein Makro siet jetzt so aus, und funktioniert auch.
Sub Löschen()
'
' Löschen Makro
' Makro am 01.08.2010 von Familie aufgezeichnet
'
If MsgBox("Wollen Sie den Auftrag wirklich löschen.", vbYesNo + vbQuestion, "Löschabfrage ?") = vbYes Then
MsgBox "Ja"
Range("B9:H13,B16:H21,B24:H28").Select
Range("B24").Activate
Selection.ClearContents
Else
MsgBox "Nein"
Range("B7").Select
End If
End Sub
Köntest du es so anpassen das nur eine Abfrage kommt, ob ja oder nein.
MFG
HAns
Besten dank für deine Hilfe
Habe es nach einigen probieren hin bekommen
Mein Makro siet jetzt so aus, und funktioniert auch.
Sub Löschen()
'
' Löschen Makro
' Makro am 01.08.2010 von Familie aufgezeichnet
'
If MsgBox("Wollen Sie den Auftrag wirklich löschen.", vbYesNo + vbQuestion, "Löschabfrage ?") = vbYes Then
MsgBox "Ja"
Range("B9:H13,B16:H21,B24:H28").Select
Range("B24").Activate
Selection.ClearContents
Else
MsgBox "Nein"
Range("B7").Select
End If
End Sub
Köntest du es so anpassen das nur eine Abfrage kommt, ob ja oder nein.
MFG
HAns
Antwort 3 von Hajo_Zi vom 06.08.2022, 17:56 OptionsLösung
Hallo Hans,
Gruß Hajo
Option Explicit
Sub Löschen()
'
' Löschen Makro
' Makro am 01.08.2010 von Familie aufgezeichnet, das glaube ich nicht????
'
If MsgBox("Wollen Sie den Auftrag wirklich löschen.", vbYesNo + vbQuestion, "Löschabfrage ?") = vbYes Then
Range("B9:H13,B16:H21,B24:H28").ClearContents
Else
Range("B7").Select
End If
End Sub
Gruß Hajo
Antwort 4 von yxc vom 07.08.2022, 11:17 Options
Hallo
Nochmals besten DANK für deine schnelle Hilfe.
Es läuft so wie ich es mir gedacht hatte!!!
mfg
Hans
Nochmals besten DANK für deine schnelle Hilfe.
Es läuft so wie ich es mir gedacht hatte!!!
mfg
Hans
Ähnliche Themen
Abfrage auf Datumsbereich
Petra65 02.02.2009 - 258 Hits - 6 Antworten
Liste von Dateien in einer Abfrage-Box
peko 01.04.2009 - 168 Hits - 1 Antwort
Abfrage Info Zwischenablage
Saarbauer 19.06.2009 - 143 Hits - 1 Antwort
Abfrage über Excel
Mellli 07.09.2009 - 129 Hits - 3 Antworten
Leere Spalten nach Abfrage
mary1966 07.11.2009 - 188 Hits - 1 Antwort
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
