Abbruch u. kopieren
11.09.2014 12:22:58
dieter
Ich habe 2 kleine Probleme wo ich leider nichts für finde, kann man mir da hier helfen ?
Wie kann ich nach meiner Inputbox Abfrage über den Button abbrechen wenn ich das brauche ? bei OK läuft der Code weiter
Und wie könnte ich es ermöglichen, nach meiner Zielabfrage ( ganz unten )das er mir das zu kopierende ab der Eingabe nach unten kopiert ?
So wie ich es habe überschreibt er mir es.
Private Sub CommandButton3_Click() ' neues Blatt anlegen mit überprüfung
Dim mySheet As String
Dim myRng As String
mySheet = ActiveSheet.Name
myRng = Selection.Address(0, 0)
Dim wks As Worksheet, strNam As String
strNam = InputBox("Name des neuen Blatts?", "Blattname", "Umsatz")
' Exit Sub ?
On Error Resume Next
Set wks = Worksheets(strNam)
If Err.Number 0 Then
Set wks = Worksheets.Add(Worksheets(3))
wks.Name = strNam
Worksheets(strNam).Move before:=Worksheets(4) 'oder Worksheets(strNam).Move _
before:=Worksheets("benannte Tabelle")
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
Sheets(mySheet).Range(myRng).Copy _
wks.Range(InputBox("Bitte Zieladresse 'Bezug' angeben:", "Abfrage Ziel", "A2"))
Application.CutCopyMode = False
End Sub
Mfg.
dieter
Anzeige