Sub verlassen, wenn msgBox bestätigt wird.
14.08.2003 11:01:07
Abdi
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