bräuchte nochmal ne kleine Hilfestellung:
ich bräuchte meinen Code so, daß wenn es mir den Text ins Rechnungsformular
kopiert, mir gleichzeitig ne Abstands- bzw. Leerzeile mit einfügt.
Ist sowas machbar:
Hier der Code:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Set Bezeichnung = Cells(Target.Row, 1)
Worksheets("Rechnung").Activate
Bezeichnung.Copy Destination:=Worksheets("Rechnung").Cells(ActiveCell.Row, 5)
a = "A" & ActiveCell.Row
h = "H" & ActiveCell.Row
Worksheets("Rechnung").Cells(ActiveCell.Row, 9).FormulaLocal = _
"=WENN(" & h & "="""";"""";WENN(" & a & "="""";" & h & ";RUNDEN((" & a & "*" & h & ");2)))"
Cancel = True
Application.ScreenUpdating = True
End Sub