Microsoft ExcelDas Archiv des Excel-Forums
Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

spalten bis zur aktive zelle ausblenden

Bild

Betrifft: spalten bis zur aktive zelle ausblenden
von: Andre´
Geschrieben am: 02.09.2015 20:42:30

Hallo alle zusammen,
wie kann ich mit VBA auf einmal die Spalten ausblenden ab der 12. Spalte (L) bis zur aktiven Zelle.
Bsp.: aktive Zelle gleich O9, dann L:O ausblenden.
Ich hoffe mir kann jemand helfen.
Vielen Dank im Voraus!
MFG Andre

Bild

Betrifft: AW: spalten bis zur aktive zelle ausblenden
von: Sepp
Geschrieben am: 02.09.2015 21:04:17
Hallo Andre,

Sub ausblenden()

If ActiveCell.Column >= 12 Then
  Range(Cells(1, 12), Cells(1, ActiveCell.Column)).EntireColumn.Hidden = True
End If

End Sub


Gruß Sepp


Bild

Betrifft: AW: spalten bis zur aktive zelle ausblenden
von: Andre´
Geschrieben am: 02.09.2015 21:11:39
Hallo Sepp,
vielen Dank für die schnelle Hilfe, funktioniert wie gewünscht :-))
MFG Andre

Bild

Betrifft: AW: spalten bis zur aktive zelle ausblenden
von: Gerd L
Geschrieben am: 02.09.2015 21:12:39
Hallo Andre!

If ActiveCell.Column > 11 Then Range(Columns(12), ActiveCell.EntireColumn).Hidden = True
Gruß Gerd

 Bild

Beiträge aus den Excel-Beispielen zum Thema "spalten bis zur aktive zelle ausblenden"

