Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
308to312
308to312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ausgeblendete Zellen mit VBA kopieren

Ausgeblendete Zellen mit VBA kopieren
17.09.2003 20:30:55
floh
Hallo Leute,

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?

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausgeblendete Zellen mit VBA kopieren
17.09.2003 21:23:05
EL
Hallo floh
einfach:


Sub Berechnung_02()
ActiveSheet.Unprotect
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.Select
Rows(12).Copy
ActiveSheet.Paste
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub


Gruß
EL Nabriss
AW: Ausgeblendete Zellen mit VBA kopieren
17.09.2003 22:17:10
floh
Hallo EL

Vielen Dank für die schnelle Info!

Alles Gute
Floh
AW: Ausgeblendete Zellen mit VBA kopieren
17.09.2003 21:32:30
Jörg Gradert
Hallo Floh,
diese Zeile

Selection.EntireRow.Hidden = False

vor ActiveSheet.Protect.... einbauen.

Gruss Jörg
AW: VBA Literatur
17.09.2003 22:21:39
floh
Hallo Jörg,

Na das nenn ich wirklich umfangreichen Service.
Da macht das Lernen / Arbeiten richtig Spass.

Natürlich werde ich in die empfohlenen Seiten
gleich mal reinschauen .

Gruß Floh

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige