Wenn in Zelle B3 bestimmter Text > Spalte ausblend

Bild

Betrifft: Wenn in Zelle B3 bestimmter Text > Spalte ausblend
von: Werner
Geschrieben am: 19.06.2015 11:50:19

Hallo Zusammen
ich habe ein Template, dass "mehrsprachig" erstellt ist.
In Spalte D ist der Deutsche Text, in Spalte E der Englische Text.
Jetzt möchte ich gern, dass der User in der Zelle B3
per Gültigkeitsliste auswählt, welche Spalte eingeblendet
werden soll.
Wählt er "DE", dann die Spalte D einblenden und E ausblenden
Wählt er "EN", dann die Spalte D ausblenden und E einblenden
Ist das irgendwie möglich ?
Freu mich auf einen Tipp
Gruss
Werner

Bild

Betrifft: AW: Wenn in Zelle B3 bestimmter Text > Spalte ausblend
von: Rudi Maintaire
Geschrieben am: 19.06.2015 11:59:45
Hallo,

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$B$3" Then
    Columns("D").Hidden = Not Target = "DE"
    Columns("E").Hidden = Not Target = "EN"
  End If
End Sub

Gruß
Rudi

Bild

Betrifft: AW: Wenn in Zelle B3 bestimmter Text > Spalte ausblend
von: Werner
Geschrieben am: 19.06.2015 13:17:48
Hallo Rudi
DANKE funktioniert ...
Ich wollte das noch erweitern um
Ist Zelle B3 leer, dann beide Spalten anzeigen
Mein Versuch mit

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$B$3" Then
    Columns("D").Hidden = Not Target = "DE"
    Columns("E").Hidden = Not Target = "EN"
>>>    Columns("D", "E").Show = Not Target = ""
  End If
End Sub

funzt nicht
Das geht doch sicher auch ?! ;)
Gruss
Werner

Bild

Betrifft: AW: Wenn in Zelle B3 bestimmter Text > Spalte ausblend
von: Rudi Maintaire
Geschrieben am: 19.06.2015 13:24:27
Hallo,

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$B$3" Then
    Columns("D").Hidden = Not (Target = "DE" Or Target = "")
    Columns("E").Hidden = Not (Target = "EN" Or Target = "")
  End If
End Sub
Gruß
Rudi

Bild

Betrifft: AW: Wenn in Zelle B3 bestimmter Text > Spalte ausblend
von: Werner
Geschrieben am: 19.06.2015 13:38:56
woow
... Danke Rudi
ich glaub, ich werde mich jetzt mal etwas intensiver mit VBA beschäftigen
BG u SW
Werner

Bild

Betrifft: AW: Wenn in Zelle B3 bestimmter Text > Spalte ausblend
von: Werner
Geschrieben am: 19.06.2015 14:06:32
Hallo Rudi
doch noch ne Rückfrage:
wenn ich statt der "starren" Zelladresse B3
auf einen benannten Bereich
B3 wäre dann z.B. der Name "Sprache"
verweise,
wie müsste dann der Code lauten
Mein Versuch mit
If Target.Address = "Sprache" Then
funzt nicht
Gruss
Werner

Bild

Betrifft: AW: Wenn in Zelle B3 bestimmter Text > Spalte ausblend
von: Werner
Geschrieben am: 19.06.2015 14:10:07
Habs selber gefunden :)

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = Range("Sprache").Address Then '
    Columns("D").Hidden = Not (Target = "DE" Or Target = "")
    Columns("E").Hidden = Not (Target = "EN" Or Target = "")
  End If
End Sub


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Wenn in Zelle B3 bestimmter Text > Spalte ausblend"