Ihr habt schon viel geholfen und deshalb wende ich mich auch noch mal an Euch
Ich möchte gerne den Zielbereich geschützt haben.
Dazu müßte,
ActiveSheet.Unprotect
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
irgendwie in diesen Code geschrieben werden.
Ziel ist es, die Zieldatei außerhalb des beschreibens durch den Code Schreibgeschützt zu haben.
hat jemand Zeit für mich sich dessen anzunehmen?
Für die Hilfe schon mal herzlichen Dank im voraus
Gruß Lisa
Dim i As Integer
i = Sheets("Datenbank").Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
If i < 4 Then i = 4
' ZIELBEREICH 'QUELLBEREICH
Sheets("Datenbank").Cells(i, 1) = Sheets("Dateneingabe").Cells(4, 2)
Sheets("Datenbank").Cells(i, 2) = Sheets("Dateneingabe").Cells(4, 3)
Sheets("Datenbank").Cells(i, 3) = Sheets("Dateneingabe").Cells(4, 4)
Sheets("Datenbank").Cells(i, 5) = Sheets("Dateneingabe").Cells(4, 5)
Sheets("Datenbank").Cells(i, 4) = Sheets("Dateneingabe").Cells(4, 6)
'Sheets("Datenbank").Cells(i, 6) = Sheets("Dateneingabe").Cells(4, 7)'
Sheets("Datenbank").Cells(i, 7) = Sheets("Dateneingabe").Cells(4, 8)
Sheets("Datenbank").Cells(i, 8) = Sheets("Dateneingabe").Cells(4, 9)
Sheets("Datenbank").Cells(i, 9) = Sheets("Dateneingabe").Cells(4, 10)
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Dim wbQuelle As Workbook, wbZiel As Workbook
Dim wksQuelle As Worksheet, wksZiel As Worksheet
Dim Zeile As Long
Set wbQuelle = ActiveWorkbook
Set wksQuelle = wbQuelle.Sheets("Dateneingabe")
Set wbZiel = Workbooks.Open(Filename:="W:\Daten\Einlagerung\Datenbank.xls")
Set wksZiel = wbZiel.Sheets("Datenbank")
With wksZiel
Zeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1