Office: Makro kopieren

Helfe beim Thema Makro kopieren in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, ich habe zwei Tabellen, wo ich aktuell über 2 Makro Buttons folgende Funktionen erfülle : z.B. Button 1 - Ausgewählten Text in Tabelle... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Meta107, 5. September 2021.

  1. Meta107 Neuer User

    Makro kopieren


    Hallo zusammen,

    ich habe zwei Tabellen, wo ich aktuell über 2 Makro Buttons folgende Funktionen erfülle :
    z.B.
    Button 1 - Ausgewählten Text in Tabelle 1 Spalte "B" kopieren nach Tabelle 2 Spalte "B" Reihe 4 fortl.
    Button 2 - Ausgewählten Text in Tabelle 1 Spalte "C" kopieren nach Tabelle 2 Spalte "C" Reihe 4 forl.


    Mein Wunsch wäre es hier, dass wenn ich quasi in Tabelle 1 den Text in z.B. Spalte B4 markiere und das Makro ausführe, direkt auch C4 mit kopiert wird und in Tabelle2 in C4 gesetzt wird. Fortlaufend dann natürlich, sodass quasi wenn B4;C4 voll sind die nächste Reihe genutzt wird.

    ( vielleicht wäre es sogar möglich, ein Fenster aufploppen zulassen in welchem man eine Stückzahl angeben kann welche dann in Tabelle2 A4 fortlaufend gesetzt wird ? )

    Hintergrund ist, dass ich hier eine Liste mit Artikelbeschreibungen habe & dahinter Bestellnummern, diese sollen über die Funktion quasi mit einem Button/Tastenkombination direkt in das Bestellformular eingefügt werden.


    Der Code für die aktuellen zwei Makros sieht wie folgt aus :

    Code:
    Sub Text_kopieren()
    '
    Dim lngLetzteZeile As Long
    If ActiveSheet.Name = "Mechanik" Then
    lngLetzteZeile = Worksheets("Entnahmeschein").Cells(Rows.Count, 2).End(xlUp).Row + 1
    ActiveCell.Copy Destination:=Worksheets("Entnahmeschein").Cells(lngLetzteZeile, 2)
    End If
    End Sub
    
    Sub SAP_kopieren()
    '
    Dim lngLetzteZeile As Long
    If ActiveSheet.Name = "Mechanik" Then
    lngLetzteZeile = Worksheets("Entnahmeschein").Cells(Rows.Count, 3).End(xlUp).Row + 1
    ActiveCell.Copy Destination:=Worksheets("Entnahmeschein").Cells(lngLetzteZeile, 3)
    End If
    End Sub
    
    Mit freundlichen Grüßen
     
  2. Lutz Fricke Erfahrener User
    Hallo Meta107,

    stell doch einfach mal eine Beispieldatei inkl. Code ins Forum.

    Zur schnellen Hilfe kannst Du folgenden Code probieren:
    Code:
    Sub Text_kopieren()
    '
    Dim lngLetzteZeile As Long
    If ActiveSheet.Name = "Mechanik" Then
    lngLetzteZeile = Worksheets("Entnahmeschein").Cells(Rows.Count, 2).End(xlUp).Row + 1
    ActiveCell.Resize(, 2).Copy Destination:=Worksheets("Entnahmeschein").Cells(lngLetzteZeile, 2)
    End If
    End Sub
    Code ist nicht getestet.

    Dieser Code kopiert die aktive Zelle und die rechts daneben in das andere Blatt.
    Um die Anzahl an Kopien zu ändern, schau dir mal die InputBox-Methode an. Da kannst Du einen Wert eingeben und anschließend deinen Code so häufig durchlaufen alssen.

    gruß,
    Lutz
     
    Lutz Fricke, 6. September 2021
    #2
Thema:

Makro kopieren

Die Seite wird geladen...
  1. Makro kopieren - Similar Threads - Makro kopieren

  2. Mit WENN-Bedingung in Makro gekennzeichnete Spalten in richtige Tabelle kopieren

    in Microsoft Excel Hilfe
    Mit WENN-Bedingung in Makro gekennzeichnete Spalten in richtige Tabelle kopieren: Hallo, Ich habe ein Makro, welches ich gerne ein wenig erweitern möchte, um mir bei der Weiterverarbeitung der Ergebnisse deutlich Zeit zu sparen. Da dies meine sehr rudimentären Makrokenntnisse...
  3. 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...
  4. Arbeitsm.-schutz per makro aufheben, register kopieren und Arbeitsm. schützen

    in Microsoft Excel Hilfe
    Arbeitsm.-schutz per makro aufheben, register kopieren und Arbeitsm. schützen: Hallo, ich habe eine Datei mit ziemlich vielen Tabellenregistern die alle mit einem Blattschutz und Arbeitsmappenschutz versehen sind. Blattschutz und Arbeitsmappenschutz haben alle ein PW....
  5. Gekennzeichnete Spalten mit WENN-Bedingung in Makro nach 5 Tabellen kopieren

    in Microsoft Excel Hilfe
    Gekennzeichnete Spalten mit WENN-Bedingung in Makro nach 5 Tabellen kopieren: Hallo, Ich habe ein Makro, welches ich gerne ein wenig erweitern möchte, um mir bei der Weiterverarbeitung der Ergebnisse deutlich Zeit zu sparen. Da dies meine sehr rudimentären Makrokenntnisse...
  6. 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...
  7. Makro VBA: Kopieren aus Quelldatei nach Zieldatei über mehrere Tabellen

    in Microsoft Excel Hilfe
    Makro VBA: Kopieren aus Quelldatei nach Zieldatei über mehrere Tabellen: Hallo, leider kann ich maximal Makros aufzeichnen. Damit komme ich bei meinem jetzigen Problem allerdings nicht weiter. Problem: Monatlich soll ein Auszug von Daten aus einer Quelldatei die ich...
  8. Makro Zellen kopieren in andere Mappe

    in Microsoft Excel Hilfe
    Makro Zellen kopieren in andere Mappe: Ich bin recht neu in der Excel Welt und komme leider nicht weiter. Kurz zu meinem Vorhaben. Auf Mappe1 habe ich mir einen "Rechner" zusammen gestellt, wo ich mir Zeiten ausrechnen kann. Dort...
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