Ausgeblendete Zellen mit VBA kopieren
17.09.2003 20:30:55
floh
Und noch gleich ein Problem hinterher:
Ich seh schon, wird Zeit daß ich mir so` ein VBA-Buch kaufe.
Doch jetzt muß ich euch noch fragen:
Das nachstehende Makro bei dem mir Jörg schon geholfen hat,
funktioniert wunderbar - nur ein Problem:
In meiner Tabelle habe ich die Zeile 12 (Vorlage mit Formeln/Formaten)ausgeblendet.
Kopiere ich die Zeile 12 jetzt mit nachfolgendem Makro-
wird die neu eingefügte Zeile leider auch ausgeblendet.
Das soll natürlich nicht sein?
Die Zeile 12 soll ausgeblendet bleiben!
Aus Zeile 12 sollen Formeln Rahmen/Farben in die neue Zeile übernommen werden !
Wie muß ich mein Makro abändern? (wenn möglich)
Sub Berechnung_02()
' Berechnung_02 Makro
' Makro am 16.09.2003 von Floh/Jörg aufgezeichnet
ActiveSheet.Unprotect
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.Select
Rows(12).Copy
ActiveCell.EntireRow.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Wer kann helfen?