Prüfen ob richtiges Worksheet
17.01.2006 14:15:14
Zergio
Denke irgendwie so (zum Verständnis der Frage).
Sub CommandButtonCopy_Click()
?If ActiveWorksheets <> Worksheets("DATA BASE") Then ?
MsgBox "Please select Row in the worksheet" & Sheets("DATABASE") & "you want to copy!"
Exit Sub
End If
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Copy
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub