textboxes.count

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Gar nicht

25.11.2003 09:26:15

Michael Scheffler

AW: Gar nicht

25.11.2003 09:34:33

Jörg Schreiber

AW: Gar nicht

25.11.2003 09:50:18

Michael Scheffler

AW: Gar nicht

25.11.2003 10:11:01

Jörg Schreiber

AW: Gar nicht

25.11.2003 10:49:16

Michael Scheffler

AW: Gar nicht

25.11.2003 11:00:32

Jörg Schreiber

Noch offen:-(

25.11.2003 11:11:18

Michael Scheffler

AW: textboxes.count

25.11.2003 11:52:58

Nayus

AW: textboxes.count

25.11.2003 12:02:24

Jörg Schreiber

AW: textboxes.count

25.11.2003 16:52:09

Joerg Schreiber

AW: textboxes.count

25.11.2003 17:16:01

Nayus

eigentlich ist das problem ein ganz anderes, und ich versuche es nur so zu erschlagen:

ich habe eine textbox ueber zwei zeilen, die von groesse und lage der zellen abhaengig ist (das brauche ich auch). wenn ich nun die zeilenhoehe einer der zeilen aendere, aendert sich wie gewollt auch die hoehe der textbox - allerdings leider auch die schriftgroesse, es wird alles verzogen. das sieht halt mies aus.

drum dachte ich, die abhaengigkeit aufzuheben und die textbox per code in ihrer hoehe nachzuziehen. hier nun das problem, genau auf die textbox zuzugreifen, die es betrifft. meine vorgaenge (die ueber die zwei zeilen) sind der reihe nach durchnumeriert. faellt ein vorgang raus, aendert sich die numerierung automatisch. bei den texboxen natuerlich nicht. deshalb kann ich nie sagen, welche textbox gerade an welchem vorgang haengt.

idee1:
alle textboxen von oben nach unten neu numerieren, sobald eine zeilenhoehe angepasst wurde. klappt lt. dir nicht!

idee2:
ueber die moegliche adresse die zeile ermitteln. in dieser zeile kann ich dann die numerierung aus zelleXY auslesen und den namen der textbox angleichen. deshalb meine frage nach der adresse.

idee3:
versuchen rauszubekommen, welche textbox betroffen ist, wenn ich die zeile aendere. hab keine ahnung, wie ich da rankomme...

vielleicht ist es aber auch ganz banal per mausklick zu loesen, wo man die textverzerrungseigenart beheben kann?

Hallo Jörg,
nachfolgend findest Du eine Sub, die Textboxes auf dem aktivem Blatt ihrer x-Position (Top) nach umbenennt.
Verwendet werden Arrays und ein selbst programmiertes sortieren der Arrays.
Das Ganze funktioniert natürlich mit allen OLE-Objekten. Solltest Du noch andere Objektarten (Listboxes o. ä.) auf Deinem Blatt haben, so funktioniert's nicht wie gewünscht.
Aber so sollte es ein möglicher Ansatz sein.

Gruß und viel Erfolg,
Nayus


Sub SortBoxes()
Dim l_xpos As Double, l_ulimit As Double
Dim arrXpos() As Double
Dim arrXposSorted() As Double
Dim objCnt As Integer
objCnt = ActiveSheet.OLEObjects.Count
ReDim arrXpos(objCnt)
ReDim arrXposSorted(objCnt)
l_xpos = 0
l_ulimit = 0
For i = 1 To objCnt
'Textboxes temporär umbenennen und x-Position speichern
ActiveSheet.OLEObjects(i).Name = "TB" & CStr(i)
arrXpos(i) = ActiveSheet.OLEObjects(i).Top
Next i
'Array sortieren
For x = 1 To objCnt
For j = 1 To objCnt
If x > 1 And j = 1 Then
For z = 1 To objCnt
'nächstgrößeres Element suchen
If arrXpos(z) > l_ulimit Then
l_xpos = arrXpos(z)
Exit For
End If
Next z
End If
If l_xpos = 0 Then
l_xpos = arrXpos(j)
Else
If arrXpos(j) < l_xpos And arrXpos(j) > l_ulimit Then
l_xpos = arrXpos(j)
End If
End If
Next j
arrXposSorted(x) = l_xpos
l_ulimit = l_xpos
Next x
For p = 1 To objCnt
'Textboxes nach positionieren und umbenennen
ActiveSheet.OLEObjects(p).Name = "TextBox" & CStr(p)
ActiveSheet.OLEObjects(p).Top = arrXposSorted(p)
Next p
End Sub

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread