Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1648to1652
1648to1652
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mit Button Zellen mehrfach untereinander kopieren

Forumthread: Mit Button Zellen mehrfach untereinander kopieren

Mit Button Zellen mehrfach untereinander kopieren
05.10.2018 09:15:03
Bergen
Hallo zusammen,
ich benötige bitte eure Hilfe für folgendes Vorhaben:
Es geht um eine Vertriebsliste, die über einen Button Schrittweise erweitert werden soll.
Genauer gesagt geht es darum, per Commandbutton neue Vertriebspartner hinzufügen zu können.
Dabei sollen die Zellen a25:h29 kopiert und eingefügt werden.
einmalig kriege ich das hin, dass in a31:h35 der Inhalt kopiert wird.
Theoretisch könnte ich jetzt eine ellenlange Formel einfügen mit "if ...then" um bspw. bei dem weiteren Vertriebspartner bei a37:h41 einzufügen, aber da gibt es doch bestimmt eine einfacherere Lösung. Zumal bei dieser Variante auf einen Klick direkt die Gesamtzahl der "If then" Formeln erfüllt sind. Ich hoffe, das Problem ist damit verständlich beschrieben. falls nicht, fragt einfach ;-)
hier meine bisherige Formel: 
Private Sub CommandButton1_Click()
If Worksheets("Oktober").Range("A25") = "Vertriebspartner Nummer" Then
Worksheets("Oktober").Range("a25:h29").Copy Worksheets("Oktober").Range("a31:h35")
If Worksheets("Oktober").Range("A31") = "Vertriebspartner Nummer" Then
Worksheets("Oktober").Range("a25:h29").Copy Worksheets("Oktober").Range("a37:h41")
Else
Worksheets("Oktober").Range("a25:h29").Copy Worksheets("Oktober").Range("a37:h41")
End If
End If
End Sub

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mit Button Zellen mehrfach untereinander kopieren
05.10.2018 09:49:28
ChrisL
Hi
Sub t()
Dim lZ As Long
With Worksheets("Oktober")
lZ = .Cells(Rows.Count, 1).End(xlUp).Row
lZ = (WorksheetFunction.RoundDown((lZ - 24) / 6, 0) * 6) + 25
.Range("A" & lZ & ":H" & lZ + 4).Copy .Range("A" & lZ + 6)
End With
End Sub
cu
Chris
Anzeige
AW: Mit Button Zellen mehrfach untereinander kopieren
05.10.2018 09:56:30
Bergen
ja mega, vielen Dank! das ging ja blitzschnell!

Forumthreads zu verwandten Themen

Zeilen variabel oft kopieren und einfügen
Bernd

Hallo Forum,
ich tüftle seit einiger Zeit vergebens an folgender Aufgabe und bitte um eure Hilfe:
Ich habe in einer Mappe zwei Sheets: Tab1 und Tab2
In Tab1 importiere ich Daten mit Hilfe des Textkonvertierungsassistenten aus einer txt-Datei.
Die txt-Datei kann unterschiedlich v...
03.09.2009 17:41:35
Thread-ID: 1100389
9 Beiträge
Zeilen individuelle Kopieren und einfügen
Martin

Hallo zusammen,
ich habe folgende - eigentlich recht einfaches - Problem, das ich aber nicht lösen kann.
Ich habe eine Excel-Tabelle die wie folgt aussieht:
aaa 5
bbb 6
ccc 2
Die letzte zeile zeigt an, wie oft die Zeile benötigt wird. Ausgegeben werden soll nach...
22.10.2011 12:08:19
Thread-ID: 1234979
8 Beiträge
Makrocode: Zeilen kopieren und einfügen
David

Hallo,
ich bräuchte einen Makro Code der folgendes macht:
1) bestimme die unterste Zeile (bezogen auf Spalte A) in dem aktiven Tabellenblatt
2) kopiere diese Zeile + die nächst oberen 9 Zeilen
3) füge diese kopierten Zeilen unter die unterste Zeile aus Schritt1 ein und mache daz...
14.11.2012 14:46:17
Thread-ID: 1286631
7 Beiträge
Nur sichtbare Zeilen kopieren und einfügen
Tim

