Füllfarbe per Zufall auswählen
webdepp
ich habe ein kleines Problem. Und zwar füge ich über VBA gesteuert Daten in ein Excelblatt ein. Die Daten werden immer in der gleichen Spalte geschrieben und er nimmt für die nächsten Daten immer nur eine neue Zeile. Die Zelle fülle ich mit einer Hintergundfarbe.
Jetzt kommt der Haken, ich möchte die Füllfarbe der Zelle per Zufall auswählen lassen, bzw als zweite Möglichkeit soll er aus eine Liste von vorgebenen Farben per Zufall eine auswählen. Doppellte Farben dürfen nicht vorkommen. Kann mir da jmd helfen?
Wenn ich vllt noch die Zellenhöhe irgendwie in CM angeben könnte wäre das super. Aber wichtiger ist die Farbe.
Vielen Dank
webdepp
Private Sub Start_Click()
Dim v_lpar, v_cpu, i, z, v_lastrow As Integer
Dim v_ram_mb As Long
Dim v_ram_gb As Double
Dim v_suche_1, v_suche_2 As String
suchspalte = 4
i = 6
'ermmiteln der ersten leere Zelle
For z = 8 To 34
If Sheets("HW_SMI").Cells(z, 4) = "" Then
Exit For
End If
Next z
'Schleife für alle Suchwörter
For suchzeile = 8 To z
'Festlegung Suchwort
v_suche_1 = Sheets("HW_SMI").Cells(suchzeile, suchspalte).Value
'Prüfung ob Suchwort dem vorher gehenden entspricht
If v_suche_1 v_suche_2 Then
'Berechnung Werte nach Suchwort
v_lpar = WorksheetFunction.CountIf(Sheets("HW_SMI").Range("D8:D34"), v_suche_1)
v_cpu = WorksheetFunction.SumIf(Sheets("HW_SMI").Range("D8:AC34"), v_suche_1, _
Sheets("HW_SMI").Range("T8:T34"))
v_ram_mb = WorksheetFunction.SumIf(Sheets("HW_SMI").Range("D8:AC34"), v_suche_1, _
Sheets("HW_SMI").Range("Z8:Z34"))
v_ram_gb = Round((v_ram_mb / 1024), 2)
'Schreiben der Daten in Zelle
Sheets("Grafik_Koeln").Cells(i, 1) = "Lpar: " & v_lpar & " / CPU: " & v_cpu & _
" / RAM: " & v_ram_gb
'Zellenformatierung
'Zeilenhöhe
Sheets("Grafik_Koeln").Rows(i).RowHeight = 15 * v_lpar
'Anordnung Text
Range("A" & i).Select
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
'Füllfarbe
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlTop
End With
v_suche_2 = v_suche_1
i = i + 1
End If
Next suchzeile
End Sub