Bonjour,
J'ai déjà expérimenté beaucoup pour motiver le code suivant:
à coller les valeurs et surtout pas le formatage. Avec ce code je dois reformater les feuilles cible par après.
D'ailleurs, vu ma modeste maîtrise de VBA, je ne comprends pas ce que ce bout de code
fait exactement par rapport à ce bout de code:
.
Bonne journée
Aloha
J'ai déjà expérimenté beaucoup pour motiver le code suivant:
Code:
Set Suchzeile = Cible.Worksheets(WS.Name).Range("A5000").End(xlUp)
Debug.Print Suchzeile.AddressLocal
WS.Range("A5:A35").Copy Suchzeile.Offset(1, 0)
WS.Range("F5:AC35").Copy Suchzeile.Offset(1, 1)
Application.CutCopyMode = False
With Cible.Worksheets(WS.Name)
lRow = .Range("A" & .Rows.Count).End(xlUp).Offset(1).Row
WS.Range("A5:A35").Copy .Range("A" & lRow)
WS.Range("F5:AC35").Copy .Range("B" & lRow)
End With
D'ailleurs, vu ma modeste maîtrise de VBA, je ne comprends pas ce que ce bout de code
Code:
WS.Range("A5:A35").Copy Suchzeile.Offset(1, 0)
WS.Range("F5:AC35").Copy Suchzeile.Offset(1, 1)
Code:
WS.Range("A5:A35").Copy .Range("A" & lRow)
WS.Range("F5:AC35").Copy .Range("B" & lRow)
Bonne journée
Aloha