Hallo zusammen,
ich habe eine Tabelle mit bereits mehreren Makros (daher auch ausgeblendete Zeilen).
Nun möchte ich der Übersicht halber nur die sichtbaren Zeilen:
- ab Zeile 12 bis zum Ende des Worksheets (das Ende variiert)
- und nur Spalte A bis Spalte D
kopieren und in...
23.09.2013 11:16:11
Thread-ID: 1331885
6 Beiträge
Zeilen kopieren und einfügen, aber nicht am Ende
Huffi

Guten Morgen,
ich habe eine Tabelle erstellt, die aus unterschiedlichen Kostenstellen besteht.
Mittels Makro kann ich eine zusätzliche makierte Zeile einfügen, bzw. löschen.
Die einzelnen Kostenstellen haben eine Zwischensumme.
Am Ende der Tabelle werden die Summen der einzelne...
07.11.2013 09:19:57
Thread-ID: 1337444
4 Beiträge
Kopierte Zellen einfügen / Summe wird nicht aktual
Marcus

Moin,
ich habe Excel 2013 in Betrieb und stehe vor einem kleinen Problem. Vielleicht kennt das jemand und weiß Rat?
Ich schildere das kurz:
A1 = Überschrift
A2-A5 = Werte
A6 = Summe A2-A5
Wenn ich jetzt in A6 "kopierte Zellen einfüge" mit einem Wert, wird die Summe in A6...
30.07.2014 14:48:46
Thread-ID: 1373172
3 Beiträge
bestimmte Anzahl an Zeilen kopieren und einfügen
Hans

Hallo zusammen,
habe ein Excel-Sheet mit ca. 1.800 Zeilen und 32 Spalten.
Nun möchte ich, dass ein Makro die Daten aus Zeile H6:H37 kopiert und in G38:G69 einfügt. Anschließend soll Zeile I6:I37 kopiert werden und in Zeile G70:G81 kopiert werden, usw. bis zur letzten Spalte.
Kann mi...
17.09.2014 10:35:19
Thread-ID: 1382027
2 Beiträge
Tabellenzeilen suchen, kopieren und einfügen
Chris

