Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1728to1732
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
1728to1732
1728to1732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Alle Spalten mit Zellinhalt ausblenden

VBA: Alle Spalten mit Zellinhalt ausblenden
02.01.2020 13:50:32
Fritz
Hallo Forumsbesucher,
ich bitte um eure Hilfe bei der Umsetzung von folgendem Vorhaben:
Ich benötige ein Makro, mit dem ich in einem Tabellenblatt alle Spalten des Spaltenbereichs D:AD ausgeblendet werden, bei denen in Zeile 1 nicht der in Zelle B3 enthaltene Wert steht.
Für eure Unterstützung besten Dank im Voraus.
mfg
Fritz

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Alle Spalten mit Zellinhalt ausblenden
02.01.2020 13:58:28
Hajo_Zi
Hallo Fritz,
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, gehe auf Deine Datei, rechte Maustaste, Einfügen Modul, Code ins rechte Fenster kopieren, VBA Editor schließen (Alt+F4, oder Kreuz rechts oben).
Register Ansicht, Befehlsgruppe Makros, auf Makro klicken, Makros anzeigen, Makro auswählen und ausführen (Alt+F8 ). 
Option Explicit
Sub Ausblenden()
Dim InI As Integer
For InI = 4 To 30
Columns(InI).EntireColumn.Hidden = Cells(1, InI) = Range("B3")
Next InI
End Sub

Anzeige
AW: VBA: Alle Spalten mit Zellinhalt ausblenden
02.01.2020 14:05:24
Fritz
Hallo Hajo,
funktioniert wie gewünscht, vielen Dank.
mfg
Fritz
AW: VBA: Alle Spalten mit Zellinhalt ausblenden
02.01.2020 13:59:31
onur 

Private Sub CommandButton1_Click()
Dim cell
For Each cell In Range("D1:AD1")
cell.EntireColumn.Hidden = False
If cell  Range("B3") Then
cell.EntireColumn.Hidden = True
End If
Next
End Sub

AW: VBA: Alle Spalten mit Zellinhalt ausblenden
02.01.2020 14:08:53
GerdL
Hallo Friz 
Sub test()
Dim zelle As Range
For Each zelle In Range("D1:AD1")
zelle.EntireColumn.Hidden = Not (zelle.Value = Range("B3").Value)
Next
End Sub

Gruß Gerd
AW: VBA: Alle Spalten mit Zellinhalt ausblenden
02.01.2020 15:01:24
Fritz
Hallo onur und Gerd,
vielen Dank für eure Alternativen, funktionieren beide wunderbar.
Habe gleich noch eine weitere Bitte:
Welches Makro würde mir alles Spalten des gleichen Zellbereichs löschen, in denen in Zeile 1 der Wert aus Zelle B3 enthalten ist?
Im Voraus besten Dank.
mfg
Fritz
Anzeige
AW: VBA: Alle Spalten mit Zellinhalt ausblenden
02.01.2020 15:03:26
Hajo_Zi
Halo FGritz,
Du hast beachtet das Spalten ohne Inhalt B3 bei mir eingeblendet werden?
Gruß Hajo
AW: VBA: Alle Spalten mit Zellinhalt ausblenden
02.01.2020 15:08:57
Fritz
Hallo Hajo,
ja, das habe ich und kann das jetzt auch nach Bedarf anpassen.
Danke.
mfg
Fritz
AW: VBA: Alle Spalten mit Zellinhalt ausblenden
02.01.2020 15:20:24
GerdL
Hallo Fritz! 
Sub test2()
Dim X As Long
For X = 30 To 4 Step -1
If Cells(1, X).Value = Cells(3, 2).Value Then Columns(X).Delete
Next
End Sub

Gruß Gerd
AW: VBA: Alle Spalten mit Zellinhalt ausblenden
02.01.2020 15:24:37
Fritz
Hallo Gerd,
klappt super, vielen Dank.
mfg
Fritz
@ GerdL
02.01.2020 16:39:02
Fritz
Hallo Gerd,
ich möchte das Makro zum Löschen der Spalten auch aus anderen Tabellenblättern aufrufen können.
Was muss man dann im Code ändern?
Würde mich freuen, wenn Du mir das entsprechend anpassen könntest.
mfg
Fritz
Anzeige
AW: @ GerdL
02.01.2020 17:32:01
Werner
Hallo Fritz,
so: 
Sub test2()
Dim X As Long
For X = 30 To 4 Step -1
'Blattname anpassen
With Worksheets("DeinBlattname")
If .Cells(1, X).Value = .Cells(3, 2).Value Then .Columns(X).Delete
End With
Next
End Sub
Wichtig ist hierbei, dass vor Cells und Columns jeweils ein Punkt ist. Damit wird auf das Blatt referenziert, das bei With angegeben ist.
Gruß Werner
AW: @ Werner
02.01.2020 17:56:04
Fritz
Hallo Werner,
super, das funktioniert wie gewünscht.
Vielen Dank für die Hilfe und auch für die hilfreiche Erläuterung.
mfg
Fritz
Gerne u. Danke für die Rückmeldung. o.w.T.
02.01.2020 17:57:00
Werner

322 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

Links zu Excel-Dialogen

CommandButton

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