Anzeige
Archiv - Navigation
1428to1432
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

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

334 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige