Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
23.04.2024 14:07:03
Alternative Summewenn für Verlinkung closed Workbook
23.04.2024 13:44:37
Datum in Excelformel anzeigen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1412to1416
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
1412to1416
1412to1416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bitte Hilfe! Spalten mit VBA ausblenden--)

Bitte Hilfe! Spalten mit VBA ausblenden--)
05.03.2015 15:41:07
Alicia
Hallo Zusammen, brauche sehr Ihre Hilfe!
Bin total verzweifelt, da ich kein VBA kann --(
Habe folgendes Problem: ich erstelle gerade ein GuV-Bericht in Excel 2007 für die einzelnen Kostenstellen. Es gibt jeweils für jede Kostenstelle 3 Spalten (nicht neben einander) IST/PLAN/DELTA. Mit Dropdown-Menü wähle ich in A3 eine Kostenstelle aus und mit Wenn-formel in F1:BC1 zeige ich mit einer 1 (sonst 0) welche 3 Spalten er für diese Kostenstelle zeigen soll; die restlichen Spalten in diesem Bereich müssen ausgeblendet werden. Können Sie mir bitte mit VBA-Code helfen?
Wäre sehr dankbar!
LG Alicia

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bitte Hilfe! Spalten mit VBA ausblenden--)
05.03.2015 16:06:56
Michael
Hallo Alicia!
Soweit ich Dich verstanden habe: dieses Makro blendet alle Spalten im Bereich F:BC aus, die in Zeile 1 KEINE "1" stehen haben, außer A3 ist leer, dann werden alle Spalten im Bereich wieder eingeblendet.
Sub AusblendenNachKostenstelle()
Dim i As Byte
Select Case Tabelle1.Cells(3, 1).Value
Case Is = ""
Tabelle1.Columns.Hidden = False
Case Else
For i = 6 To 55
If Not Tabelle1.Cells(1, i).Text = 1 Then
Tabelle1.Columns(i).EntireColumn.Hidden = True
End If
Next i
End Select
End Sub
Passt?
Lg
Michael

AW: Bitte Hilfe! Spalten mit VBA ausblenden--)
05.03.2015 16:07:41
Klexy
Lad doch eine Beispieldatei hoch, damit man sich das vorstellen kann. Vor allem "Wenn-formel in F1:BC1" ist nicht zu verstehen.

Anzeige
AW: Bitte Hilfe! Spalten mit VBA ausblenden--)
06.03.2015 09:10:56
Alicia
Hallo Klexy,
mir wurde schon geholfen. Ich danke dir vielmals für deine Rückmeldung!
LG
Alicia

AW: Bitte Hilfe! Spalten mit VBA ausblenden--)
05.03.2015 16:29:39
EtoPHG
Hallo Alicia,
Öffne den VBE mit Alt-F11
Doppelklick das Tabellenblatt im Projekt-Explorer des VBE
Kopiere diesen Code in das leere Codefenster: 
Option Explicit
Private Sub Worksheet_Calculate()
Dim rC As Range
Application.ScreenUpdating = False
For Each rC In Range("F1:BC1")
rC.EntireColumn.Hidden = IIf(rC = 1, False, True)
Next rC
Application.ScreenUpdating = True
End Sub

Schliesse den Editor. Ab jetzt sollte alles automatisch laufen.
Gruess Hansueli

Anzeige
AW: Bitte Hilfe! Spalten mit VBA ausblenden--)
06.03.2015 09:09:38
Alicia
Hallo Hansueli,
vielen vielen Dank!!! Funktioniert einwandfrei! LG. Alicia

AW: Bitte Hilfe! Spalten mit VBA ausblenden--)
06.03.2015 09:10:19
Klexy
Wenn das die richtige Deutung von Alicias Beschreibung ist, dann fehlt noch eine Zeile im Code (fett), damit man ihn nicht nur 1x verwenden kann, sondern öfter, wenn man in A3 was anderes auswählt. 

Private Sub Worksheet_Calculate()
Dim rC As Range
Application.ScreenUpdating = False
Range("F:BC").EntireColumn.Hidden = False
For Each rC In Range("F1:BC1")
rC.EntireColumn.Hidden = IIf(rC = 1, False, True)
Next rC
Application.ScreenUpdating = True
End Sub
Nicht verkehr wäre auch ein extra Makro, das nur die Ausblendung aufhebt: 