Hallo liebe Forumsmitglieder,
ich möchte in ein Excel Tool ein Makro einbauen, das folgende Funktionen hat:
1) Ich kann einen Dateipfad für eine Quellexcel auswählen, aus dem ich Daten Importieren möchte. (bereits erledigt)
2) Das Makro soll beim Aktivieren die Quellexcel öffnen (be...
24.09.2014 18:59:09
Thread-ID: 1383269
5 Beiträge
VBA Tab1 Zeilen kopieren und in Tab2 einfügen
mehmet
Hallo Forum,
ich komme einfach nicht weiter.
Es sollen die Inhalte (Value) von Tab1 N110:U130 in Tab2 Spalte AA..:AN.. (Zeilen in gelb) eingefügt werden.
Es soll also in Tab1 Zelle N110 und Zelle O110 geguckt werden ob Zellen belegt sind.
Wenn beide Zellen belegt, dann soll Tab1 Zei...
24.10.2014 21:12:24
Thread-ID: 1388524
14 Beiträge
Kopierte Zellen in TAbelle einfügen
Dieter

Liebe Excelspezialisten,
guten morgen!
ich dreh mich wiedermal im Kreis.
Was passiert:
ich kopiere Daten aus der Tabelle "vorlage" mit:
Range("a1:an33")=select
selection.copy
1. Frage: wie kann ich diesem kopiertenZeug einen Namen geben?
denn später an anderer St...
27.01.2015 10:20:17
Thread-ID: 1405314
6 Beiträge
Zeilen kopieren und als Bild einfügen
Sandja

Guten Abend
Ich bin auf der Suche nach Hilfe.
Die Ausgangslage: Ich habe 4 Tabellenblätter, welche verschiedene Spaltenbreiten und verschiedene Anzahl Zeilen haben. Ich möchte die Zeilen auf den jeweiligen Blättern kopieren und in einem Neuen Tabellenblatt als Bild einfügen. Die Bilde...
13.12.2016 18:52:41
Thread-ID: 1529951
5 Beiträge
2 Zeilen kopieren und einfügen
Erik

Hallo Excelgemeinde,
ich komme hier einfach nicht weiter,
ich suche nach einem VBA Code für das Kopieren und Einfügen von 2 Zeilen.
Und zwar sollen immer die Zeilen 5 und 6 direkt über der jeweils aktiven Zeile eingefügt werden.
Unter der Voraussetzung, dass:
- die aktive Ze...
05.11.2017 18:05:30
Thread-ID: 1589653
3 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Mit Button Zellen mehrfach untereinander kopieren

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und wechsle zu dem Arbeitsblatt, in dem du die Zellen kopieren möchtest (in diesem Beispiel "Oktober").

  2. Füge einen CommandButton hinzu:

    • Gehe zu "Entwicklertools" und wähle "Einfügen".
    • Wähle den "Button" aus und ziehe ihn auf dein Arbeitsblatt.

  3. Klicke mit der rechten Maustaste auf den Button und wähle "Code anzeigen".

  4. Füge den folgenden VBA-Code ein, um die Zellen a25:h29 zu kopieren und untereinander einzufügen:

    Private Sub CommandButton1_Click()
   Dim lZ As Long
   With Worksheets("Oktober")
       lZ = .Cells(Rows.Count, 1).End(xlUp).Row
       .Range("A25:H29").Copy .Range("A" & lZ + 1)
   End With
End Sub

  5. Schließe den VBA-Editor und teste den Button, um die Zellen mehrfach untereinander zu kopieren.

Häufige Fehler und Lösungen

  • Fehler: Der Button funktioniert nicht.

    • Lösung: Überprüfe, ob der Code korrekt in das richtige Modul eingefügt wurde. Stelle sicher, dass der Button mit dem richtigen Sub verbunden ist.

  • Fehler: Die Zellen werden nicht in die gewünschte Zeile kopiert.

    • Lösung: Achte darauf, dass die Endzeile lZ korrekt berechnet wird. Überprüfe die Logik für das Einfügen der Daten.

Alternative Methoden

Eine andere Möglichkeit, Zellen mehrfach zu duplizieren, besteht darin, die Funktion "Kopieren" und "Einfügen" manuell zu verwenden. Du kannst auch ein Makro für wiederkehrende Aufgaben erstellen:

Sub ZeilenKopieren()
    Dim i As Integer
    For i = 1 To 5 ' Anzahl der Duplikate
        Worksheets("Oktober").Range("A25:H29").Copy _
        Worksheets("Oktober").Cells(30 + (i - 1) * 5, 1)
    Next i
End Sub

Praktische Beispiele

  • Beispiel 1: Um die Vertriebspartnerliste zu erweitern, kannst du den oben genannten VBA-Code nutzen, um die Zellen a25:h29 zu kopieren und unter die letzten vorhandenen Zeilen einzufügen.

  • Beispiel 2: Wenn du mehrere Vertriebsmitarbeiter hinzufügen möchtest, kannst du den Code anpassen, um die Zellen jeweils in einem Abstand von 5 Zeilen einzufügen, sodass die Übersichtlichkeit gewahrt bleibt.

Tipps für Profis

  • Nutze die Funktion xlUp, um die letzte beschriebene Zeile dynamisch zu ermitteln. So kannst du sicherstellen, dass die neuen Daten immer unter den bestehenden Daten eingefügt werden.
  • Experimentiere mit weiteren Excel-Funktionen, um die Effizienz deiner VBA-Programme zu steigern, wie z.B. Application.CutCopyMode = False, um den Kopiermodus nach dem Einfügen zu deaktivieren.

FAQ: Häufige Fragen

1. Wie viele Zeilen kann ich mit einem Button kopieren?
Du kannst mit VBA theoretisch unbegrenzt viele Zeilen kopieren, solange du den Code entsprechend anpasst und die Ressourcen deines Computers ausreichend sind.

2. Funktioniert dieser Code in jeder Excel-Version?
Ja, der Code sollte in den meisten Excel-Versionen ab Excel 2007 funktionieren. Achte jedoch darauf, dass die Entwicklertools aktiviert sind.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige