Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1324to1328
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1324to1328
1324to1328
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausblenden von Spalten bei Ereignis

Ausblenden von Spalten bei Ereignis
12.08.2013 05:25:16
Spalten
Hallo Leute,
zerbreche mir gerade wieder mal den Schädel, evtl. liegt es an der frühen Morgenstunde...
Ich möchte in einem Tabellenblatt bei Eintreten einer Bedingung zwei Zeilen ausgeblendet haben. So weit so gut, habe es über Worksheet Change hinbekommen:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.ScreenUpdating = False
If Range("aa5").Value = "ausblenden" Then
Range("14:15").EntireRow.Hidden = True
Else
Range("14:15").EntireRow.Hidden = False
End If
Application.ScreenUpdating = True
End Sub
Problem nur, dass das betreffende Tabellenblatt recht viele bedingte Formatierungen besitzt. Daher ist die Datei auf Workstations recht lahm. Um nicht bei jedem Klick auf dem Tabellenblatt den Code durchlaufen zu lassen, wollte ich es eingrenzen.
Hat jemand eine Idee, warum hier gar nichts funzt?
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.ScreenUpdating = False
If Target.Column = 16 And Target.Row = 13 And Target.Column = 25 And Target.Row = 13 Then
Sheets("Erfassung").Activate
Range("aa5").Select
Select Case ActiveCell.Value
Case "ausblenden"
Range("14:15").EntireRow.Hidden = True
Case "nicht ausblenden"
Range("14:15").EntireRow.Hidden = False
End Select
End If
Application.ScreenUpdating = True
End Sub
Danke Euch schon einmal für Eure Hilfe, bin selber schon echt betriebsblind.
Liebe Grüße
Ron

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausblenden von Spalten bei Ereignis
12.08.2013 07:13:11
Spalten
Moin Ron
Mit and geibst du als bedingung an Und, also deine Zeile:
If Target.Column = 16 And Target.Row = 13 And Target.Column = 25 And Target.Row = 13 Then
Heisst: Wenn Spalte = 16 und Zeile = 13 und Spalte = 25 und Zeile =13.
Tritt wohl nie auch denn es muss in beiden Spalten sich was aendern.
Versuch mal:
if Target.Row = 13 and Target.Column = 16 or Target.Column = 25
grusss hary

AW: Nochmal
12.08.2013 07:55:43
hary
Moin Ron
Ist fuer mich auch zu Frueh. Mal abgesehen von den Schreibfehlern.
Hier mal der ganze Code, ich weiss nicht in welchem Blatt du ausblenden moechtest. 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Set wks1 = Worksheets("Erfassung")
Set wks2 = Worksheets("Name") ' fuer Name, Name des Blattes wo ausgeblendet werde soll
If Target.Row = 13 And Target.Column = 25 Or Target.Column = 16 Then
Application.ScreenUpdating = False
Select Case wks1.Range("aa5")
Case "ausblenden"
wks2.Range("14:15").EntireRow.Hidden = True
Case "nicht ausblenden"
wks2.Range("14:15").EntireRow.Hidden = False
End Select
End If
Application.ScreenUpdating = True
End Sub

gruss hary

Anzeige
AW: Ausblenden von Spalten bei Ereignis
12.08.2013 18:56:41
Spalten
Hallo Harry,
ja das "Ding" läuft. Jedoch habe ich das Gefühl, dass egal wo ich auf dem Blatt arbeite, der Skript anläuft. Auf dem PC ist das kein Ding, jedoch reagieren die dummen Clients darauf immer etwas langsam. Nehme ich den Skript raus, ist alles gut. Da das Ereignis auf einem Blatt abläuft habe ich Deinen Vorschlag wie folgt geändert (sorry heute morgen war da noch ein Bock drin, Ereignis soll nur laufen, wenn i13 und r13 geklickt werden):
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim wks1 As Worksheet
Set wks1 = Worksheets("Erfassung")
If Target.Row = 13 And Target.Column = 18 Or Target.Column = 9 Then
Application.ScreenUpdating = False
Select Case wks1.Range("aa5")
Case "ausblenden"
wks1.Range("14:15").EntireRow.Hidden = True
Case "nicht ausblenden"
wks1.Range("14:15").EntireRow.Hidden = False
End Select
End If
Application.ScreenUpdating = True
End Sub
Hast Du noch ne Idee?
Grüße
Ron
Anzeige

