Tabellenkalkulation

Neues Problem?

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Hallo Und wieder ein kleines Problem! Ich habe mir ein Makro aufgezeichnet, das unter anderem Daten kopiert und woanders abspeichert. Ich möchte in dieser Tabelle bestimmte Zellen Sperren, auch die wo das Makro Daten einfügt, soweit kein Problem. Momentan bekomme ich eine Fehlermeldung vom Makro weil die Zellen gesperrt sind. [b]Was müsste ich in mein Makro einfügen?[/b]Dazu ein Ausschnitt des Selbigen. Selection.Copy Workbooks.Open Filename:= _ "C:\Dokumente und Einstellungen\Hans\Familien Dateien\Papa\Exeltabellen\Lagerbestand\Lagerbestände.xls" Range("A" & Range("A65536").End(xlUp).Row + 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("A65536").End(xlUp).Select ActiveWorkbook.Save ActiveWindow.Close mfg yxc

Antwort 1 von Event

Hallo

Selection.Copy Workbooks.Open Filename:= _ "C:\Dokumente und Einstellungen\Hans\Familien Dateien\Papa\Exeltabellen\Lagerbestand\Lagerbestände.xls" sheets("Tabelle1").Unprotect Password:="passwort" Range("A" & Range("A65536").End(xlUp).Row + 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("A65536").End(xlUp).Select sheets("Tabelle1").Protect Password:="passwort" ActiveWorkbook.Save ActiveWindow.Close

Durch die unterstrichenen Zeilen wird der Blattschutz aufgehoben und wieder gesetzt.

Gruß

Antwort 2 von yxc

Hallo
Ein weiteres Problem:-(
Habe alles eingefügt, und den Eintrag ("Tabelle 1") auf meine Bezeichnung geändert ("Bestand"),
bekomme folgende Fehlermeldung!
Die PasteSpeciale-Methode des Range-Objektes konnte nicht ausgeführt werden.

Im Code ist dann folgendes gelb markiert.
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

MFG
yxc

Antwort 3 von Event

Hallo

Kann leider in Unkenntniss Deiner Tabellen und Makros nur raten.
Versuch´ es einmal ohne die Zeile:

Application.CutCopyMode = False

Gruß

Antwort 4 von yxc

Hei
Habe deinen letzten Tipp ausprobiert leider ohne Erfolg, darum mein Makro hier im Ganzen.

Application.EnableEvents = False
ActiveSheet.Unprotect
Range("Y4").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Range("A6:C35").Select
Selection.SpecialCells(xlCellTypeFormulas, 1).Select
Selection.Copy
Workbooks.Open Filename:= _
"C:\Dokumente und Einstellungen\Hans\Familien Dateien\Papa\Exeltabellen\Lagerbestand\Lagerbestände.xls"
Range("A" & Range("A65536").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A65536").End(xlUp).Select
ActiveWorkbook.Save
ActiveWindow.Close
Range("Z4").Select
Selection.Copy
Range("X4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("D6:G35").Select
Selection.ClearContents
Range("D6").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.EnableEvents = True
End Sub

MFG
yxc