Inhalt einer Zelle aus und einblenden und dann UserForm starten

[biosprofi]

Hallo liebe Excelprofis,

ich habe ein Problem, ich möchte folgendes machen.

Wenn in Zelle C8 das Wort Ja steht möchte ich gerne das die Zellen E8 und K8 leer bleiben.

Wenn aber in Zelle C8 ein Nein steht dann möchte ich das in Zelle E8 ein Text eingeblendet wird sowie das sich eine UserForm öffnet.

Es wäre schön wenn Ihr mir da helfen könntet.

Für Eure Hilfe sage ich schon mal danke.

Liebe Grüsse

[Werner.M]

Hallo,

du sprichts von Ein-/Ausblenden. Das geht mit einzelnen Zellen nicht. Man könnte aber die Schriftfarbe auf die Hintergrundfarbe setzen und wieder zurück.
Teste mal:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim loFarbe1 As Long, loFarbe2 As Long

If Target.Address(0, 0) = "C8" Then
   If Not Target Is Nothing Then
       If UCase(Target.Value) = "JA" Then
           loFarbe1 = Target.Offset(, 2).Font.Color
           loFarbe2 = Target.Offset(, 8).Font.Color
           Target.Offset(, 2).Font.Color = Target.Offset(, 2).Interior.Color
           Target.Offset(, 8).Font.Color = Target.Offset(, 8).Interior.Color
       ElseIf UCase(Target.Value) = "NEIN" Then
           Target.Offset(, 2).Font.Color = loFarbe1
           Target.Offset(, 8).Font.Color = loFarbe2
           UserForm1.Show
       End If
   End If
End If
   
End Sub

Der Code gehört ins Codemodul des Arbeitsblattes, auf dem er sich auswirken soll.
Rechtsklick auf den Tabellenblattreiter - Code anzeigen - Code rechts ins Codefenster kopieren

Gruß Werner

[biosprofi]

Vielen Dank, ich werde es mal ausprobieren.