Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Makro Zuweisungen
#1
Hi,

um mir die Erstellung eines Netzplanes in Excel zu erleichtern, würde ich gerne mit Hilfe von Makros die einzelnen Arbeitspakete erstellen und zuordnen lassen. 
Das kopieren eines bereits vorhanden Bausteins funktioniert, allerdings funktioniert die anschließende Zuweisung der Rechtecke mit den Zeilen in Excel nicht.
Er weißt die neu kopierten Bausteine nicht den Zeilen zu, sondern stets den alten kopierten Bausteinen. 
Dies erkennt man auch im Makrocode. 
[ Bild bitte als Datei hochladen! ]

Er will die Formeln stets den jeweiligen Rectangle mit der bestimmen Nummer XXX zuweisen und nicht den neu erstellten.
Gibt es eine Möglichkeit die Formen immer auf die neu kopierten Rechtecke zuzuweisen?

Im Anhang noch einmal ein Bild des kopierten Bausteins, jedoch ohne die neue Zuweisung der einzelnen Rechtecke.

Viele Dank!
Antwortento top
#2
Hi,

anstelle eines Bildes (das du nicht hochgeladen hast), wäre einen Beispieldatei hilfreich.
Herzliche Grüße aus dem Rheinland
Jörg

[Windows 10, Microsoft 365]
Antwortento top
#3
Hallöchen,

hier mal als Ansatz das Prinzip. Weise das neu erstellte Rechteck einer Objektvariable zu und dann machst Du damit alles was Du willst wenn es denn geht Smile


Code:
Option Explicit

Sub Makro1()
'
' Makro1 Makro
'

'
Dim shRect As Shape
    Set shRect = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 121.8, 36.6, 155.4, 58.8)
    MsgBox shRect.Name
End Sub
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste