Verzweiflung
27.12.2004 18:50:14
Flip
irgrndwie läuft es heute so gar nicht!!
Habe schon zweimal gedacht Ihr, sprich Ransi, hättet mein Problem so gelöst, dass auch ich es raffe, aber scheint wohl nicht so...!
Der folgende Code läuft bei Tabellenblättern, bei Diagrammblättern leider nicht!! Keine Ahnung warum! Vor einer Stunde dachte ich er wäre auch auf meinem Diagrammblatt mal gelaufen, habe ihn dann ins Makro eingebaut,...war wahrscheinlich jedoch eine Fatamorgana...leider!!
Für neue Hilfe bin ich unendlich dankbar!! Ich kann den Rechener nicht mehr sehen doch bevor ich das nicht hinbekommen habe....!
Das ist der Code von Ransi:
Sub DynText2()
Dim wert
Dim berechnung
On Error Resume Next
ActiveSheet.OLEObjects("test").Delete 'damit nicht immer wieder eine box dazu kommt.
wert = "345"
berechnung = WorksheetFunction.Rept(" ", 5 - Len(wert)) & wert
ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", _
Left:=270, _
Top:=90, _
Width:=100, _
Height:=30) _
.Name = "test"
ActiveSheet.OLEObjects("test").Object.Text = "Messstelle: " & berechnung
End Sub
Besten Dank!!!
Flip