ich bin neu hier im Forum, war bisher aber immer von den Lösungen begeistert. Leider finde ich jetzt nirgendwo das was ich brauche.
Meine Tabelle sieht wie folgt aus:
C10: =heute() also immer das aktuelle Datum
In Zeile 11 ab Spalte L stehen die Daten, sprich:
L11: 23.06.2014
M11: 24.06.2014
.
.
.
DZ11: 19.10.2014
Eine Spalte ist 0,74cm breit, mein Rechteck auch. Ich möchte jetzt, dass das Rechteck entsprechend dem Datum in C10 unter dem jeweiligen Datum in Zeile 11 ist.
Mein Ansatz:
Option Explicit
Sub MoveVRectangle()
Dim shp As Shape
Set shp = ActiveSheet.Shapes("Rechteck 1")
With shp
If Range("C10") > 0 Then
End With
End Sub
Hinter dem "Then" ist allerdings Schluss. Ich weiß auch nicht um ehrlich zu sein, ob der Ansatz überhaupt Sinn macht.Ich hoffe Ihr könnt mir helfen und versteht mein Problem.
Liebe Grüße,
Manuel