Formatierung von Tab 1 in Tab 2 übernehmen ???
25.01.2006 14:23:30
Christiane
ich habe folgendes Problem:
Ich habe eine Arbeitsmappe mit 2 Tabellen "Rechnung" + " Material".
In der Tabelle "Rechnung" habe ich folgenden Code:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 5 Then Exit Sub
If Trim(Target.Cells) <> "" Then Exit Sub
Rows(Target.Row).Insert Shift:=xlDown
Worksheets("Material").Activate
Cancel = True
End Sub
In der Tabelle "Material" lautet der Code:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Zeile As Long, Z As Integer
Dim Bezeichnung As String, Einheit As String, Preis As Currency
Dim ersteZeile As Integer, letzteZeile As Integer
Einheit = Cells(ActiveCell.Row, 1)
Bezeichnung = Cells(ActiveCell.Row, 2)
Preis = Cells(ActiveCell.Row, 3)
Worksheets("Rechnung").Activate
Worksheets("Rechnung").Cells(ActiveCell.Row, 3).Value = Einheit
Worksheets("Rechnung").Cells(ActiveCell.Row, 5).Value = Bezeichnung
Worksheets("Rechnung").Cells(ActiveCell.Row, 8).Value = Preis
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
End Sub
Es ist also so, da per RightClick die Daten von der Tabelle "Material" in die
Tabelle "Rechnung" übernommen werden. Das funktioniert auch gut.
Ich möchte nur auch die Formatierungen mit übernehmen: sprich wenn ich in Tab. "Material" z.B. etwas unterstrichen oder fett geschrieben habe, das es mir das genauso übernimmt wie ich es in "Material" hineingeschrieben habe.
Wie mach ich denn das ? Hat jemand eine Ahnung?
Gruß Christiane