Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Wenn in Zelle B3 bestimmter Text > Spalte ausblend

Wenn in Zelle B3 bestimmter Text > Spalte ausblend
19.06.2015 11:50:19
Werner
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

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn in Zelle B3 bestimmter Text > Spalte ausblend
19.06.2015 11:59:45
Rudi
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

AW: Wenn in Zelle B3 bestimmter Text > Spalte ausblend
19.06.2015 13:17:48
Werner
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

Anzeige
AW: Wenn in Zelle B3 bestimmter Text > Spalte ausblend
19.06.2015 13:24:27
Rudi
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

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

Anzeige
AW: Wenn in Zelle B3 bestimmter Text > Spalte ausblend
19.06.2015 14:06:32
Werner
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

Anzeige
AW: Wenn in Zelle B3 bestimmter Text > Spalte ausblend
19.06.2015 14:10:07
Werner
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

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige