Spalten einblenden

Forumthread: Spalten einblenden

Spalten einblenden

12.12.2002 17:39:37

Kirsten

Hallo zusammen,

eine Frage hab ich noch. Ich möchte gerne, dass beim Deaktivieren des Blattes die Zeilen meines Datenbereichs sortiert werden. Dazu (dank Steffen) habe ich dieses Makro:

Jetzt wollte ich erreichen, das vorher die Spalten J:Y eingeblendet werden, da das Makro sonst einen Fehler verursacht.
Ich dachte, ich müsste nur den Befehl

Columns("J:Y").Hidden = False

einbauen. Irgendwie klappt das aber nicht. Bekomme immer die Fehlermeldung "'1004' Die Hidden-Eigenschaft des Range-Objektes kann nicht festgelegt werden".

Wer kann mir da helfen?

Gruss
Kirsten

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Spalten einblenden

12.12.2002 17:45:54

Hajo_zi
Re: Spalten einblenden

12.12.2002 18:24:35

Kirsten
Re: Spalten einblenden

12.12.2002 18:31:30

Hajo_zi
Re: Spalten einblenden

12.12.2002 19:21:45

Kirsten
Re: Spalten einblenden Noch offen

12.12.2002 19:35:22

Hajo_zi

Re: Spalten einblenden

12.12.2002 17:45:54

Hajo_zi

Hallo Kirsten

der Code lief ja schon ich habe jetzt nur die Ergänzung gemacht.


Option Explicit

	

Private Sub Worksheet_Deactivate()

	Dim lzelle As Long

	With ActiveSheet

		.Unprotect Password:="passwort" 'Deaktiviert den Blattschutz

		.Columns("J:Y").Hidden = False

		lzelle = Sheets("Umsatz").Range("B65536").End(xlUp).Row

		Sheets("Umsatz").Rows("19:" & lzelle).Sort Key1:=Range("B19"), Order1:=xlAscending, Header:=xlNo, _

		OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

		.Protect Password:="passwort" 'Aktiviert den Blattschutz

		Range("B18:I18").AutoFilter

	End With

End Sub

Code eingefügt mit: Excel Code Jeanie

Code Jeanie
Frage
Das Umsetzen nach Html klappt perfekt, auch die Ansicht in den Foren ist gegeben. Bei manchen Foren kann man aber anscheinend nicht den dargestellten Code nach VBA rückkopieren. Warum?
Antwort
Dies liegt nicht an der Code Jeanie !!! Manche Foren interpretieren anscheinend < pre > < /pre > Tags nicht richtig und erzeugen am Zeilenende einen weichen Zeilenumbruch anstatt eines harten Zeilenumbruches. Dies führt dazu, dass im VBA-Editor die Zeilen hintereinander geschrieben werden. Zum Rückkopieren in solchen Fällen: Fügen Sie den kopierten Code aus dem Forum nach Word ein, kopieren Sie ihn dort wieder und fügen Sie ihn dann im VBA - Editor ein

Gruß Hajo

Re: Spalten einblenden

12.12.2002 18:24:35

Kirsten

Hallo Hajo,

lieben Dank für deine Hilfe.

Leider habe ich jetzt das Problem, wenn die Spalten Im Bereich J:Y beim dekativieren der Tabelle nicht ausgeblendet sind, kommt der Laufzeitfehler '1004' "Die Sort-Methode des Range-Objektes ist fehlerhaft". Sind sie eingeblendet, bisher alles O.K..

Gruss
Kirsten

Re: Spalten einblenden

12.12.2002 18:31:30

Hajo_zi

Hallo Kirsten

schreibe den Befehl
.Columns("J:Y").Hidden = False
vor
.Protect Password:="passwort" 'Aktiviert den Blattschutz

Gruß Hajo

Re: Spalten einblenden

12.12.2002 19:21:45

Kirsten

Hallo Hajo,

hab ich gemacht und jetzt bekomme ich wieder den Fehler "Die Hidden-Eigenschaft kann nicht festgelegt werden"?????????

Gruss
Kirsten

Re: Spalten einblenden Noch offen

12.12.2002 19:35:22

Hajo_zi

Hallo Kirsten

