AW: Sorry, gemeint ist natürlich Dieter oT
17.08.2014 20:22:40
JoWE
Dieter,
die 7 ist das Ergebnis der MsgBox wenn auf 'Nein' geklickt wird. Aber sieser Teil des Makros stammt nicht von mir. Und Robert hatte darauf bereits (unwirsch) reagiert. Im Übrigen kann es sein, dass die Anforderungen an Deine Wunschlösung umfangreicher werden?! Na, egal! Hier nochmal eine Version in der die Inputbox abgebrochen werden kann.
Sub test()
'+++++++++++++ NEU +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Dim mySheet As String
Dim myRng As String
Dim ihres As String
mySheet = ActiveSheet.Name
myRng = Selection.Address(0, 0)
'+++++++++++++ NEU +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Dim wks As Worksheet, strNam As String
strNam = InputBox("Name des neuen Blatts?", "Blattname", "Umsatzwoche")
On Error Resume Next
Set wks = Worksheets(strNam)
If Err.Number 0 Then
Set wks = Worksheets.Add(Worksheets(1))
wks.Name = strNam
'+++++++++++++ NEU +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Worksheets(strNam).Move before:=Worksheets(4)
'oder Worksheets(strNam).Move before:=Worksheets("benannte Tabelle")
'+++++++++++++ NEU +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Else
If MsgBox("Blatt ""Umsatzwoche"" existiert schon!" & vbLf & vbLf & _
"Mit dieser Seite weitermachen?", vbCritical + vbYesNo) = 7 Then
Exit Sub
End If
End If
On Error Resume Next
'Worksheets("Umsätze_Ges").Range("A1:D15").Copy 'Bereich anpassen
'+++++++++++++ NEU +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
iRes = InputBox("Bitte Zieladresse 'Bezug' angeben:", "Abfrage Ziel", "A2")
If iRes = "Falsch" Or iRes = "" Then
'Wenn die Inputbox abgebrochen wird endet das Makro abrupt!
'Das neue Tabellenblatt ist zwar bereits erstellt ist aber leer!
GoTo errBeh
Else
On Error GoTo errBeh
Sheets(mySheet).Range(myRng).Copy wks.Range(iRes)
End If
'+++++++++++++ NEU +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Application.CutCopyMode = False
Exit Sub
errBeh:
MsgBox "Ihre Eingabe enthielt keine gültigen Bezugsadresse!" _
& "Die Verarbeitung wird abgebrochen!", vbOKOnly
End Sub
Gruß
Jochen