Laufzeitfehler in Makro
27.01.2009 21:11:00
markus473
bekomme bei .Protect einen Laufzeitfehler 1004
Anwendeungs- oder Objektdefinierter Fehler.
Hajo hatte mir bei dem Makro schon geholfen, aber jetzt komme ich nicht weiter.
Kann mir jemand sagen woran es liegen kann?
Gruß markus
Sub Kopieren()
Dim sh As Worksheet
UF_Dateiauswahl2.Show
If bolKopieren2 = True Then
For Each sh In ActiveWindow.SelectedSheets
If sh.Name "Tabelle1" Then
With Workbooks(strDateiName2).Sheets(sh.Name)
.Unprotect Password:="majacz"
sh.Range("D8:D37").Copy .Range("D8:D37")
.Range("H44") = sh.Range("H44")
'.Protect '