Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1876to1880
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
1876to1880
1876to1880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro ausblenden und sperren von Spalten

Makro ausblenden und sperren von Spalten
01.04.2022 08:22:22
Spalten
Hallo Zusammen,
ich habe schon sehr viel gegoogelt, aber leider keine Lösung für mein Problem gefunden. Ich hoffe, ihr könnt mir helfen.
Es geht um folgende Aufgabenstellung.
Ich habe ein File, in welches verschiedene Kennzahlen eingetragen werden sollen. Dieses File enthält Spalten für alle 12 Monate, wo für den betreffenden Monat Werte eingetragen werden sollen. Nun möchte ich über eine Wenn - Bedingung mittels Makro gerne Spalten schreibschützen oder ganz ausblenden.
Ich teste in meinem File drei Fälle:
Ist der Monat in der Spalte kleiner als der aktuell ausgewählte Monat, dann gibt er mir in Zeile 13 eine 1 zurück
Ist der Monat in der Spalte = dem aktuell ausgewähltem Monat, dann gibt er mir in Zeile 13 eine 2 zurück
Trifft nichts davon zu, also ist der Monat größer als der ausgewählte Monat, wird eine 0 zurückgegeben.
Jetzt wären meine Wünsche an das Makro:
Wenn in Zeile 13 eine 1 zurück gibt, soll er für alle Spalten, in denen die Bedingung zutrifft diese Spalten schreibschützen.
Wenn eine 2 zurückgegeben wird, soll nichts passieren
Wenn eine 0 zurückgegeben wird, soll er alle Spalten, für die das zutrifft, ausblenden.

Ich hoffe, ich habe mein Problem verständlich beschrieben und ihr könnt mir helfen. Leider habe ich bisher noch ganz wenig Erfahrung in VBA.
Danke und viele Grüße!
Leslie

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

Betreff
Datum
Anwender
Anzeige
AW: Makro ausblenden und sperren von Spalten
01.04.2022 08:52:47
Spalten
Hi
abhängig von den Werten in Zeile 13:

dim c as long
ActiveSheet.Unprotect
for C = 1 to 12 'ggf anpassen an die Spalten, in denen die Zahlen 0, 1, 2 stehen.
Select Case Cells(13, C).value
Case 0: Columns(C).Hidden = True
Case 1: Columns(C).Locked = true
Case 2
Columns(C).Hidden = False
Columns(C).Locked = False
Case else
end Select
next
ActiveSheet.Protect
und hier eine Methode, die unabhängig von Zeile 13 mit dem aktuellen Monat funktioniert:

