Bedingtes Ausblenden von Spalten
Dirk Knobloch
Wie kann ich Spalten bedingt ausblenden:
Bsp.: IF(A1<>B1;Spalte A ausblenden;Spalte A einblenden)
Für schnelle Hilfe wäre ich sehr verbunden, da ich das
Problem bis heute 12.00 Uhr lösen will.
Gruß und besten Dank im Voraus
Dirk Knobloch
Tim Brandt
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub
If Range("B1") <> Range("A1") Then
Columns("A:A").Hidden = True
End If
If Range("B1") = Range("A1") Then
Columns("A:A").Hidden = False
End If
End Sub
--
Gruß aus Brandenburg
Tim Brandt
____________________
Excel 2000 SR-1
"Tim Brandt" <ichbi...@web.de> schrieb im Newsbeitrag
news:OusUwx4wCHA.968@TK2MSFTNGP12...
> Moin Dirk,
>
> 'rechtsklicke' auf das Register des betroffenen Tabellenblattes und wähle
> 'Code Anzeigen'. Füge dann den ug Code ein.
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Address <> "$B$1" Then Exit Sub
> If Range("B1") <> Range("A1") Then
> Columns("A:A").Select
> Selection.EntireColumn.Hidden = True
> End If
> If Range("B1") = Range("A1") Then
> Columns("A:A").Select
> Selection.EntireColumn.Hidden = False
> End If
> End Sub
>
> --
> Gruß aus Brandenburg
>
> Tim Brandt
> ____________________
> Excel 2000 SR-1
>
>
>
> "Dirk Knobloch" <dirk.k...@lexmark.de> schrieb im Newsbeitrag
> news:011001c2c38a$f02e8940$8ef82ecf@TK2MSFTNGXA04...
Tim Brandt
'rechtsklicke' auf das Register des betroffenen Tabellenblattes und wähle
'Code Anzeigen'. Füge dann den ug Code ein.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub
If Range("B1") <> Range("A1") Then
Columns("A:A").Select
Selection.EntireColumn.Hidden = True
End If
If Range("B1") = Range("A1") Then
Columns("A:A").Select
Selection.EntireColumn.Hidden = False
End If
End Sub
--
Gruß aus Brandenburg
Tim Brandt
____________________
Excel 2000 SR-1
"Dirk Knobloch" <dirk.k...@lexmark.de> schrieb im Newsbeitrag
news:011001c2c38a$f02e8940$8ef82ecf@TK2MSFTNGXA04...
Melanie Breden
> > "Dirk Knobloch" schrieb:
> > Frage an die Experten dieser Runde:
> > Wie kann ich Spalten bedingt ausblenden:
> >
> > Bsp.: IF(A1<>B1;Spalte A ausblenden;Spalte A einblenden)
> >
> > Für schnelle Hilfe wäre ich sehr verbunden, da ich das
> > Problem bis heute 12.00 Uhr lösen will.
"Tim Brandt" schrieb:
> ...sorry, geht natürlich wesentlich kürzer:
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Address <> "$B$1" Then Exit Sub
> If Range("B1") <> Range("A1") Then
> Columns("A:A").Hidden = True
> End If
> If Range("B1") = Range("A1") Then
> Columns("A:A").Hidden = False
> End If
> End Sub
die Zellen A1 und B1 können ja auch mit Formel belegt sein. Wenn man nur eine Änderung in der Zelle B1 überwacht erkennt man nicht
deren tatsächlichen Wert.
Ich würde über das WorksheetChange Ereignis den Wert dieser beiden Zellen überprüfen und darauf reagieren:
Private Sub Worksheet_Change(ByVal Target As Range)
Columns(1).Hidden = _
IIf([A1] <> [B1], False, True)
End Sub
mit Gruß
Melanie
____________________
Melanie Breden
[Microsoft MVP für Excel]
Dirk Knobloch
Melanie, danke für Deinen Tipp und willkommen in unserer
Runde ;-)
Ich hatte mich am Anfang nur scheinbar etwas
missverständlich ausgedrückt. Bestimmte Spalten sollen
nicht gleich beim Öffnen der Tabelle ausgeblendet werden.
Mal ganz kurz mein Fall (Tim kennt ihn schon :-)
In einem Feld (F2) kannst Du über ein PullDown einen
bestimmten Monat auswählen. In der gleichen Tabelle
befinden sich u.a. 12 Spalten mit 12 Monaten. Nun soll
nach Auswahl des Monats z.B. Februar in F2 alle
Monatspalten ausgeblendet werden, außer die Monate
Februar, März, April, also immer der gewählte und die
beiden folgenden Monate.
Das ist die Nuss, an der ich heute wie wild knabbere. Das
muss doch zu dritt zu knacken sein, oder?!
Gruß
Dirk
>-----Originalnachricht-----
>.
>
Melanie Breden
sind die Spaltenüberschriften entsprechend der Monate in F2? Oder wäre das machbar?
mit Gruß
Melanie
____________________
Melanie Breden
[Microsoft MVP für Excel]
"Dirk Knobloch" <dirk.k...@lexmark.de> schrieb im Newsbeitrag news:047b01c2c3b5$f5c1c950$cef82ecf@TK2MSFTNGXA08...
Dirk Knobloch
das geht ja richtig fix ;-)
Zur Deiner Frage: Ja.
Willst Du die Datei kurz haben oder soll ich Dir sie kurz
beschreiben?
Gruß
Dirk
>-----Originalnachricht-----
>Hallo Dirk,
>
>.
>
Melanie Breden
ich hätte eine Lösung anzubieten, lade meine Demo Mappe auf meinen Webspace hoch und schicke dir dann den Link.
Du kannst mir deine Datei, (bitte nur das betreffende Blatt) gerne zuschicken. Entferne vorher den NOSPAM aus der Adresse.
mit Gruß
Melanie
____________________
Melanie Breden
[Microsoft MVP für Excel]
"Dirk Knobloch" <dirk.k...@lexmark.de> schrieb im Newsbeitrag news:03ac01c2c3b7$b33b3ab0$8df82ecf@TK2MSFTNGXA02...
Melanie Breden
"Melanie Breden" schrieb:
> ich hätte eine Lösung anzubieten, lade meine Demo Mappe auf meinen Webspace hoch und schicke dir dann den Link.
> Du kannst mir deine Datei, (bitte nur das betreffende Blatt) gerne zuschicken. Entferne vorher den NOSPAM aus der Adresse.
hier der Link zu meiner Demo Mappe:
http://home.arcor.de/melanie_breden/download/Dirk_SpaltenAusblenden.zip
Ich arbeite viel mit Bereichsnamen, wenn du Fragen dazu hast, melde dich hier gerne noch mal.
Viel Erfolg
Dirk Knobloch
in der Demomappe blendet sich bei mir nichts aus.
Wahrscheinlich müsste ich noch was anpassen. Der beste Weg
ist, wenn wir gemeinsam an der Tabelle arbeiten, die ich
Dir zugesandt habe. Wie Du richtigerweise vorgeschlagen
hast - just one thread ;-)
Deine Demomappe hätte mir sicherlich geholfen,
vorausgesetzt, ich könnte das Makro problemlos in meine
Tabelle übertragen. Das kriege ich derzeit aber noch nicht
hin. Ich arbeite daran.
Gruß
Dirk
>-----Originalnachricht-----
>.
>
Melanie Breden
"Dirk Knobloch" schrieb:
>>>
in der Demomappe blendet sich bei mir nichts aus.
Wahrscheinlich müsste ich noch was anpassen. Der beste Weg
ist, wenn wir gemeinsam an der Tabelle arbeiten, die ich
Dir zugesandt habe. Wie Du richtigerweise vorgeschlagen
hast - just one thread ;-)
Deine Demomappe hätte mir sicherlich geholfen,
vorausgesetzt, ich könnte das Makro problemlos in meine
Tabelle übertragen. Das kriege ich derzeit aber noch nicht
hin. Ich arbeite daran.
>>>
setzte im Makro in der ersten Zeile einen Haltepunkt, wähle dann im Dropdownfeld einen anderen Monat aus.
Wechselt das Fenster zum VB Editor?
Bei mir funzt es einwandfrei.
Ich will dir *deine* Tabelle ja nicht basteln, sondern dir Wege aufzeigen wie das selbst bewerkstelligen kannst ;-))
Dirk Knobloch
finde ich gut, dass Du mir die Sache wirklich beibringen
willst, da ich es auch in Zukunft richtig gut gebrauchen
könnte. Nur, wie setze ich einen Haltepunkt in ein Makro?
Hoffentlich bist Du jetzt nicht völlig deprimiert von
meinen VBA-Kenntnissen.
Gruß
Dirk
>-----Originalnachricht-----
>.
>
Dirk Knobloch
habe den Haltepunkt in die erste Zeile Deines Makros
gesetzt und den Monat dann in F2 geändert. Bei mir
passiert nichts. Weder blendet er irgendwas aus noch
springt er zum VB Editor. Irgendwas ist bei noch anders
als bei Dir, aber wie man einen Haltepunkt setzt weiss ich
jetzt. Ist nicht die Lösung, aber Du siehst, ich bemühe
mich, mit Dir mitzuhalten.
Gruß
Dirk
>-----Originalnachricht-----
>.
>
Melanie Breden
"Dirk Knobloch" schrieb:
>>>>
habe den Haltepunkt in die erste Zeile Deines Makros
gesetzt und den Monat dann in F2 geändert. Bei mir
passiert nichts. Weder blendet er irgendwas aus noch
springt er zum VB Editor. Irgendwas ist bei noch anders
als bei Dir, aber wie man einen Haltepunkt setzt weiss ich
jetzt. Ist nicht die Lösung, aber Du siehst, ich bemühe
mich, mit Dir mitzuhalten.
>>>
macht Spaß zu lernen, gell ;-)
Wie reagiert das Makro wenn du eine andere Zelle änderst?
Wenn das Ereignismakro überhaupt nicht angestossen wird, liegt es evtl. daran, dass du Makros deakiviert hast?
Welche Excel-Version verwendest du?