Zeilen automatisch in neues Tabellenblatt kopieren
18.01.2017 11:08:02
Thomas
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