Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Sub verlassen, wenn msgBox bestätigt wird.

Forumthread: Sub verlassen, wenn msgBox bestätigt wird.

Sub verlassen, wenn msgBox bestätigt wird.
14.08.2003 11:01:07
Abdi
Tag zusammen,
hab das ein kleines Problem, auf das ich nicht komme. Ich denke es ist die Reihenfolge, aber nach dem ich jegmögliche Varianten probiert habe...vielleicht kann mir hier einer helfen (bestimmt kann das jemand :-) )
Habe folgenden Code zusammengebastelt:

Sub aktuelles_Blatt_kopieren()
Dim Blattname As String
If ActiveSheet.Name = ("Kopiervorlage") Then Exit Sub
Blattname = InputBox(Prompt:="Blattname" & Chr(10) & Chr(10) & "Achtung: Zellinhalt ist auf 19 Zeichen begrenzt", Title:="Blatt kopieren")
On Error GoTo Warner
If Blattname = "" Then Exit Sub
ActiveSheet.Copy after:=ActiveSheet
ActiveSheet.Name = Blattname
End
Warner:
msgBox ("Achtung " & Chr(10) & "Blattname " & "'" & Blattname & "'" & " existiert schon")
End Sub

1. das mit der Begrenzung ist gelogen, weil ich noch nichts gefunden habe, wie ich die Zeichen in einer msgBox begrenzen kann.
2.Falls man einen Blattnamen vergibt, der schon vorhanden ist, dann kommt die msgBox (ist ja richtig), ABER gleichzeitig wird das Blatt trotzdem kopiert und mit dem Zusatz(2) erstellt. Wenn ich bei der msgBox auf OK klicke hat es keine Auswirkungen mehr.
Wie kann ich das machen, das der Hinweis vor dem Kopieren kommt und bei Klick auf OK der Sub verlassen wird?
Danke für eine Hilfe
Gruß Abdi
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sub verlassen, wenn msgBox bestätigt wird.
14.08.2003 11:09:48
Michael Scheffler
Hi,
zu 1. Das geht nicht, da brauchst Duz eine UserForm mit Textbox.
zu 2. Vor den Error-Handler muss ein Exit Sub.
End
Exit Sub:
Warner:
msgBox ("Achtung " & Chr(10) & "Blattname " & "'" & Blattname & "'" & " existiert schon")
End Sub
Gruß
Micha

Anzeige
AW: Sub verlassen, wenn msgBox bestätigt wird.
14.08.2003 11:21:46
abdi
Hi Micha,
nochmal eine Frage...was für ein Exit Sub???
Würde das gehen:
If msgBox = "ok" Then Exit Sub ??

;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige