mit diesem Code werden hintereinander 2 msg-Boxen gestartet.
Wie muss man ändern, damit beim Starten auch der typische Ping-Sound zu hören ist?
Gruß
Mike
beep. das ist auch schon alles. steht unter beep auch in der hilfe.
greetz, axel
Gruß
Mike
schau mal in deinen Briefkasten. Hatte gestern 'ne Mail dazu an dich geschickt.
Gruß
Mike
Gruß
Mike
schreibe es so
Option Explicit
Sub Mike()
Dim Mldg As Integer
Mldg = MsgBox("Soll das Tabellenblatt wirklich gelöscht werden.", vbYesNo, "Abfrage")
If Mldg = 6 Then
Mldg = MsgBox("Sollen alle Tabellenblätter gelöscht werden.", vbYesNoCancel, "Abfrage")
End If
End Sub
Code eingefügt mit: Excel Code Jeanie
Gruß Hajo
oder auf Deinen Code angewendet
Option Explicit
Sub Mike2()
If MsgBox("Soll das Tabellenblatt wirklich gelöscht werden.", vbYesNo, "Abfrage") = 6 Then
Select Case MsgBox("Sollen alle Tabellenblätter gelöscht werden.", vbYesNoCancel, "Abfrage")
Case 6
' Ja
Case 7
' nein
Case 2
' abbrechen
End Select
End If
End Sub
Code eingefügt mit: Excel Code Jeanie
Gruß Georg
weiß leider nicht, wie ich das in meinen Code einbauen muss. Ich hab' zu wenig Ahnung davon. Hier der komplette Code:
Es wäre schön, wenn du mir dabei behilflich wärst.
Gruß
Mike
war das Ernst gemeint?? Du brauchst doch nur die Teil Deines Codes rübe zu kopieren.
Option Explicit
Public legitimiert As Boolean
Sub Mike2()
Dim index As Integer, alter_T_index As Integer
If MsgBox("Soll das Tabellenblatt wirklich gelöscht werden.", vbYesNo, "Abfrage") = 6 Then
Select Case MsgBox("Sollen alle Tabellenblätter gelöscht werden.", vbYesNoCancel, "Abfrage")
Case 6
Application.ScreenUpdating = False
alter_T_index = ActiveSheet.index
For index = 2 To 11
Sheets(index).Select
Call löschen
Next index
Sheets(alter_T_index).Select
Case 7
Application.ScreenUpdating = False
Call löschen
Case 2
Exit Sub
End Select
End If
End Sub
Code eingefügt mit: Excel Code Jeanie
nur durch selber machen kann man was lernen. Ich habe jetzt keine Ahnung was Dein Makro löschen macht aber in VBA kann auf select verzichtet werden. Schleierhaft ist mir auch warum bei Nein das Makro Löschen aufgerufen wird. Dort sollte doch nicht gelöscht werden.
Ich vertrete die Auffasung was ausgeschaltet wird
Application.ScreenUpdating = False
sollte auch wieder eingeschaltet werden. Es gibt nur einige Eigenschaften wo dies automatisch geht.
Gruß Georg
ich vermute folgendes Makro müßte reichen.
Option Explicit
Sub Mike3()
Dim index As Integer, alter_Name As String
If MsgBox("Soll das Tabellenblatt wirklich gelöscht werden.", vbYesNo, "Abfrage") = 6 Then
If MsgBox("Sollen alle Tabellenblätter gelöscht werden.", vbYesNoCancel, "Abfrage") = 6 Then
Application.DisplayAlerts = False
' alle löschen bis auf das aktuelle
alter_Name = ActiveSheet.Name
For index = Sheets.Count To 1 Step -1
If Sheets(index).Name <> alter_Name Then Sheets(index).Delete
Next index
Application.DisplayAlerts = True
End If
End If
End Sub
Code eingefügt mit: Excel Code Jeanie
Gruß Georg