Makro auf alle Tabellenblätter anwenden???

Hi an alle!
Ich habe folgendes Problem:
Ich möchte eine neue Zeile in einer Datenliste einfügen. Hierbei sollen die Formeln in den neuen Zellen übernommen werden. Hierzu habe ich folgendes Makro gefunden:

Sub Zeileeinfügen() ' Aktuelle Zeile kopieren, unterhalb Zeile einfügen und Inhalte in Zellen ohne Formel löschen Dim Zelle As Range ActiveCell.EntireRow.Copy Cells(ActiveCell.Row + 1, 1).Insert Shift:=xlDown For Each Zelle In Range(Cells(ActiveCell.Row + 1, 1), Cells(ActiveCell.Row + 1, 255).End( _ xlToLeft)) If Not Zelle.HasFormula Then Zelle.ClearContents End If Next Zelle Cells(ActiveCell.Row + 1, 1).Select End Sub

Dies funktioniert soweit sehr gut.
Mein Problem ist jedoch, dass dieser Befehl auf mehrere Blätter durchgeführt werden soll.
(Meine Datei besteht aus mehreren Blättern. Die Informationen in den ersten Spalten sind jeweils identisch, danach folgen jedoch auf den verschiedenen Blättern nach den Spalten noch andere Informationen)
Ich habe versucht die Blätter, bei denen die Zellen eingefügt werden sollen mit Strg zu markieren und dann habe ich das Makro ausgeführt. Dieses wird jedoch nur beim ersten Blatt durchgeführt und nicht bei den anderen markierten Blättern.
Ich hoffe mein Problem ist ersichtlich. Ansonsten bitte ich um Rückfragen.
Vielen Dank schon mal!
Grüße
Volker

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Armin!
Danke nochmal!
Ist es nicht möglich die Aktion direkt in allen Tabellen auszuführen? Es handelt sich in jeder Tabelle genau um die gleiche Zeile (d.h. dleicher Ort).
"Normalerweise" kann man ja die einzelnen Tabellen mit Strg bündeln und dann gleiche Aktionen in allen Tabellen ausführen.
Der Befehl "Zeile-Einfügen" funktioniert unter diesen Umständen und führt zum gewünschten Ergebnis. Jedoch sind nun alle Zellen leer. Dies habe ich versucht mit dem Makro zu umgehen, da dieser die Formeln der Spalten in die neuen Zellen übernimmt.
Da dies eine Erleichterung darstellen soll wäre es mühsam jedesmal in jedem einzelnen Tabellenblatt den Befehl auszuführen.
Ich hoffe Du kannst mir weiterhelfen.
Grüße
Volker

Public Sub ZeileEinfuegen(Rx As Excel.Range) Dim Zeile As String Dim Zelle As Range Dim wks As Worksheet Dim Ry As Range Zeile = Rx.Address For Each wks In ThisWorkbook.Sheets If Left(wks.Name, 1) = "0" Then Set wks = Worksheets(wks.Name) wks.Range(Zeile).EntireRow.Copy wks.Cells(Rx.Row + 1, 1).Insert Shift:=xlDown For Each Zelle In wks.Range(wks.Cells(Rx.Row + 1, 1), wks.Cells(Rx.Row + 1, 255).End( _ xlToLeft)) If Not Zelle.HasFormula Then Zelle.ClearContents End If Next Zelle End If Next Application.ScreenUpdating = True Cells(Rx.Row + 1, 1).Select End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean) Cancel = True Application.EnableEvents = False On Error Resume Next If Target.Row > 1 And Target.Column = 1 Then ZeileEinfuegen Target Else Auswahlliste.Show End If Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

Makro auf alle Tabellenblätter anwenden???

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread