|
Schön Guten Tag.
Ich versuche mit einer Userform beim Hinzufügen die Spalte "Geräte Nr" Einzufärben mit dem Begriff von Status. Ich weiß zwar wie man an sich spalten einfärbt aber da ich schon mit bestehenden werte wie "Geräte Nr" arbeiten möchte ich den wert suchen und daneben eintragen was wunderbar klappt nur leider weiß ich nicht wie er im selben Moment mit dem Begriff von Status die Zelle, die ich gesucht habe, einfärbt
z. B. ich möchte jetzt "PC-0007" Hinzufügen und im Status steht Recycelt, möchte ich, wenn Recycelt steht das er die Zelle "PC-0007" dann Rot färbt und wenn verkauft steht möchte ich dann das er die Zelle Grün macht und so weiter.
Es wäre schön wenn mir da jemand weiter helfen könnte, ansonsten bedanke ich mich schon mal.
| Geräte Nr: |
Bezeichnung: |
Status: |
Datum: |
| PC-0001 |
Dell |
Verkauft |
09.11.2022 |
| PC-0002 |
Lenovo |
Aufgenommen |
08.11.2022 |
| PC-0003 |
JP |
Recycelt |
05.10.2022 |
| PC-0004 |
|
|
|
| PC-0005 |
|
|
|
| PC-0006 |
|
|
|
| PC-0007 |
|
|
|
| PC-0008 |
|
|
|
| PC-0009 |
|
|
|
Mein Code für Suchen und Hinzufügen, ich bräuchte jetzt nur noch, das er auch Die Zelle Geräte Nr. einfärbt, mit dem Begriff von Status.
Private Sub Hinzufügen_Click()
Dim GNR As Range
'suche nach GeräteNr
With ActiveWorkbook.Worksheets("Lagerbestand")
Set GNR = .Range("C9:C1008").Find(What:=EGeräteNr, LookIn:=xlValues, Lookat:=xlWhole)
If Not GNR Is Nothing Then
'wenn gefunden Werte eintragen
GNR.Offset(0, 1).Value = Bezeichnung
GNR.Offset(0, 2).Value = Status
GNR.Offset(0, 3).Value = Datum
End If
If GNR = EGeräteNr Then
GNR.Select
End If
End With
End Sub
|