Zeilen ausblenden/einblenden
31.05.2020 15:02:24
Susanne
erst einmal wünsche ich allen frohe Pfingsten.
Ich bin VBA Anfänger und hoffe hier Hilfe zu finden.
Nach dem öffnen meiner Arbeitsmappe ist die Zelle E10 leer.
Die Zelle E10 wird mit Hilfe eines Droopdown gefüllt. (Auswahl ist: Ja; Nein; Eventuell)
Wenn die Zelle E10 leer ist oder mit "Nein" ausgewählt wird, dann sollen die Zeilen 12:22 ausgeblendet werden/sein.
Ist die Zelle E10 mit "Ja" oder "Eventuell" ausgewählt, dann sollen die Zeilen 12:22 eingeblendet sein.
Der u.g. Coide funktioniert nicht einwandfrei.
Bei meinem Code bekomme ich eine Fehlermeldung, sobald ich die Zelle E10 leere.
Wer kann helfen.
Lg.
Susanne
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1).Address = "$E$10" Then
Rows("12:22").Hidden = Target.Value = ""
Rows("12:22").Hidden = Target.Value = "Nein"
End If
End Sub
Anzeige