Private
Sub
Worksheet_Change(
ByVal
Target
As
Range)
If
Target.Cells(1) =
"X"
Or
Target.Cells(1) =
"x"
Then
If
Not
wbIsOpen(
"Beispiel_End.xls"
)
Then
Workbooks.Open
"E:\Daten\Entwicklung\Tests\Beispiel_End.xls"
End
If
Target.EntireRow.Copy
With
Workbooks(
"Beispiel_End.xls"
).Sheets(
"Tabelle1"
)
.Cells(.UsedRange.Row + .UsedRange.Rows.Count, 1).PasteSpecial xlPasteAll
Application.CutCopyMode =
False
End
With
End
If
End
Sub
Private
Function
wbIsOpen(Name)
As
Boolean
On
Error
Resume
Next
wbIsOpen = Workbooks(Name).Name <>
""
End
Function