Vorkommen von Zahlenreihen in Spalten
Funktion ANZAHL2 ohne ausgeblendete Spalten
Spaltenbreite anpassen
Spalten einer Mehrbereichsauswahl ausblenden.
Spaltennamen bestimmen
Spalten/Zeilen aus- und einblenden
Zeilen und Spalten über ein Drehfeld ein- und ausblenden
In einem Dialog ausgewählte Spalten drucken
Spalten bedingt summieren und Zellen formatieren
Abfrage der markierten Spalten
Wert aus Spalte C, wenn Spalten A und B Bedingungen erfüllen
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen
Zeilen löschen, wenn in bestimmten Spalten keine Werte stehen
Schmale Spalten nebeneinander drucken
Werte in mehreren Spalten sortieren
Textreihe auf mehrere Spalten mit fester Seitenlänge verteilen
Spalten A und B vergleichen und Doppel in C listen
Alle leeren Spalten ausblenden
Leere Zeilen und Spalten in ausgewähltem Bereich löschen
Alle leeren Zeilen und Spalten entfernen
Wertereihe nach dem Zufallsprinzip auf 4 Spalten verteilen
Abfrage zum Kopierbereich von Startzelle, Zeilen- und Spaltenanzahl
Einlesen von Spaltenköpfen in UserForm-ListBox
Spalten ein-/ausblenden nach UserForm-ListBox-Vorgabe
Aktuellen Bereich in den Spalten A:F als Druckbereich
Zellauswahl in Abhängigkeit des Spaltenkopfes
In mehrere Spalten doppelte Inhalte entfernen
Sortierspaltenkopf vorgeben und Meldung in Statusleiste für 2 sec.
Werte bei Übereinstimmung in 2 Spalten sammeln
Spalteninhalt in UserForm-TextBox mit ScrollBalken einlesen
Durchgehende Sortierung mehrer nebeneinanderliegender Spalten
Suche von Korrespondenzwerten in zwei Spalten
Spalten über UserForm-Auswahl ein- und ausblenden
Meldung bei Überschreitung einer Spaltensumme
Spaltentexte zusammenfassen und neu belegen
Spaltenbreite gemäß den in den Zellen stehenden Zahlen festlegen
Zelleinträgen über die Formatierung Spaltennamen hinzufügen
Textdatei mit mehr als 256 Spalten in Tabelle einlesen
Im TextFeld einer UserForm-ComboBox Wert aus 2 Spalten anzeigen
Gruppenüberschriften in Nebenspalten übertragen
Spaltenwerte in UserForm-ListBox übernehmen und ausgeben
Datensätze zählen, die in einigen Spalten identisch sind
Spalten mit gleichen Spaltenköpfen zusammenfassen
Alle Zeilen und Spalten außerhalb des benutzten Bereiches löschen
Spalten mit Zellen ohne Eintrag oder 0-Werten ausblenden
Über InputBox zu ermittelnde Spaltenanzahl einfügen
Festlegung der Sortierspalten nach dem Feature Gültigkeit
Import einer Textdatei mit mehr als 256 Spalten
Spaltenbreiten der nicht ausgeblendeten Spalten anpassen
Spaltenweiser Blattschutz in Abhängigkeit des Anwendernamens
Befindet sich die aktive Zelle in einem bestimmten Bereich?
Adressdaten der aktiven Zelle über VBA feststellen
Ab der aktiven Zelle summieren
Drei Zellen rechts der aktiven Zelle markieren
Aktiven Drucker in UserForm wechseln
Verknüpfungen der aktiven Mappe listen
Während der Laufzeit aktives Modul löschen
Feste Hintergrundfarbe der aktiven Zelle bei Cursorbewegungen
Mit der aktiven Zelle jeweil 9 weitere in der Zeile markieren
Schriftgröße der aktiven Zelle bei Auswahl ändern
Spalte A mehrer Mappen in UserForm und aktives Blatt
Alle Namen in der aktiven Arbeitsmappe löschen
Ausgblendetes Fenster ein- und aktives Fenster ausblenden
Zeilenumbrüche im aktiven Blatt entfernen
Kopfzelle mit aktivem Autofilter markieren
Zeile mit aktiver Zelle in anderes Blatt kopieren
VBE-Komponenten der aktiven Arbeitsmappe auslesen
Wert der aktiven Spalte an nächste freie Position einfügen
Eintrag eines UserForm-ComboBox-Wertes in aktive Zelle
Aktive Arbeitsmappe löschen
Wert in jeweils aktive UserForm-TextBox eintragen
Zeile 1 nach Wert der aktiven Zelle durchsuchen
Eintrag eines ListBox-Wertes in die aktive Zelle
Über interaktive InputBox Bereich auswählen und zurückgeben
Die letzte Zeile des aktiven Blattes in andere Arbeitsmappe
ComboBox mit LinkedCell-Eigenschaft in aktivem Blatt erstellen
Aktive Zeile kopieren und löschen
Werte der aktiven Zeile in einer fixen Zeile anzeigen
Ausgewählten Bereich als interaktive Tabelle versenden
Aktive Arbeitsmappe ohne VBA-Code und Button speichern
Fehlermeldung #NV ausblenden
Symbolleisten ein-/ausblenden
Excel für die Zeit eines Dialogaufrufes ausblenden
ComboBox in Abhängigkeit einer 2. ComboBox ein-/ausblenden
Alle Menüs und Symbolleisten ausblenden
Entwicklungsumgebung ein- und ausblenden
Leere Zeilen beim Druck ausblenden
Zeilen mit Zellen mit rotem Hintergrund ausblenden
Arbeitsblattmenüleiste ein- und ausblenden
Schaltfläche in einem Tabellenblatt ein- und ausblenden
UserForm-TextBoxes ein- und ausblenden
Excel und VBE auf Schaltflächendruck ein- und ausblenden
Excel-Menü oben links am Fenster ausblenden
Ein- und ausblenden von Blättern gem. UserForm-ComboBoxes
Kopfleiste einer UserForm ein- und ausblenden
Tabellenblattgrafik ein/ausblenden und verschieben
Arbeitsblätter ausblenden
Datensätze unter Maximum ausblenden
Alle Zeilen mit dem Wahrheitswert WAHR ausblenden
Tabellenblätter für Kalenderwochen anlegen und ein/ausblenden
Grafik in Abhängigkeit eines Formelwertes ein/ausblenden
Negative Zahlen ausblenden
Formate und Zellinhalte ausblenden