Ich habe zwei Anliegen:
wenn in A1 der Wert "1" steht und in B1 der Wert "2" steht, dann blende Spalte C aus...
wenn in A1 der Wert "A" steht, dann schreibe in B1 "HALLO"...B1 und A1 sind aber Drop-Down-Listenfelder
Vielen Dank
Torsten
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Or Target.Address(0, 0) = "B1" Then
Application.EnableEvents = False
If [A1] = 1 And [B1] = 2 Then
Columns(3).Hidden = True
Else
Columns(3).Hidden = False
End If
If [B1] = 2 And [A1] = 1 Then
Columns(3).Hidden = True
Else
Columns(3).Hidden = False
End If
If Target = "A" Then [B1] = "Hallo"
Application.EnableEvents = True
End If
End Sub
Gruss RainerDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen