Shape Balken nach Kriterien Setzen

Forumthread: Shape Balken nach Kriterien Setzen
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Shape Balken nach Kriterien Setzen

06.10.2021 16:04:30

Alex

Hallo ist es möglich, dass man Shape Balken zu Spalte und Zeile so setzt wie man Kriterien setzt?
So das sich aus der Spalte und Zeile ein Fadenkreuz ergibt und die gewünschte Zelle im Target ist.
Beispiel:
https://www.herber.de/bbs/user/148462.xls

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: nachgefragt ...

06.10.2021 16:12:45

neopa
AW: nachgefragt ...

06.10.2021 16:22:17

Alex
AW: Shape Balken nach Kriterien Setzen

06.10.2021 17:00:36

Beverly
AW: Shape Balken nach Kriterien Setzen

06.10.2021 17:08:40

Alex

AW: nachgefragt ...

06.10.2021 16:12:45

neopa

Hallo Alex,
... bedingter Formatierung reicht Dir nicht? Damit ist es einfach möglich.
Gruß Werner
.. , - ...

AW: nachgefragt ...

06.10.2021 16:22:17

Alex

so wäre es halt besser (schöner) für die Show :)

AW: Shape Balken nach Kriterien Setzen

06.10.2021 17:00:36

Beverly

Hi Alex,
das geht z.B. mit folgendem Makro:


Sub Fadenkreuz()
Dim rngZeile As Range
Set rngZeile = Columns(1).Find(Range("Q2"), lookat:=xlWhole)
If Not rngZeile Is Nothing Then
With ActiveSheet.Shapes("Rounded Rectangle 1")
.Top = rngZeile.Top
.Left = Columns(1).Left
End With
End If
If IsNumeric(Range("S2")) Then
If Range("S2")