301 Forumthreads zu ähnlichen Themen

Zelle nichtleer, dann Spalten ausblenden
kellerkind42

hallo.
Ich tue mich sehr schwer mit folgendem Wunsch:
Im Spaltenbereich A-Z:
Im Zeilenbereich 10 -20:
z.B:
Steht in Spalte C etwas in Zeile 10 oder 11 oder 12.... dann Blende diese Spalte aus!
Kann mir bitte jemand auf die Sprünge helfen?
Gruß Reinhardt.
20.08.2008 07:29:00
Thread-ID: 1003062
6 Beiträge
Anzeige
Bei Eintrag in eine Zeile Spalten ein/ausblenden
Matthias

Guten Morgen,
ich bräuchte mal wieder Hilfe :/ Mein Excelhorizont ist stark begrenzt und habe ein für mich unlösbares Problem, da ich keinerlei VAB-Kenntnisse habe. Ich bräuchte eine Lösung für folgende Problemstellung.
Wenn im Feld A50 irgendetwas steht, dann sollen Zeile 22-24 eingeb...
09.10.2008 07:54:00
Thread-ID: 1015202
6 Beiträge
Fehlermeldung beim Ausblenden von vielen Spalten
vielen

Hallo,
ich muß in einer Tabelle ziemlich viele Infos über sehr viele Spalten einfügen (es reicht bis Spalte FM) und erst danach kann ich in den anschließenden Spalten das ausweisen was ich möchte. Deswegen
möchte ich die Spalten B bis FM gruppieren und einklappen (sprich ausblenden).
16.10.2008 17:14:44
Thread-ID: 1016924
7 Beiträge
Anzeige
Makro zum Befüllen von Spalten aus einer 2. Datei
Spalten

Hallo zusammen,
wurde leider wieder von eine Aufgabe gestellt, die meine beschränkten Makro Fähigkeiten ziemlich ausreizt.
Ich habe eine ziemlich große xls Datei (>100 Spalten), die für den Export in mehrere txt.Dateien für eine Fremdsoftware Schnittstelle benötigt wird.
Nun wu...
18.11.2008 09:39:00
Thread-ID: 1025506
3 Beiträge
Bestimmten Zellenwert ausblenden VBA
Alex

Guten Morgen Liebe Excelisten,
ich bräuchte mal Eure hilfe, unzwar bräuchte ich ein Formel/VBA die mir auf dem Tabellenblatt z.B. Urlaub die Kürzungen F,S und AS ausblendet, sie sollten nicht gelöscht werden sondern nur nicht mehr angezeigt werden. zum beispiel in einer anderen schriftfarbe...
20.11.2008 07:19:09
Thread-ID: 1026287
4 Beiträge
kopieren/filtern von x-Spalten in x-Blättern
x-Spalten

So, anderes Thema:
Ich habe eine Arbeitsmappe mit verschiedenen Arbeitsblättern, diese Arbeitsblätter sind von der struktur her alle gleich aufgebaut, nur der Inhalt unterscheidet sich voneinander.
Ich möchte jetzt eine Auflistung generieren, die mir auf dem letzten Blatt der Arbeitsmap...
22.11.2008 16:34:00
Thread-ID: 1026984
16 Beiträge
Alle anderen Spalten ausblenden!
lisa

Hallo zusammen
Ich habe ein Macro aufgezeichnet, mit dem ich in der Tabelle 3 Spalte E filtere.
Ich suche nun eine möglichkeit alle anderen Spalten auszublenden!
Hat hierzu jemand eine Idee?
Private Sub CommandButton2_Click() Sheets("Tabelle3").Select Selection.AutoFilter Fie...
04.12.2008 17:16:32
Thread-ID: 1030239
20 Beiträge
Ausblenden von Linien und Blockpfeilen
Linien

Hallo zusammen!
Eine Frage:
Wie ich Drop-Down Felder und Buttons per VBA ausblenden kann ist mir bekannt:
ThisWorkbook.Worksheets("Tabelle1").Shapes("Dropdown 1").Visible = False '(DropDown-Feld)
Sheets("Tabelle1").Buttons(1).Visible = False...
22.01.2009 14:59:32
Thread-ID: 1042643
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
1
5
6
2
2
3
15
19
3
2
2
1
4
1
13
3
2
6
8
7
3
4
3
2