dim C as long
C = Month(Date) 'aktueller Monat
ActiveSheet.Unprotect
With Range("A:L") 'Eingabebereich
.Columns(C).Locked = False
.EntireColumn.Hidden = False
if C > 1 Then .Columns(1).Resize(, C - 1).Locked = True
if C
Gruß Daniel
Anzeige
AW: Makro ausblenden und sperren von Spalten
01.04.2022 09:09:26
Spalten
Hallo Daniel,
vielen Dank für deine schnelle Antwort und Hilfe.
Leider passiert gar nichts, wenn ich den Code kopiere und auf meine Spalten anpasse.. ich mache etwas falsch.
Wärst du nochmal so lieb und würdest dir das nochmal anschauen?
https://www.herber.de/bbs/user/152176.xlsm
Ich habe mal ein Testfile hochgeladen. Bin leider noch absoluter Anfänger was Makros angeht..
Viele Grüße
Leslie
AW: Makro ausblenden und sperren von Spalten
01.04.2022 09:19:44
Spalten
HI
deine Datei enthält keine Makros. Daher kann auch nichts funktionieren.
du musst die makros schon einfügen. Bitte zeige zumindest den Code mit deinen Anpassungen.
Gruß Daniel
Anzeige
AW: Makro ausblenden und sperren von Spalten
01.04.2022 09:31:06
Spalten
Hi,
ich hatte folgenden Code eingefügt: In meiner Testdatei stehen die Kriterien in Zeile 4 und die Monate in Spalte B bis M
Dim c As Long
ActiveSheet.Unprotect
For c = 2 To 13
Select Case Cells(4, c).Value
Case 0: Columns(c).Hidden = True
Case 1: Columns(c).Locked = True
Case 2
Columns(c).Hidden = False
Columns(c).Locked = False
Case Else
End Select
Next
ActiveSheet.Protect
Mir ist jedoch aufgefallen, dass die Prozedur nicht gespeichert wird, weshalb du den Code in der Datei nicht sehen kannst. Also einfach kopieren in den Editor unter Tabelle2 klappt scheinbar nicht. Was muss ich anders machen?
Danke!
Anzeige
AW: Makro ausblenden und sperren von Spalten
01.04.2022 09:44:47
Spalten
Hi
weiß nicht, funktioniert doch.
dass man bei einem Makro die Kopf- und Endzeile des Makros noch hinzufügen muss, sollte klar sein.
auch muss das Blatt, auf dem gearbeitet werden soll, aktiv sein. Soll der Code laufen während das Blatt "Parameter" aktiv ist, müsstest du vor jedem Cells und Columns noch ein Sheets("Tabelle1"). einfügen.
Gruß Daniel
AW: Makro ausblenden und sperren von Spalten
01.04.2022 09:30:25
Spalten
Hallo sind keine Makros enthalten
Hier eine Lösung von mir
- Rechtsclick auf den Tabellenblattreiter von Tabelle1
- Code anzeigen
- Code rechts reinkopieren
Beim Aktivieren des Blattes (also, wenn du von Parameter zurückkommst) läuft das Makro automatisch ab

Private Sub Worksheet_Activate()
Dim RNG As Range, Z
Set RNG = Range("B4:M4")
ActiveSheet.Protect userinterfaceonly:=True
Application.ScreenUpdating = False
'Reset
RNG.EntireColumn.Locked = False
RNG.EntireColumn.Hidden = False
For Each Z In RNG
Select Case Z.Value
Case 1
Z.EntireColumn.Locked = True
Case 2
Z.EntireColumn.Locked = False
Z.EntireColumn.Hidden = False 'einblenden
Case ""
'nix
Case 0
Z.EntireColumn.Hidden = True 'ausblenden
End Select
Next
End Sub
LG UweD
Anzeige
AW: Makro ausblenden und sperren von Spalten
01.04.2022 09:33:22
Spalten
Hallo UweD,
super!
Vielen vielen Dank, nun klappt es!
Danke an euch beide für die schnelle Unterstützung :)
Viele Grüße
Leslie
AW: Makro ausblenden und sperren von Spalten
01.04.2022 09:39:09
Spalten
Case2 und Case "" können noch weggelassen werden, da durch den Reset bereits richtig

For Each Z In RNG
Select Case Z.Value
Case 1
Z.EntireColumn.Locked = True
Case 0
Z.EntireColumn.Hidden = True 'ausblenden
End Select
Next

AW: Makro ausblenden und sperren von Spalten
01.04.2022 09:32:57
Spalten
oder so:?

Sub aaa()
Dim c As Long
With ActiveSheet
.Unprotect
.Columns.Locked = False
.Columns.Hidden = False
For c = 2 To 13
Select Case c - 1
Case Is  Month(Date)
.Columns(c).Hidden = True
End Select
Next c
.Protect
End With
End Sub
Gruß
Rudi
Anzeige

305 Forumthreads zu ähnlichen Themen

VBA Zeilen ein/ausblenden + weiters Problem
oblivion

hallo, ich hab mal wieder ein kleines und ein etwas größeres Problem
erstmal zum kleinen. wie bekomme ich es mit hilfe von einem vba hin, wenn ich ein kontrollkästchen mit einem Hacken versehe, dann bestimmte Zeilen (Sagen wir mal Zeile 20 bis 30), die ich vorher versteckt hatte, nun zum vo...
10.08.2008 00:22:06
Thread-ID: 1000558
3 Beiträge
Anzeige
Makro - Zeilen ein- und ausblenden
WalterK

Hallo,
den Code habe ich vor längerer Zeit in einem Forum gefunden und die Bezeichnung "Ein" und "Aus" auf "Privat+Intern Ein" und "Privat+Intern Aus" abgeändert. Noch ist es so, dass über den CommandButton die Zeilen mit den Nichtleeren Zellen in Spalte H aus- oder eingeblendet werden.
...
05.07.2009 11:07:55
Thread-ID: 1086451
6 Beiträge
Automatisch Spalten ausblenden - mit einem Makro?
Jan

Hallo nochmal!
Ich wurde gerade schon einmal in Weltrekordzeit bei meinem anderen Problem geholfen. Vielen herzlichen dank! Nun stehe ich aber erneut vor einer für mich schwierigen Aufgabe. Folgendes Problem:
Wir sind mehrere Gewerke die an einer Excel Tabelle arbeiten. Die Excel Tabell...
28.07.2009 15:46:49
Thread-ID: 1091988
7 Beiträge
Anzeige
bestimmte Spalten ein- und ausblenden (VBA) | Herbers Excel-Forum
Matthias
Hi,
ich bräuchte ein wenig Hilfe zu folgendem Vorhaben:
In einer Liste, in der Identnummern für eine Maschine verwaltet werden, sollen bestimmte Spalten über ein Auswahlmenü ein- und ausgeblendet werden können. Dabei sollen bei Auswahl einer Maschinenbaugröße (von 110 bis 610) immer drei Sp...
24.01.2010 16:55:43
Thread-ID: 1132489
4 Beiträge
VBA: Text in Spalten - mehrere Spalten | Herbers Excel-Forum
Jonathan
Hallo liebe Experten,
ich bräuchte mal wieder etwas Hilfe...
In einer Tabelle stehen in einigen Spalten (jeweils ab Zeile 9 - Zeile 46) Zahlen.
Die Zellen sind als "Standart" definiert. Jedoch ist es so, dass einige Zahlen dennoch nicht als solche erkannt werden. Erst nach einem Doppelk...
05.02.2010 09:43:46
Thread-ID: 1136027
4 Beiträge
Spalten und Zeilen ausblenden per Makro
Stefan

Hallo,
ich möchte per Makro bestimmte Spalten und Zeilen ausblenden. Der mit dem Makrorcorder erst aufgezeichnete und angepaßte Weg blendet mir dann allerdings alle Spalten und Zeilen aus.
Kann mir bitte jemand helfen, wie ich den Code schreiben muss?
Sub Fall2_Spalten_Zeilen_ausb...
06.04.2010 10:10:32
Thread-ID: 1150290
9 Beiträge
VBA Zeilen ein-/ausblenden
Daniel

Hallo
Ich habe eine Frage, ob der nachfolgende VBA-Code vereinfacht werden kann.
Ausgangslage: in der Spalte B sind die Auswahlkriterien (3 stellige Nummern: 101, 102, 103, etc.). Nun soll via Makro alle Zeilen einer bestimmte Nummer (z.B. 101) angezeigt werden.
Ist es möglich, den...
07.07.2010 10:43:30
Thread-ID: 1165894
8 Beiträge
VBA Problem bei Zeilen ausblenden
Lorenz

Hallo Excelspezialisten,
Leider funktioniert der untenstehende Code nur wenn nach Zeile 97 alle Zeilen eingeblendet sind.
Ich habe aber ab Zeile 98 alle Zeilen ausgeblendet.
if Target.Row >= 14 Then
iZ = Target.Row + 1
With Range(Cells(iZ, 1), Cells(97, 1))
.EntireRow...
28.12.2010 14:15:45
Thread-ID: 1193064
8 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
2
4
5
6
5
3
3
8
7
7
3
1
2
5
6
9
5
2
2
4
1
3
2
6
3