Wscript.shell popup
31.10.2014 19:34:18
Otmar
Mit dem nachstehenden Makro soll eine neue Tabelle eingefügt werden. Es wird geprüft, ob der Tab-Name schon vorhanden ist. Wenn ja, erscheint eine Meldung.
An dieser Stelle arbeitet ein Objekt-Shell: Die Meldung soll nach wenigen Sekunden wieder ausgeblendet werden und das Programm startet neu.
Problem: Beim ersten Aufruf passiert genau, was ich oben beschrieben habe. Beim folgenden Durchlauf bleibt die Fehlermeldung stehen und ich muss wieder mit OK den Prozess fortsetzen.
Vielen Dank für einen guten Hinweis.
Freundliche Grüsse
Otmar
Function BlattDa(strName As String) As Boolean
Dim Blatt As Worksheet
For Each Blatt In Worksheets
If Blatt.Name = strName Then
BlattDa = True
Exit Function
End If
Next Blatt
End Function
Sub TBEinfügen()
Dim TBName$
Dim Objshell As Object
Dim FText As Integer
Const Dauer As Long = 2
Set Objshell = CreateObject("Wscript.Shell")
Start:
TBName = InputBox("Welchen Namen soll das Tabellenblatt erhalten?" & Chr(13) & Chr(13) & _
"Bitte den Blattnamen eingeben:")
If TBName = "" Then Exit Sub
If BlattDa(TBName) = False Then
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = TBName
Else
FText = Objshell.Popup("Der gewählte Name ist bereits in der Mappe vorhanden!", Dauer, _
"Fehlermeldung", vbInformation)
GoTo Start
End If
Exit Sub
End Sub