Selbes Makro läuft nicht!
Micha
folgendes Problem treib mich zum Wahnsinn:
Ich habe eine Datei, in der befindet sich in einem Modul folgender Code:
Sub Zeilenrein()
Dim lngR As Long
Dim i As Integer
ActiveSheet.Unprotect Password:="xyz"
lngR = ActiveCell.Row
Rows(lngR).Copy
Rows(lngR).Insert
Intersect(Range("A:O,Q:Q,S:W,Y:Y,AA:AF,AH:AH,AJ:AN,AP:AP,AR:AV,AX:AX"), Rows(lngR)). _
ClearContents
ActiveSheet.Protect Password:="xyz", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, AllowFiltering _
:=True
End Sub
Von dieser Datei, habe ich eine lokale Sicherungskopie, in der das Makro genau das tut, was es soll - es kopiert eine Zeile und löscht die Inhalte der angegebenen Zellen raus, so dass nur noch die Formeln in z.b: Zelle"P","X".... stehen und ich bin glücklich und zufrieden!
In der scharfen Datei (auf einem Firmenlaufwerk) mit dem selben Makro geht es nicht.
Das Makro fügt nur eine Zeile ein, löscht ausnahmslos alle Zellinhalte raus!
Die "scharfe" Datei nach lokal verschieben behebt das Problem nicht - habe ich bereits versucht!
Kann mir jemand helfen?
Vielen Dank im Voraus!