Fehlermeldung komme nicht weiter.

Liebe Forumsfamilie,
ich bastle an einem kleinen Project.In der Sub Prozedur möchte ich
ein Datenkopie-Befehl starten.Die Werte werden von Tab("193") nach Tab("DBank") kopiert.Später ein anderes Laufwerk/Workbook.
Wenn ich den o.g Befehl über einen CommandButton starte
bekomme ich eine Fehlermeldung.
Wenn ich den gleichen Befehl über die normalen Schaltfläche starte,
dann wird der VBA-Code bis Ende ausgeführt.
Wie kann ich den Fehler unterbinden.Ich brauche den Befehl über cmd,
weil der Button muss farblich sein und der Kopiervorgang wird künftig
auf einem anderem Laufwerk und Workbook stattfinden.
Wer kann mir weiter Helfen?
marc......
und hier die Datei:
https://www.herber.de/bbs/user/27335.xls

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
Zusätzlich muss der Code so lauten
Private Sub cmdMAL193A1Sp_Click()
    Dim i As Integer
    '''Application.ScreenUpdating = False

    Worksheets("193A1").Activate
    Worksheets("193A1").Range("C6:K40").Select
    Selection.AutoFilter Field:=3, Criteria1:="193"
    Range("C7:K40").Copy

    With Worksheets("DBank")
        .Activate
        .Range("C65536").End(xlUp).Offset(1, 0).Activate
        ActiveCell.PasteSpecial Paste:=xlValues
        .Columns("E:E").HorizontalAlignment = xlCenter
        .Columns("F:F").HorizontalAlignment = xlCenter
        .Range("F7:F500").NumberFormat = "00"
        .Columns("G:G").HorizontalAlignment = xlCenter
        .Columns("G:G").NumberFormat = "m/d/yyyy"
        .Columns("H:H").HorizontalAlignment = xlCenter
        .Columns("I:I").HorizontalAlignment = xlCenter
        .Columns("I:I").NumberFormat = "m/d/yyyy"
        .Columns("J:J").HorizontalAlignment = xlCenter
        .Columns("K:K").HorizontalAlignment = xlCenter
        .Columns("K:K").NumberFormat = "m/d/yyyy"
        .Cells(3, 2).Select
    End With
    Worksheets("193A1").Activate
    Selection.AutoFilter
    Range("C7").Select

    Application.CutCopyMode = False
    '''Application.ScreenUpdating = True

    i = MsgBox(" Aktueller Datensatz wurde gesichert " & vbCr & vbCr & _
        "Datenbank wurde aktualisiert ", vbInformation, "Datensicherung")

End Sub

Gruss Rainer

Beliebteste Forumthreads (12 Monate)

Fehlermeldung komme nicht weiter.

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Fehlermeldung komme nicht weiter.

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread