Ich suche eine Idee wie man den nachfolgenden Code vereinfachen kann, da immer die selben Schritte ausgeführt werden. eine kurze Erklärung: in der TB "speicher" werden immer die Werte aus 5 hintereinanderliegenden Spalten kopiert und in TB "1" in die nächste Zeile in Spalte1 bis 5 kopiert, weiter mit den nächste 5 spalten der ausgewählten Zeile aus TB "Speicher" ....
Kann mir jemand helfen den Code über eine Schleife zu Programmieren? Die Werte aus TB "Speicher" sollen bis zur letzten gefüllten Zelle in der ausgewählten Zeile kopiert werden. Es sind aber auch Zellen ohne Wert vorhanden, so das im Code 5 leere aufeinanderfolgende Zellen das Zeichen für das Ende des kopieren sein müsste
Application.ScreenUpdating = False
Sheets("Speicher").Range("A2:E2").Copy
Sheets("Tabelle1").Range("A2").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Range("F2:J2").Copy
Sheets("Tabelle1").Range("A3").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Range("K2:O2").Copy
Sheets("Tabelle1").Range("A4").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Range("P2:T2").Copy
Sheets("Tabelle1").Range("A5").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Range("U2:Y2").Copy
Sheets("Tabelle1").Range("A6").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Range("Z2:AD2").Copy
Sheets("Tabelle1").Range("A7").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Range("AE2:AI2").Copy
Zellen_verbinden_aufheben
Sheets("Tabelle1").Range("A8:E8").Copy
Sheets("Tabelle1").Range("A8").PasteSpecial Paste:=xlValues, Operation:=xlNone
Zellen_verbinden
Sheets("Speicher").Range("AJ2:AN2").Copy
Sheets("Tabelle1").Range("A9").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Range("AO2:AS2").Copy
Sheets("Tabelle1").Range("A10").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Range("AT2:AX2").Copy
Sheets("Tabelle1").Range("A11").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Range("AY2:BC2").Copy
Sheets("Tabelle1").Range("A12").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Range("BD2:BH2").Copy
Sheets("Tabelle1").Range("A13").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Range("BI2:BM2").Copy
Sheets("Tabelle1").Range("A14").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Range("BN2:BR2").Copy
Sheets("Tabelle1").Range("A15").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Range("BS2:BW2").Copy
Sheets("Tabelle1").Range("A16").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Range("BX2:CB2").Copy
Sheets("Tabelle1").Range("A17").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Range("CC2:CG2").Copy
Sheets("Tabelle1").Range("A18").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Range("CH2:CL2").Copy
Sheets("Tabelle1").Range("A19").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Range("CM2:CQ2").Copy
Sheets("Tabelle1").Range("A20").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Range("CR2:CV2").Copy
Sheets("Tabelle1").Range("A21").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Range("CW2:DA2").Copy
Sheets("Tabelle1").Range("A22").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Range("DB2:DF2").Copy
Sheets("Tabelle1").Range("A23").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Range("DG2:DK2").Copy
Sheets("Tabelle1").Range("A24").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Range("DL2:DP2").Copy
Sheets("Tabelle1").Range("A25").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Range("DQ2:DU2").Copy
Sheets("Tabelle1").Range("A26").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Range("DV2:DZ2").Copy
Sheets("Tabelle1").Range("A27").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Range("EA2:EE2").Copy
Sheets("Tabelle1").Range("A28").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Range("EF2:EJ2").Copy
Sheets("Tabelle1").Range("A29").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Range("EK2:EO2").Copy
Sheets("Tabelle1").Range("A30").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Range("EP2:ET2").Copy
Sheets("Tabelle1").Range("A31").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Range("EU2:EY2").Copy
Sheets("Tabelle1").Range("A32").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Range("EZ2:FD2").Copy
Sheets("Tabelle1").Range("A33").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("Speicher").Application.CutCopyMode = False
Sheets("Tabelle1").Range("A8").Select
Application.ScreenUpdating = True
End Sub
Ich bin Dankbar für jede Hilfe Jens