das schwierigeste Problem das ich je hatte...
Michael
mit folgendem Code ändere ich die Position der Shapes (diese sollen nur horizontal bewgt werden, also nach links oder rechts).
(die Buttons teilen das "Feld" ein (auf CButton1 steht z.B. 1, auf CB2 steht 2 etc)
ActiveSheet.Shapes("AutoShape 117").Select
If TextBox74.Value "" Then 'aus einer UF
For i = 1 To 14 'ich Versuche es mit einer Schleife aber wie für alle 20 Textboxen und für alle Buttons?
If TextBox74.Value = CommandButton &i.Caption Then '?
Set Sh = ActiveSheet.Shapes("AutoShape 117") '?
Sh.Left = [k4+i].Left'?
Sh.Top = [k4+i].Top'?
End If
Next
End If
ich möchte nun für alle TEstboxen prüfen ob in ihnen das selbe steht wie auf dem Button, wenn dem so ist soll das dazugehörige shape verschoben werden.
-im Code gehört Textbox74 zu Shape 117 (es gibt aber 20 dieser Zuordnungen)
Kann man das Prob einigermaßen verstehen?
Gruß
Michel