Inhalt von Zellen in einen Shape schreiben
21.01.2004 21:23:47
Fritz Sanne
Mit dem unten stehenden Teilcode versuche ich, den Inhalt von Zellen aus einem Tabellenblatt (Ratenzahler) in ein Shape auf einem anderen Tabellenblatt (Benachrichtigung) zu bugsieren. Das klappt mit dem u.a. Code ich muss aber einen absoluten Zellbezug , z.B. Range(F4) angeben.
Versuche ich es mit: Sheets(Ratenzahler).ActiveCell.Offset(0, 5).Value o.ä. bekomme ich die Fehlermeldung: Objekt unterstützt diese Eigenschaft oder Methode nicht.
Wie kann ichs hinkriegen?
Wäre nett, wenn mir jemand auf die Sprünge helfen würde.
Danke schon mal.
Fritz
Sub BenachrichtigungAG()
Sheets("Benachrichtigung").Activate
ActiveSheet.Shapes(1).Select
Selection.Characters.Text = Chr(10) & Sheets("Ratenzahler").Range("E4") & Chr(10) & _
Sheets("Ratenzahler").Range("F4")
End Sub
Noch ein Wort zu der geforderten Selbsteinschätzung (Level): Ich finde, es müsste noch etwas zwischen "nein" und "gut" geben. Vielleicht sowas wie:" Na ja, geht so gerade..." ;-)