Office: (Office 2016) Makro: Zeilen (mit X) aus anderen Registern in Master kopieren

Helfe beim Thema Makro: Zeilen (mit X) aus anderen Registern in Master kopieren in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Liebe Excel-Cracks Ich habe ein Problem. In einem File muss ich die 3 Register (G_ER; G_IR;G_EG) in ein Master-Register (G_Master) untereinander... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Taad79, 14. Oktober 2019.

  1. Taad79 User

    Makro: Zeilen (mit X) aus anderen Registern in Master kopieren


    Liebe Excel-Cracks

    Ich habe ein Problem. In einem File muss ich die 3 Register (G_ER; G_IR;G_EG) in ein Master-Register (G_Master) untereinander kopieren.
    In den Ausgangsregistern müssen alle Zeilen im Range A2:M1000 kopieret werden, wo in der Spalte N ein "X" steht. Die Werte müssen dann als reine Werte einfügt werden (ohne Formeln und Formatierung).

    In dem Excel hat es rund 20 Register, die für Zwischenrechnungen benötigt werden und von dem Kopiervorgang nicht tangiert sind.

    Kann mir hier jemand helfen?

    Liebe Grüsse, Taad
     
  2. Beverly
    Beverly Erfahrener User
    Hi,

    das kannst du z.B. mit folgendem Makro lösen:

    Code:
    Sub Kopieren()
        Dim arrTabs()
        Dim intZaehler As Integer
        Dim lngZeile As Long
        Dim lngLetzte As Long
        Dim lngAnzahl As Long
        lngZeile = 2
        arrTabs = Array("G_ER", "G_IR", "G_EG")
        For intZaehler = 0 To 2
            With Worksheets(arrTabs(intZaehler))
                lngLetzte = .Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
                .Range("A1").CurrentRegion.AutoFilter field:=14, Criteria1:="X"
                If .Columns(1).SpecialCells(xlCellTypeVisible).Count > 0 Then
                    lngAnzahl = .AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count
                    .Range(.Cells(2, 1), .Cells(lngLetzte, 13)).Copy
                    Worksheets("G_Master").Cells(lngZeile, 1).PasteSpecial Paste:=xlValues
                End If
                .Range("A1").CurrentRegion.AutoFilter
                lngZeile = lngZeile + lngAnzahl - 1
            End With
        Next intZaehler
    End Sub
    
    

    In den betreffenden 3 Tabellenblättern wird jeweils der Autofilter gesetzt und dann die gefilterten Zeilen kopiert. Autofilter wird wieder gelöscht.


    Bis später,
    Karin
     
    Beverly, 14. Oktober 2019
    #2
  3. Taad79 User
    Danke! :-)
     
Thema:

Makro: Zeilen (mit X) aus anderen Registern in Master kopieren

Die Seite wird geladen...
  1. Makro: Zeilen (mit X) aus anderen Registern in Master kopieren - Similar Threads - Makro Zeilen Registern

  2. Makro - Kombination aus Zeile löschen oder Text ersetzen

    in Microsoft Excel Hilfe
    Makro - Kombination aus Zeile löschen oder Text ersetzen: Hallo miteinander, ich würde gerne folgendes Problem per Makro (nicht mit klassischen Formeln) lösen (wichtig, das Makro muss beim Öffnen starten): - wenn in Spalte A nichts steht -> gesamte...
  3. Makro Problem nach Wörtern filtern und Zeilen löschen

    in Microsoft Excel Hilfe
    Makro Problem nach Wörtern filtern und Zeilen löschen: Hallo zusammen! Ich habe ein Makro, dass ich erweitern möchte. Dabei soll in den Daten in der ersten Zeile ein Filter aktiviert werden und alle Datenzeilen löschen, die in Spalte 10 eines von 4...
  4. Ausgeblendete Zeilen nicht kopieren Makro

    in Microsoft Excel Hilfe
    Ausgeblendete Zeilen nicht kopieren Makro: Hallo, Ich habe folgendes Makro in meine Tabelle eingefügt und das funktioniert soweit auch, ich würde aber gern dafür sorgen, dass ausgeblendete Zeilen nicht in die Übersicht kopiert werden. Wie...
  5. Löschen von Zeilen mit Makro

    in Microsoft Excel Hilfe
    Löschen von Zeilen mit Makro: Hallo, ich hätte folgendes Vorhaben: ein Makro soll alle Zeilen löschen beginnend ab der zweiten Zeile, bis zu der Zeile, die einen bestimmten Wert enthält (z.B. "XYZ"). Diese soll stehen bleiben....
  6. Zeilen dynamisch ein- ausblenden ohne Makro

    in Microsoft Excel Hilfe
    Zeilen dynamisch ein- ausblenden ohne Makro: Hallo, ich suche nach einer Möglichkeit, um einzelne Zeilen ein- oder auszublenden nur gesteuert über die Eingabe in einer anderen Zelle. Dabei sollte kein Makro verwendet werden. Der Autofilter...
  7. Makro Zeilen kopieren und einfügen nach Bedingung

    in Microsoft Excel Hilfe
    Makro Zeilen kopieren und einfügen nach Bedingung: Hallo liebe Community, für eine Vertragsanpassung möchte ich eine Liste mit mehreren 1000 Einträgen (Zeilen) überarbeiten. Auf Grund des juristischen Vorgehens ist es wichtig, die Vorher/Nachher...
  8. Zeilen und Spalten per Makro kopieren wenn ckeckerbox/haken gesetzt wird.

    in Microsoft Excel Hilfe
    Zeilen und Spalten per Makro kopieren wenn ckeckerbox/haken gesetzt wird.: Guten Abend, ich versuche grad eine Arbeitsmappe zu optimieren und stoße doch leider an meine Grenzen was vba und Makros angeht. Bisher habe ich ein makro mit einer Schaltfläche,welche einen...
Schlagworte:
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden