Hallo Leute,
sitze hier mal wieder am Sonntag für die Arbeit bissl vorm Rechner und könnte ein paar Ratschläge gebrauchen, da ich net so der Crack im VBA bin.
Habe für eine Visualisierung mehrere Bilder mit über 200 Objekten die ich über Scripts verarbeiten will.
Durch Klick auf ein Objekte soll dieses sich grün färben, das funktioniert auch so weit gut.
Will bloss nicht in jedem Bild pro Objekt 30 Zeilen eintragen.
Private Sub Sensor1_Click()
user.sensor.CurrentValue = Variable_Gas1.CurrentValue
user.Sensortyp.CurrentValue = "Gas"
Sensor1.BackDropVisible = False
Sensor2.BackDropVisible = False
Sensor3.BackDropVisible = False
...
...
...
Sensor30.BackDropVisible = False
Sensor1.BackDropVisible = True
KAL_Umwandlung
End Sub
VBA Version 6.3
Ich möchte gerne die Zahl hinter "Sensor" eigentlich mit einer Schleife aufbauen aber bis Dato sind alle Versuche fehlgeschlagen.
Danke im voraus
Gruss Nils
|