Thema Datum  Von Nutzer Rating
Antwort
Rot Excel Vba Userform, Zelle Einfärben beim Hinzufügen.
09.11.2022 09:25:10 Günther
Solved
09.11.2022 21:07:59 ralf_b
*****
Solved
10.11.2022 07:34:34 Günther
Solved

Ansicht des Beitrags:
Von:
Günther
Datum:
09.11.2022 09:25:10
Views:
133
Rating: Antwort:
 Nein
Thema:
Excel Vba Userform, Zelle Einfärben beim Hinzufügen.

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Excel Vba Userform, Zelle Einfärben beim Hinzufügen.
09.11.2022 09:25:10 Günther
Solved
09.11.2022 21:07:59 ralf_b
*****
Solved
10.11.2022 07:34:34 Günther
Solved