Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
724to728
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Abstands- bzw. Leerzeile beim kopieren einfügen

Abstands- bzw. Leerzeile beim kopieren einfügen
26.01.2006 15: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

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

Betreff
Datum
Anwender
Anzeige
AW: Abstands- bzw. Leerzeile beim kopieren einfüge
26.01.2006 18: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
Anzeige
AW: Abstands- bzw. Leerzeile beim kopieren einfüge
26.01.2006 18: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 19:10:43
Christiane
Vielen Dank.....das werd ich morgen früh gleich probieren und Bescheid geben
ob es geklappt hat
Gruß
Christiane
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige