Textbox positionieren

28/03/2009 - 02:14 von Willy Steffen | Report spam
Hallo NG
Ich habe Text in den Kommentaren "das Datum de rFeiertagen. Dies geht
bestens, hat aber den Nachteil, dass er beim Drucken den Kommentar nicht
ausgibt. So möchte ich den Kommentar auslesen und ihn in ein Textfeld
übertragen möchte. Das Textfeld sollte je nach Feiertag eine bestimmte
Position sein. Am besten mit einer Zelle verbunden.
Wie kann ich jeweils die Position berechnen. Z.B: Kolonne 22 Zeile 40 möchte
ich per VBA das Textfeld positionieren oder kann man ein Textfeld fest mit
einer Zelle verbinden?
Vielen Dank im Voraus für Eure Bemhungen.
Willy
 

Lesen sie die antworten

#1 Andreas Killer
28/03/2009 - 09:01 | Warnen spam
Willy Steffen schrieb:

ausgibt. So möchte ich den Kommentar auslesen und ihn in ein Textfeld
übertragen möchte. Das Textfeld sollte je nach Feiertag eine bestimmte
Position sein. Am besten mit einer Zelle verbunden.
Wie kann ich jeweils die Position berechnen. Z.B: Kolonne 22 Zeile 40 möchte


Jede Zelle hat ein .Left/.Top die die Koordinaten enthalten. Beispiel:

Sub Makro1()
Dim X As Double, Y As Double
Dim L As Object
With ActiveCell
If Not .Comment Is Nothing Then
X = .Left + .Width
Y = .Top
Set L = ActiveSheet.Labels.Add(X, Y, X + 100, Y + 50)
L.Caption = .Comment.Text
End If
End With
End Sub

ich per VBA das Textfeld positionieren oder kann man ein Textfeld fest mit
einer Zelle verbinden?


IMHO nicht.

Andreas.

Ähnliche fragen