|
Hallo,
1. macht es keinen Sinn in einem Beitrag weiter zu machen, der bereits auf gelöst/erledigt gesetzt ist. Ich habe nur durch Zufall gesehen, dass in dem Beitrag noch mal was geschrieben wurde. Dann besser einen neuen Beitrag eröffnen.
2. ist da so einiges unklar:
hier:
Range("A9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
fügst du etwas in die Zelle A9 ein - du hast aber (zumindest im Code) vorher gar nichts kopiert
Dann fügst du irgendwelche "Bildchen" hier ein, mit denen kann aber niemand was anfangen. Excel ist kein Bildbearbeitungsprogramm.
Aus den "Bildchen" entnehme ich, dass es sich um drei Spalten mit A-Werten und drei Spalten mit B-Werten handelt.
hier:
Range("JI3:JS3").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
kopierst du dann aber plötzlich 11 Spalten.
Da sage ich nur: hääähhh??
Bitte:
Eine Beispielmappe (aber dann bitte mit ein paar Datensätzen mehr als nur die zwei aus den "Bildchen") hochladen in der du mit vorher / nachher aufzeigst, was du haben willst.
Gruß Werner
|