Excel VBA eine definierte Shape bewegen?
Hallo Zusammen,
Ich habe in einem File mit zwei Blättern (Genehmigung und Planung) einen Balken (benannt "Datumsbalken"). Dieser ist jeweils auf dem heutigen Tag fixiert.
Jetzt will ich seine Verschiebung anhand des heutigen Datums automatisieren. Ich bringe jedoch das Makro nicht zum laufen. Was ist mein Fehler?
Sub BalkenSchieben3()
Dim Today As Variant
Dim Last As Variant
Dim TodaySheet As Variant
Dim Difference As Variant
Dim Form As Shape
Set Form = Sheets("Planung").Shapes.Range("Datumsbalken") '(Array("Datumsbalken")) soll die Shape "Datumsbalken" suchen
Set Today = Date 'Setzt das heutige Datum
Set Difference = Sheets("Genehmigung").Range("AO3") 'Setzt den Unterschied zwischen letzter Bearbeitung und Heute
Set TodaySheet = Sheets("Genehmigung").Range("AK3")
If Difference > 0 Then
For Difference = 1 To Difference 'Die Anzahl Tagesunterschiede (Difference) entscheidet, wie viele Male der Balken verschoben werden soll.
With Sheets("Planung")
Form.Select
Selection.ShapeRange.IncrementLeft 21
End With
Next
Else
End If
Set Sheets("Genehmigung").Range("AK3") = Today 'Das heutige Datum wird in die Zelle abgespeichert
Set Sheets("Genehmigung").Range("AM3") = TodaySheet 'Das letzte Bearbeitungsdatum (vorheriges "Heute") wird abgespeichert, damit die nächste Difference berechnet werden kann
End Sub
Vielen Dank im Voraus!
Microsoft Excel,
Microsoft Office,
programmieren,
VBA,
Formel
