Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

VBA Schleife mit verschiedenen Werten
#1
Hi zusammen 


Ich arbeite an einem VBA Script bei dem ich eure Hilfe brauche.
Leider klemmt es gerade an den Grundlagen:

Ich habe Werte z.b.

111/5855577
112/5855577
113/5855577
114.0/5855577
114.1/5855577
115/5855577
116/5855577
171/9279917
172/8498133
...

Ich möchte diese Angaben in einer Schleife nutzen und in jedem weiteren Vorgang soll in der Schleife das nächste "Wertenpaar" eingesetzt werden.
Das Script sieht so aus das nach dem Wert 111 gesucht wird und Die Formatierung mit dem Farbcode 5855577 eingefärbt wird, im nächsten Vorgang wird nach 112 gesucht und 58555 eingesetzt usw.

Da ich das Script nicht in Excel nutzt sondern in MS Project kann ich mich nicht auf Zellen beziehen sondern muss die Werte im Script selber hinterlegen..
Huh

Der Komplette Code sieht so aus:
Code:
Sub BalkenFärben()

   Dim Wert, Inhalt As String
   
   For i = 1 To 25
   Wert = "232.0"
   
   SelectRange Row:=i + 1, Column:=4, RowRelative:=False
   Inhalt = ActiveCell
   
   If Wert = Inhalt Then MsgBox ActiveCell
   If Wert = Inhalt Then GanttBarFormatEx MiddleShape:=1, MiddlePattern:=1, MiddleColor:=8498133
   
   Next i

End Sub
es werden in der Spalte 4 in einer Zeile nach der Anderen nach dem Wert "232.0" gesucht und mit 8498133 eingefärbt.
Bis dahin läuft auch alles, jetzt sollte jedoch nicht nur nach "232.0" sonder nach ca. 250 verschiedenen Werten Gesucht und mit den dazugehörigen Farben umgefärbt werden..

Ich bin Dankbar um jede Hilfe :)
Antworten Top
#2
Hallöchen,

Du könntest die Werte in einem Array hinterlegen.
Im Prinzip so - ich gehe jetzt mal davon aus, dass Deine Schleife … To 25 eigentlich To 250 sein sollte?

Code:

arrDaten(0,0) = 111: arrDaten(0,1) = 123456
arrDaten(1,0) = 112: arrDaten(1,1) = 223456
arrDaten(2,0) = 111: arrDaten(2,1) = 123456

arrDaten(250,0) = 111: arrDaten(250,1) = 993456

For iCnt1 = 0 to 250
    …
    If arrDaten(iCnt1,0) = Inhalt Then
       MsgBox ActiveCell
       GanttBarFormatEx MiddleShape:=1, MiddlePattern:=1, MiddleColor:=arrDaten(iCnt1,1)
   End If
    …
Next
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
[-] Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:
  • Zeichner
Antworten Top
#3
Hi André
Vielen dank für deine Hilfe :D
Funktioniert genau so wie es sollte :)

Ich wünsche dir ein schönes Wochenende
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste