Bitte Hilfe bei "ActiveCell.Text"
26.01.2006 11:29:16
Christiane
ich habe im Internet folgendes gefunden:
Möchten Sie den Inhalt einer Zelle ermitteln, können Sie die Eigenschaften Value oder Text verwenden. Sie geben allerdings unterschiedliche Werte zurück.
Benötigen Sie lediglich den Wert der Zelle ohne Formatierungsinformation, verwenden Sie die Value-Eigenschaft:
varWert = ActiveCell.Value
Möchten Sie hingegen den Wert inklusive der Formatierung herausfinden, arbeiten Sie mit der Text-Eigenschaft:
varWert = ActiveCell.Text
Ich weiß aber leider nicht, wie ich das "ActiveCell.text" in meinen Code einbauen kann. Kann mir jemand helfen?
Hier der Code :
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Zeile As Long, Z As Integer
Dim Bezeichnung As String
Dim ersteZeile As Integer, letzteZeile As Integer
Bezeichnung = Cells(ActiveCell.Row, 1).Select
Selection.Copy
Sheets("Rechnung").Select
Worksheets("Rechnung").Cells(ActiveCell.Row, 5).Select
Selection.PasteSpecial Paste:=xlValues
Selection.PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
Worksheets("Rechnung").Cells(ActiveCell.Row, 5).Select
Worksheets("Rechnung").Activate
Worksheets("Rechnung").Cells(ActiveCell.Row, 5).Value = Bezeichnung
Cancel = True
End Sub
Und hier die Mappe:
https://www.herber.de/bbs/user/30401.xls
Bisher übernimmt es mir zwar die Formatierung richtig, schreibt aber statt dem
richtigen Text ins Rechungsblatt "Wahr". Ich hab zwar schon rausbekommen, daß
irgendwo in meinen Code das "ActiveCell.Text" muß, ich weiß aber nicht wo und
wie ohne das meine Funktion RightClick verloren geht.