Daten nur in eines von 3 Blättern eintragen
12.02.2006 21:14:32
Christiane
nochmal ein Problem zu meiner Fakturierungsmappe, habs selbst leider nicht hinbekommen:
Mein Code sieht im Moment so aus:
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
ActiveCell.Select
Application.ScreenUpdating = True
End Sub
Also meine Mappe besteht aus folgenden Tabellenblättern:
Rechnung / Abschlagsrechnung / Schlußrechnung / Texte
Im Blatt Texte steht obiger Code und bisher gehe ich folgendermaßen vor:
Ich setze vorher im Rechnungsblatt den Cursor an die Pos. wo ich den Text
haben möchte, dann gehe ich ins Blatt Texte, suche mir einen gewünschten Text
aus und übernehme ihn mit RightClick ins Blatt Rechnung.
Wie kann ich es machen, das es mir das auch im Tabellenblatt Abschlagsrechnung
und Schlußrechnung macht. Also nicht gleichzeitig in alle 3 Blätte sondern
in das, das ich gerade möchte.
Weiß jemand Rat.
Gruß
Christiane