ich bastele für mich grade an einer Makro, die mir einen Vergleich von Daten innerhalb eines Arbeitsblatts ermöglichen soll.
Es geht um folgendes:
Ich habe eine Makro, die zwei Zellwerte miteinander vergleicht und je nach Ergebnis eine rote oder grüne Ampel in eine Zelle neben den kontrollierten Zellwert kopiert.
Nun möchte ich diese Makro so ausweiten, dass zusätzlich noch ein dritter Wert mit der Zelle verglichen wird und bei eintreten des vorgegebenen Zellwerts somit eine dritte Ampel kopiert werden kann. Das muß doch über einen erneuten Aufruf einer If-Else-Schleife geschehen, oder?
Die unten stehende Makro vergleicht natürlich nur zwei Zellwerte miteinander, die neue Makro soll prüfen, ob der Wert in einem statische Drittel (1 Ich bin leider nicht so der Held in VBA, deswegen wäre ich über jede Hilfe äußerst dankbar. Rückmeldung garantiert, allerdings frühestens morgen, leider.
Gruß Michael
Die originale Makro sieht so aus:
Sub ampeln1()
Range("C5").Activate
Dim x, y, blanks As Long
Do Until ActiveCell.Value = "wechsel"
If ActiveCell.Value = "Standort xx" Or ActiveCell.Value = "" Then
ActiveCell.Offset(1, 0).Activate
Else
x = ActiveCell.Value
y = ActiveCell.Offset(0, 1).Value
If x > y Then
ActiveSheet.Shapes("Gruppierung2").Select
Selection.Copy
ActiveCell.Offset(0, 4).Select
ActiveSheet.Paste
Selection.ShapeRange.IncrementTop 3
Selection.ShapeRange.IncrementLeft -37
ActiveCell.Offset(0, -4).Select
Else
ActiveSheet.Shapes("Gruppierung1").Select
Selection.Copy
ActiveCell.Offset(0, 4).Select
ActiveSheet.Paste
Selection.ShapeRange.IncrementTop 3
Selection.ShapeRange.IncrementLeft -12
ActiveCell.Offset(0, -4).Select
End If
ActiveCell.Offset(1, 0).Activate
End If
Loop
End Sub