ich klick mich aus. In Deinem ersten Beitrag ging es nur darum die eine Zeuile eizuarbeiten. Irgendwie habe ich jetzt den Überblick verloren.

Gruß hajo

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um Spalten in Excel mithilfe von VBA einblenden zu können, folge diesen Schritten:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke im Projektfenster auf das entsprechende Arbeitsblatt, in dem Du die Spalten einblenden möchtest.

Füge den folgenden Code in das Arbeitsblattmodul ein:

Option Explicit

Private Sub Worksheet_Deactivate()
   With ActiveSheet
       .Unprotect Password:="passwort" ' Deaktiviert den Blattschutz
       .Columns("J:Y").Hidden = False ' Blendet die Spalten J bis Y ein
       ' Füge hier den Sortiercode hinzu
       .Protect Password:="passwort" ' Aktiviert den Blattschutz wieder
   End With
End Sub

Passe den Code an Deine Bedürfnisse an, insbesondere die Spalten, die Du einblenden möchtest.
Schließe den VBA-Editor und teste das Makro, indem Du das Arbeitsblatt verlässt und wieder betrittst.

Häufige Fehler und Lösungen

Fehler: "Die Hidden-Eigenschaft kann nicht festgelegt werden"
- Stelle sicher, dass das Arbeitsblatt nicht geschützt ist, bevor Du versuchst, Spalten ein- oder auszublenden. Der Befehl .Unprotect muss vor dem Einblenden der Spalten stehen.
Fehler: "Die Sort-Methode des Range-Objektes ist fehlerhaft"
- Dieser Fehler kann auftreten, wenn die Spalten nicht korrekt eingeblendet sind. Überprüfe, ob die Spalten J bis Y tatsächlich sichtbar sind, bevor Du die Sortierung anwendest.

Alternative Methoden

Wenn Du keine VBA-Makros verwenden möchtest, gibt es auch andere Wege, um Spalten in Excel einzublenden:

Manuelles Einblenden:
- Markiere die umgebenden Spalten (z.B. I und Z), klicke mit der rechten Maustaste und wähle „Spalten einblenden“.
Tastenkombination:
- Wähle die umgebenden Spalten aus und drücke Strg + Shift + 0, um die ausgeblendeten Spalten wieder anzuzeigen (diese Methode funktioniert eventuell nicht standardmäßig und muss in den Excel-Optionen aktiviert werden).

Praktische Beispiele

Einblenden aller ausgeblendeten Spalten: Um alle ausgeblendeten Spalten in einem Arbeitsblatt einblenden zu können, verwende den folgenden VBA-Befehl:
```
Sub AlleSpaltenEinblenden()
   Columns.Hidden = False
End Sub
```
Einblenden einer bestimmten Spalte: Möchtest Du nur eine spezifische Spalte (z.B. Spalte A) einblenden, so kannst Du dies mit dem folgenden Code tun:
```
Sub SpalteAEinblenden()
   Columns("A").Hidden = False
End Sub
```

Tipps für Profis

Verwende Application.ScreenUpdating = False und Application.ScreenUpdating = True, um das Flackern beim Einblenden von Spalten zu reduzieren.
Teste Deinen VBA-Code in einer Kopie Deiner Datei, um Datenverlust zu vermeiden.
Nutze Debug.Print in Deinem Code, um Fehlersuche effektiver zu gestalten und den Status von Variablen zu überprüfen.

FAQ: Häufige Fragen

1. Warum kann ich die Spalte nicht einblenden? Manchmal ist das Arbeitsblatt geschützt. Stelle sicher, dass Du den Blattschutz mit .Unprotect entfernst, bevor Du versuchst, die Spalte einzublenden.

2. Wie kann ich alle Zeilen einblenden? Verwende den Befehl Rows.Hidden = False, um alle ausgeblendeten Zeilen in dem aktiven Arbeitsblatt einzublenden.

3. Was kann ich tun, wenn der VBA-Code nicht funktioniert? Überprüfe, ob die Makros in Excel aktiviert sind und dass Du den richtigen Bereich oder die richtigen Spalten im Code angegeben hast.

Beliebteste Forumthreads (12 Monate)

Forumthread: Spalten einblenden

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Spalten einblenden in Excel mit VBA

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread