4
Gleiche Zeile in allen Blättern auswählen
Hallo liebe Community,
ich werkel aktuell an einem Excel-Sheet inclusive VBA Programmierung. Jetzt versuche ich folgendes Problem zu lösen:
Wenn ich in Tabellenblatt 1 eine beliebige Zelle markiere - also z.B. A5 - und das Makro laufen lasse, soll die komplette Zeile - also A5 bis Z5 in allen Tabellenblättern (aktuell 16) markiert, kopiert und eine Zeile weiter unten eingefügt werden. Mein (zusammengeklauter) Ansatz funktioniert nicht so ganz:
Ich kriege für Zeile 7 einen Fehler: "Index außerhalb des gültigen Bereichs"
Ich wäre Euch dankbar, wenn ihr mir erklärt, was mein (Denk-) Fehler ist und wie ich ihn beheben kann.
Beste Grüße,
Daniel
ich werkel aktuell an einem Excel-Sheet inclusive VBA Programmierung. Jetzt versuche ich folgendes Problem zu lösen:
Wenn ich in Tabellenblatt 1 eine beliebige Zelle markiere - also z.B. A5 - und das Makro laufen lasse, soll die komplette Zeile - also A5 bis Z5 in allen Tabellenblättern (aktuell 16) markiert, kopiert und eine Zeile weiter unten eingefügt werden. Mein (zusammengeklauter) Ansatz funktioniert nicht so ganz:
Sub Zeilen_schleife()
Dim sheet As Worksheet, sheet2 As Worksheet, row As Long, i As Integer
Set sheet = Worksheets(1)
Zeile = ActiveCell.row
Set sheet2 = Worksheets(i)
For i = 2 To 16
sheet2.Cells(Zeile, 1).Insert Shift:=xlDown
Application.CutCopyMode = False
Next
End SubIch kriege für Zeile 7 einen Fehler: "Index außerhalb des gültigen Bereichs"
Ich wäre Euch dankbar, wenn ihr mir erklärt, was mein (Denk-) Fehler ist und wie ich ihn beheben kann.
Beste Grüße,
Daniel
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 278027
Url: https://administrator.de/contentid/278027
Printed on: April 16, 2024 at 20:04 o'clock
4 Comments
Latest comment
Sub Zeilen_schleife()
Dim r As Long, i As Integer
r = Selection.EntireRow.Row
For i = 2 To 16
Sheets(i).Cells(r, 1).EntireRow.Copy
Sheets(i).Cells(r + 1, 1).Insert Shift:=xlDown
Next
Application.CutCopyMode = False
End Sub
Lieber jodel32,
Dein Ansatz ist schonmal nicht schlecht. Aber scheinbar habe ich mich nicht genau genug ausgedrückt. Es soll nicht die Zeile des ersten Blattes kopiert und in alle anderen Blätter eingefügt werden. Es soll lediglich die Markierung der Zeile aus Blatt 1 übernommen werden. Hintergrund: Blatt 1 ist eine Hilfstabelle mit Inhalten. die anderen Blätter haben einen Bezug darauf (jedoch nicht auf alle Spalten)
Sprich: Wenn jemand in Blatt 1 A5 markiert, soll in allen Blättern jeweils die komplette Zeile A5 bis Z5 markiert, kopiert und eingefügt werden.
Gruß, Daniel
Dein Ansatz ist schonmal nicht schlecht. Aber scheinbar habe ich mich nicht genau genug ausgedrückt. Es soll nicht die Zeile des ersten Blattes kopiert und in alle anderen Blätter eingefügt werden. Es soll lediglich die Markierung der Zeile aus Blatt 1 übernommen werden. Hintergrund: Blatt 1 ist eine Hilfstabelle mit Inhalten. die anderen Blätter haben einen Bezug darauf (jedoch nicht auf alle Spalten)
Sprich: Wenn jemand in Blatt 1 A5 markiert, soll in allen Blättern jeweils die komplette Zeile A5 bis Z5 markiert, kopiert und eingefügt werden.
Gruß, Daniel
Ach so, na dann ... ist oben entsprechend korrigiert.
Hallo jodel32,
funktioniert perfekt. Vielen Dank.
Gruß, Daniel
funktioniert perfekt. Vielen Dank.
Gruß, Daniel