Private Sub Worksheet_Calculate_2()
Range("F:BC").EntireColumn.Hidden = False
End Sub

Anzeige
AW: Bitte Hilfe! Spalten mit VBA ausblenden--)
06.03.2015 09:16:53
Alicia
Danke schön, das war sehr hilfreich!

überflüssige Codezeile
06.03.2015 09:27:52
EtoPHG
Hallo Klexy,
Jetzt musst du nur noch erklären: damit man ihn nicht nur 1x verwenden kann
Der Code läuft jedes mal bei einer Neuberechnung des Blatts automatisch ab, also nicht nur 1x!
Alles Einzublenden (deine Ergänzung) und dann wieder alles Auszublenden und nur die Spalten mit 1 Einzublenden (meine Codezeile im For each), ist irgendwie sinnfrei.
Ich sehe weder ein Bedürfnis für deine zusätzliche Codezeile, noch erkenne ich den Sinn des Extra-Makros. Wann/wie soll den das Extra ablaufen?
Gruess Hansueli

Anzeige
AW: überflüssige Codezeile
06.03.2015 14:55:56
Klexy
Hast recht.
Ich hab das "IIf" übersehen. Das kannte ich gar nicht.
Aber das extra Makro ist trotzdem sinnvoll, wenn man mal wieder die ganze Liste sehen will, zur Bearbeitung oder so - ich weiß ja nicht, was damit gemacht wird. Ich hab so ein Makro immer in vergleichbaren Fällen.

305 Forumthreads zu ähnlichen Themen

Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Anzeige
Register ein- und ausblenden
HaKa

Hallo Forum
Wie lautete der VBA-Code um z.B. das Register "Tabelle3" aus-, resp. wieder einzublenden?
Gruss Heinz
14.09.2008 15:40:00
Thread-ID: 1009597
5 Beiträge
Spalten ein und ausblenden
Marion65

Hallo zusammen, ich habe hier eine ExcelTabelle welche zum Ein- und Ausblenden der Spalten kleine + bzw. - Zeichen hat. Wie kann ich diese selber erstellen? Vielen Dank, Marion. https://www.herber.de/bbs/user/55401.xls
15.09.2008 20:09:56
Thread-ID: 1009885
4 Beiträge
Anzeige
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
VBA, Notiz ein- und wieder ausblenden
Burghard

Hallo ins Netz,
ich möchte mit Knopfdruck ein Textfeld (mit Inhalt, es existiert schon) oder ein Autoformat (z.B. Gefaltete Ecke) auf dem Blatt an einer bestimmten Stelle für 1 Minute plazieren und danach soll es wieder verschwinden. Also kopieren und dann automatisch die Kopie wieder lösc...
01.12.2008 09:08:18
Thread-ID: 1029158
2 Beiträge
Commandbutton ein und ausblenden
SoulOpa

Hallo und einen schönen Abend,
ich habe eine Frage! und zwar habe ich ein Commandbutton in der Userform erstellt so das der Commandbutton beim Tabellenblatt beim scrollen immer sichtbar ist. Nun würde ich gerne wenn ich die Mappe zwischendurch verlass das der Button verschwindet und wenn ic...
23.01.2009 17:50:27
Thread-ID: 1043094
5 Beiträge
Zeilen Ein. und Ausblenden
KayR

Hallo,
würde gerne folgendes realisieren, hab aber von VBA
kaum Ahnung.
Wenn Tabelle2!A8 = FALSCH, dann sollen in Tabelle1 die
Zeilen 8,9,10 ausgeblendet werden.
Wenn Tabelle2!A8 = WAHR, dann sollen die Zeilen 8,9,10
wieder eingeblendet werden.
Kann mir jemand bitte...
27.01.2009 20:09:00
Thread-ID: 1044366
6 Beiträge
Ein-/Ausblenden v. Arbeitsblättern mit VBA
Lenni

Moin Excellianer!
Mit folgendem Code "Sheets("Tabelle1").Visible = False" in einem UserForm blende ich die Tabelle 1 und 2 aus. Mit "True" für "False" blende ich sie wieder ein.
Das Ganze hat nur den Nachteil, dass man die Tabelle 1 und/oder 2 über das Menü "Format > Blatt > Einbl...
01.02.2009 00:12:00
Thread-ID: 1045802
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
2
4
3
5
1
1
4
5
3
3
4
2
2
5
6
6
7
5
2
3
21
5
7
8