gleicher Bereichsnamen in mehreren Tabellenblättern

07/06/2010 - 00:08 von Tinu Kiefer | Report spam
Guten Tag

Ich verwende ein Tabellenblatt als Vorlage, diese enthàlt 8 Zellen die
mit einem Bereichsnamen definiert sind.
Das Tabellenblatt wird mehrfach kopiert: TabE, TabZ, TabP, etc...

Über VBA soll es möglich sein diese Tabellenblàtter ab einer
bestimmten Zelle mit Text zu füllen.
Das geht, wenn ich das Makro direkt auf dem entsprechenden
Tabellenblatt starte.
Wie erreiche ich, dass das Makro von einem anderen Tabellenblatt aus
gestartet werden kann?


Sub formfuellen()
Worksheets("test3").Range("FeldBB").Select

Do
If ActiveCell <> "" Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until ActiveCell = ""

ActiveCell = "31.12.2010"
ActiveCell.Offset(0, 1).Select
ActiveCell = "test"
ActiveCell.Offset(0, 1).Select
ActiveCell = "menge"
ActiveCell.Offset(0, 1).Select
ActiveCell = "bemerkung"

ActiveCell.Offset(1, -3).Select
ActiveCell.Offset(1, 0).EntireRow.Insert
Rows(ActiveCell.Row).Copy
ActiveCell.Offset(1, 0).PasteSpecial Paste:=xlFormulas
Application.CutCopyMode = False
End Sub
 

Lesen sie die antworten

#1 Alexander Wolff
07/06/2010 - 08:32 | Warnen spam
http://groups.google.de/group/micro...49a34dc3af

Moin+Gruss Alexander - MVP for MS Excel - www.xxcl.de - mso2000sp3 --7-2

Ähnliche fragen