Abstands- bzw. Leerzeile beim kopieren einfügen

Forumthread: Abstands- bzw. Leerzeile beim kopieren einfügen

26.01.2006 16:01:18

Christiane

Hallo,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Abstands- bzw. Leerzeile beim kopieren einfüge

26.01.2006 19:13:29

ChrisL

Hallo


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
With Worksheets("Rechnung")
.Cells(Target.Row, 5) = .Cells(Target.Row, 1)
.Cells(Target.Row, 9).Formula = _
"=IF(H" & Target.Row & "="""","""",IF(A" & Target.Row & ",ROUND((A" & Target.Row & "*H" & Target.Row & "),2)))"
.Rows(Target.Row).Insert Shift:=xlDown
End With
Cancel = True
Application.ScreenUpdating = True
End Sub

Den With-Block könntest du höchst wahrscheinlich noch löschen.
Gruss
Chris

AW: Abstands- bzw. Leerzeile beim kopieren einfüge

26.01.2006 19:14:41

ChrisL

so...


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
Cells(Target.Row, 5) = Cells(Target.Row, 1)
Cells(Target.Row, 9).Formula = _
"=IF(H" & Target.Row & "="""","""",IF(A" & Target.Row & ",ROUND((A" & Target.Row & "*H" & Target.Row & "),2)))"
Rows(Target.Row).Insert Shift:=xlDown
Cancel = True
Application.ScreenUpdating = True
End Sub

AW: Abstands- bzw. Leerzeile beim kopieren einfüge

26.01.2006 20:10:43

Christiane

Vielen Dank.....das werd ich morgen früh gleich probieren und Bescheid geben
ob es geklappt hat
Gruß
Christiane

Abstands- bzw. Leerzeile beim kopieren einfügen

Forumthread: Abstands- bzw. Leerzeile beim kopieren einfügen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Abstands- bzw. Leerzeile beim kopieren einfügen

Forumthread: Abstands- bzw. Leerzeile beim kopieren einfügen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread