Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeilen automatisch in neues Tabellenblatt kopieren

Zeilen automatisch in neues Tabellenblatt kopieren
18.01.2017 11:08:02
Thomas
Hallo zusammen,
Ich habe folgendes "Problem" welches ich gerne lösen möchte.
Folgende Daten habe ich in Tabellen Blatt "Eingabe":
Zelle B5: Kauf oder Verkauf
Zelle D5: Produkt
etc, bis Zelle X5 (da sind überall Werte oder Namen drin)
dann habe ich zusätzlich von B25 bis F25 eine tabelle wo ich Werte auswählen kann
Gerne würde ich all diese Werte von B5 bis X5 sowie aus der Tabelle B25 bis G25 in eine Transaktionsliste (Tabellenblatt Transaktionsliste) kopieren/verbuchen.
Folgenden Code habe ich dazu:
Sub Schaltfläche3_Klicken()
Worksheets("Transaktionsliste").Rows("6:6").Insert Shift:=xlDown
Range("B5").Copy
Worksheets("Transaktionsliste").Range("B6").PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C5").Copy
Worksheets("Transaktionsliste").Range("C6").PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C25").Copy
Worksheets("Transaktionsliste").Range("D6").PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C21").Copy
Worksheets("Transaktionsliste").Range("E6").PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D5").Copy
Worksheets("Transaktionsliste").Range("F6").PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E5").Copy
Worksheets("Transaktionsliste").Range("G6").PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F5").Copy
Worksheets("Transaktionsliste").Range("H6").PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B25").Copy
Worksheets("Transaktionsliste").Range("I6").PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D25").Copy
Worksheets("Transaktionsliste").Range("J6").PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G5").Copy
Worksheets("Transaktionsliste").Range("K6").PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H5").Copy
Worksheets("Transaktionsliste").Range("L6").PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I5").Copy
Worksheets("Transaktionsliste").Range("M6").PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K5").Copy
Worksheets("Transaktionsliste").Range("O6").PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L5").Copy
Worksheets("Transaktionsliste").Range("P6").PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E25").Copy
Worksheets("Transaktionsliste").Range("Q6").PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks _
:=False, Transpose:=False
Range("S5").Copy
Worksheets("Transaktionsliste").Range("W6").PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks _
:=False, Transpose:=False
Range("T5").Copy
Worksheets("Transaktionsliste").Range("X6").PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks _
:=False, Transpose:=False
Range("U5").Copy
Worksheets("Transaktionsliste").Range("Y6").PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks _
:=False, Transpose:=False
Range("V5").Copy
Worksheets("Transaktionsliste").Range("Z6").PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F25").Copy
Worksheets("Transaktionsliste").Range("AA6").PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks _
:=False, Transpose:=False
Range("X5").Copy
Worksheets("Transaktionsliste").Range("AB6").PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Dies Funktioniert auch. Jetzt das Problem: bei den Zellen B25 bis F25 habe ich jetzt nochmals eine weitere Zeile B26 bis 26.
Was ich möchte ist, dass wenn ich die Schaltfläche drücke das Makro sozusägen alle Daten von B5 bis X5 ins neue Tabellenblatt kopiert, dann automatisch die Daten von B25 bis F25 mitkopiert ...wenn das gemacht ist soll es eine Zeile nach unten springen und das selbe mit den Zellen B5 bis X5 + B26 bis F26
Wie kann ich dies kombinieren? Ist wohl ein wenig umständlich geschrieben von mir, könnte auch die Excel Datei hochladen als beispiel falls man dies kann

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen automatisch in neues Tabellenblatt kopieren
18.01.2017 11:46:01
Gunter
Hallo Thomas
lade doch mal die Datei hoch.
Gruss
Gunter
Anzeige

331 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige