Makro - Bereich kopieren u einfüg. in mehreren Tabellenblät.

Hi,

ich versuche mich gerade an einer Makroerstellung und weiß nicht so recht wie ich es hinbekommen soll.

Folgender Sachverhalt:

Ich habe eine Datei mit mehreren Tabellenblättern.

Im ersten Tabellenblatt soll ausgehen von der ausgewählten Zelle zuerst vier Zellen nach links gewandert werden und dann von dort ein Bereich (von der nun aktiven Zelle einige Zellen nach links) kopiert und als Wert wieder eingefügt werden. Der Bezug soll hier relativ sein. Wenn ich also Z14 ausgewählt habe. soll V14:L14 kopiert werden. Wenn ich Z18 ausgewählt habe, V18:L18. Soweit bekomme ich das noch hin.

Dann soll allerdings ins nächste Tabellenblatt gesprungen werden und die gleiche Aktion durchgeführt werden, ausgehend von der GLEICHEN Zelle wie im ersten Tabellenblatt (Wenn im ersten Tabellenblatt Z14, dann hier auch Z14). Und das ganze dann noch für die nächsten 20 Tabellenblätter.

Habt ihr eine Idee wie ich das am besten hinbekomme? Gerne mit einem kurzen Beispielcode, das wäre super. Ich kenne mich nicht so gut aus.

Danke und liebe Grüße!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Werte() Dim wksTab As Worksheet Dim lngZeile As Long Dim intSpalte As Integer intSpalte = Selection.Cells(1).Column lngZeile = Selection(1).Row If intSpalte - 14 > 0 Then For Each wksTab In ThisWorkbook.Worksheets wksTab.Range(wksTab.Cells(lngZeile, intSpalte - 14), wksTab.Cells(lngZeile, intSpalte)).Copy wksTab.Cells(lngZeile, intSpalte - 14).PasteSpecial Paste:=xlValues Next wksTab End If End Sub

For Each wkstab In ThisWorkbook.Worksheets If wkstab.Name > "Startblatt" Then wkstab.Range(wkstab.Cells(lngZeile, intSpalte - 14), wkstab.Cells(lngZeile, intSpalte)).Copy wkstab.Cells(lngZeile, intSpalte - 14).PasteSpecial Paste:=xlValues End If Next wkstab

For Each wksTab In ThisWorkbook.Worksheets Select Case wksTab.Name Case "Startblatt", "Weiteres Blatt" '== hier alle Blattnamen aufführen in denen nichte gemacht werden soll ' mache nichts Case Else wksTab.Range(wksTab.Cells(lngZeile, intSpalte - 14), wksTab.Cells(lngZeile, intSpalte)).Copy wksTab.Cells(lngZeile, intSpalte - 14).PasteSpecial Paste:=xlValues End Select Next wksTab

Hi Karin,

super, das funktioniert einwandfrei. Ich danke dir!

Ein Problem habe ich jedoch noch, vielleicht hast du dafür einen Tipp..

Ich wollte den Code nun in Google Sheets übertragen. Dafür gibt es einen VBA-to AppsScript-Converter von Google, deshalb dachte ich das wäre kein Problem.
Heute habe ich leider festgestellt dass der Converter nur von Enterprise Premium Kunden genutzt werden kann...

Kennst du dich mit AppsScript aus oder hast einen Tipp, wo man das konvertieren kann?

Der finale VBA Code sieht aktuell so aus

Sub Werte()

    Dim wksTab As Worksheet

    Dim lngZeile As Long

    Dim intSpalte As Integer

    intSpalte = Selection.Cells(1).Column

    lngZeile = Selection(1).Row

    If intSpalte - 24 > 0 Then

        For Each wksTab In ThisWorkbook.Worksheets

            Select Case wksTab.Name

                Case "Marktplatzvergleich", "Parent Mapping", "SB Bericht", "SC Bericht" '== hier alle Blattnamen aufführen in denen nichte gemacht werden soll

                    ' mache nichts

                Case Else

                    wksTab.Range(wksTab.Cells(lngZeile, intSpalte - 24), wksTab.Cells(lngZeile, intSpalte - 3)).Copy

                    wksTab.Cells(lngZeile, intSpalte - 24).PasteSpecial Paste:=xlValues

            End Select

        Next wksTab

    End If

End Sub

Beliebteste Forumthreads (12 Monate)

Makro - Bereich kopieren u einfüg. in mehreren Tabellenblät.

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro - Bereich kopieren u einfüg. in mehreren Tabellenblät.

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread