Hallo Helfer, sollte bitte nochmals Eure Hilfe in Anspruch nehmen.
Ich hab mit meinen bescheidenen VB Kenntnissen folgende Anweisung in einem
Worksheet_BeforeRightClick Ereigniss eingebaut ...
Nach best. Kriterien kommt irgendwann folgender Punkt:
Ich klicke per Rechtsklick auf Splate 21:22 und dann soll sich nach Prüfung in Spalte 23:
Dort von unten hochwärts den letzten Eintrag suchen, in dieser Zeile dann Spalte 21 bis 32
kopiern und in der aktiv angeklickten ( diese liegt immer darunter ) dann einfügen , ebenfalls von 21 - 32.
In der Bezugzeile ( also die´mit dem letzten Eintrag in 23 ) sind in drei Spalten Formeln drinne, die sich anhand $ Zeichen dann teilw. fixieren und teilweise um den Sprung teifer, automatisch erweitern ...
Wo brauch ich Eure Hilfe :
an dem Punkt wo man - wenn letzter Eintrag gefunden - dann 21 - 32 kopieren
Diese Anweisung krieg ich nicht hin ... leider
Könnt Ihr mir helfen ?
Range("W65536").End(xlUp).Select
Selection.Copy
If Cells(R, 23) "" Then '
Cells(R + 1, 23).Activate
Else
Cells(R, 23).Activate
End If
With Cells(R, 23)
ActiveSheet.Paste
Application.CutCopyMode = False
End With
.....
Lieben Dank vorab und schönen Gruß
udo-d