ich habe folgendes Problem.
Ich möchte mit VBA in der Zeile 12 die Spalte mit dem heutigen Datum suchen und dann eine Autoform dahin verschieben.
Bei der Suche habe ich das Problem, dass das von mir verwendete VBA-Programm die Zelle nur findet, wenn ich vorher die Spaltenbreite vergrößere, sodass der Zellwert richtig angezeigt wird. Lässt sich das irgendwie umgehen?
Des Weiteren möchte ich die gefundene Zelle dann an einen weiteren "Programmbaustein" übergeben, der dann die Autoform verschiebt.
Anbei meine verwendete Programmierung:
Private Sub Workbook_Open()
Dim Ergebnis As Range
Set Ergebnis = Tabelle1.Rows(12).Find(what:=Date, lookat:=xlWhole)
If Ergebnis Is Nothing Then
MsgBox "Leider nichts gefunden!"
Else
MsgBox "Das aktuelle Datum steht in der Zelle " & Ergebnis.Address
End If
With ActiveSheet.Shapes("Rechteck 1")
Dim rng As Excel.Range
Dim shp As Excel.Shape
Set rng = Worksheets("Projektplan").Range("?")
Set shp = Worksheets("Projektplan").Shapes("Rechteck 1") 'bzw. Shapes("CodeName des Shapes")
shp.Left = rng.Left
shp.Top = rng.Top
End With
End Sub
An der Stelle der Fragezeichen müsste dann die Übergabe der gefundenen Zelladresse stattfinden.
Ich hoffe ihr könnt mir helfen.
Im Voraus vielen dank!