Grafik an Zelle in Datumspalte anfügen

Mahlzeit liebe Gemeinde.
Ich habe eine Aufgabe bekommen über die ich jetzt schon ne weile grüble.
Angehangen hab ich eine Beispielmappe, wie es zum Schluss aussehen soll:
https://www.herber.de/bbs/user/73047.xlsx
Hierbei soll das TB "Zeitstrahl" per VBA generiert werden.
1. Im "Zeitplan" trägt der Benutzer bei entsprechendem Datum ein, welches Event (Abgleich, Finaltest, ...) stattfindet. Entsprechend wird das Symbol ausgewählt und an die Stelle mit dem Datum gesetzt.
2. die Spalte Zugang muss dann dementsprechend unter das Symbol gesetzt werden. ebenfalls zum passendem Datum.
Habs bereits mit Addpicture probiert, aber die Symbole sind ja scheinbar Excelsymbole und werden wahrscheinlich anders angesprochen als externe Bilder.
Ausserdem grauts mir vor dem Positionieren von Grafiken an eine bestimmte Stelle... Kann man hierbei trotzdem mit Zellendeklarationen arbeiten?
Was ausserdem noch zu realisieren wäre: an manchen Tagen treten mehrere Dinge ein. Der User dupliziert hierzu einfach im Tabellenblatt "Zeitplan" die jeweilige Zeile und trägt das neue Event und den neuen Zugang ein. Diese Änderung müsste im Zeitstrahl dann ebenfalls sichtbar werden und ergänzt werden....
Ich steh momentan bisschen aufm Schlauch? Hat jemand einen Ansatz?
Gruß Beffen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

hi und moin
jettt hab ich des erst verstanden !
und hier die exakte Zentrierung der shapes
geänderte Stellen sind fett/Kursiv markiert.

Public Sub generate_zs()
Dim i As Long, x As Long, xx As Long
Dim szDate As Date, sh As Shape
Dim szArch As String, szZugang As String, szEvent As String
Dim x_off As Double
Dim y_off As Double
For i = Sheets(2).Shapes.Count To 1 Step -1
x = Sheets(2).Shapes(i).TopLeftCell.Row
xx = Sheets(2).Shapes(i).TopLeftCell.Column
Sheets(2).Shapes(i).Delete
Sheets(2).Cells(x, xx).Value = ""
Next i
For i = 2 To 10000
If Sheets(1).Cells(i, 2).Value = "" Then Exit For
If Sheets(1).Cells(i, 3).Value  "" Then
szDate = Sheets(1).Cells(i, 2).Value
szArch = Sheets(1).Cells(i, 3).Value
szZugang = Sheets(1).Cells(i, 5).Value
szEvent = Sheets(1).Cells(i, 6).Value
' searching for correct date
For x = 2 To 366
If Sheets(2).Cells(2, x).Value = szDate Then
' searching appropriate row
For xx = 3 To 6
If Sheets(2).Cells(xx, 1).Value = szArch Then
                                  x_off = IIf(szEvent = "Sammeln", Int(2.5 / 0.35), Int( _
2.9 / 0.35))
y_off = IIf(szEvent = "Sammeln", Int(1.75 / 0.35), Int(2.6 /  _
0.35))                                   Set sh = Sheets(2).Shapes.AddShape(IIf(szEvent = "Sammeln", msoShapeDiamond, msoShapeFlowchartOffpageConnector), _
Int(Sheets(2).Cells(xx, x).Left + Sheets(2).Cells(xx, x) _
.Width / 2 - x_off), _
Int(Sheets(2).Cells(xx, x).Top + Sheets(2).Cells(xx, x). _
Height / 2 - y_off), _
IIf(szEvent = "Sammeln", Int(5# / 0.35), Int(5.8 / 0.35) _
), _
IIf(szEvent = "Sammeln", Int(3.5 / 0.35), Int(5.2 / 0. _
35)))
Select Case szEvent
Case "Abgleich"
sh.Fill.ForeColor.RGB = RGB(0, 0, 255)
Case "Sammeln"
sh.Fill.ForeColor.RGB = RGB(255, 255, 0)
Case "Finaltest"
sh.Fill.ForeColor.RGB = RGB(0, 255, 0)
End Select
Sheets(2).Cells(xx, x).Value = szZugang
Exit For
End If
Next xx
Exit For
End If
Next x
End If
Next i
End Sub

Beliebteste Forumthreads (12 Monate)

Grafik an Zelle in Datumspalte anfügen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Grafik an Zelle in Datumspalte anfügen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread