Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Einblenden einer Spalte bei Inhalt

Einblenden einer Spalte bei Inhalt
21.09.2003 18:13:16
Markus
Ich möchte eine ausgeblendete Spalte automatisch einblenden lassen, wenn in einer vorgesehenen Zelle ein Inhalt per Formel gesetzt wird.
Die Spalte soll allerd. ausgeblendet bleiben, wenn sich lediglich die Formel - z.B. =WENN(A1>0;A1;"") - in der Zelle befindet. Wer kann helfen?

Danke vorab!

Gruß Markus

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einblenden einer Spalte bei Inhalt
21.09.2003 18:19:39
Ramses
Hallo

Kopiere den Code in das Klassenmodul der Tabelle wo es funktionieren soll.
Entsprechende Teile bitte anpassen

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
Dim hideC As Integer
hideC = 6 'Spalte F
'Wenn die geänderte Zelle nicht in Spalte E ( = 5 ) liegt
If Target.Column <> 5 Then Exit Sub
'Prüfen ob Formel drin steht
If Target.HasFormula Then
'Spalte einblenden
Columns(hideC).Hidden = False
End If
End Sub


Gruss Rainer
AW: Einblenden einer Spalte bei Inhalt
21.09.2003 19:21:21
Markus
Halle Reiner,

erstmal vielen Dank! Hat aber noch nicht geklappt. Kurz mein Vorhaben:

1) in Tabelle1 befinden sich Eingabefelder + das Feld, das dafür sorgen soll, dass sich in Tabelle2 z.B. mit "x" die betreffende Spalte einblenden soll.

2) in Tabelle2 befinden sich vorgefertigte Tabellen/Spalten, wobei nur die Spalte eingeblendet werden soll, wenn das betroffene Feld in Tab1 markiert wird. Alle anderen sollen ausgeblendet bleiben.

ändert sich dabei vielleicht etwas bei dem code??

hatte das gerade mal versucht. abgeänderter code bei:

formel in E1
Eingabe A1
gewünschtes Ergebins: bei Eingabe "x"; Spalte E ausblenden

code:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim hideC As Integer
hideC = 5 'Spalte E
If Target.Column <> 5 Then Exit Sub
If Target.HasFormula Then
'Spalte einblenden
Columns(hideC).Hidden = False
End If
End Sub


... nicht funktioniert. Falsch, was?

Gruß Markus
Anzeige
AW: Einblenden einer Spalte bei Inhalt
21.09.2003 19:47:53
Ramses
Hallo

tut mir leid.
Aber das übersteigt meinen Zeithorizont, und ohne Tabelle ist da sowieso nix zu machen.

Vorschlage:
Stelle deine Frage erneut ( durch meine Antwort ist deine Frage nicht mehr offen ) und lade eine Beispielmappe mit hoch.
Erkläre sowohl in deiner Frage wie auch in der Tabelle was du genau willst.

Vielleicht kann dir ein anderer helfen.

Gruss Rainer

Gruss Rainer
AW: Einblenden einer Spalte bei Inhalt
21.09.2003 20:00:13
Markus
Hallo,

ist in Ordnung. Dennoch Besten Dank.

Gruß Markus
AW: Einblenden einer Spalte bei Inhalt
21.09.2003 20:18:21
Hajo_Zi
Hallo Markus

Rainer hat schon Recht gehabt eine Tabelle erklärt mehr als Tausend Worte. Du hast jetzt einen neuen Beitrag eröffnet aber nichts neues bekanntgegeben, was nicht schon in diesem Beitrag stand.


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.

Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.


http://home.media-n.de/ziplies/

Anzeige

302 Forumthreads zu ähnlichen Themen


Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
Anzeige

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
Anzeige

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...

Hallo zusammen!
Wenn ich einen bestimmten Eintrag - per VBA - in einer Spalte finden möchte verwende ich der Regel den folgenden Code:
Dim NameSP As Range
Set NameSP = Sheets("Konten").Rows(1).Find( _
What:=Textbox1, _
Lookat:=xlWhole, _
LookIn:=xlValues)
Dim Erfdat...

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige