Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
19.04.2024 11:45:34
Feld im SAP auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
192to196
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
192to196
192to196
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige
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

Anzeige
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

Anzeige
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

108 Forumthreads zu ähnlichen Themen

Spalten mit Farbe ausblenden
Pet


Wünsche allen einen guten Abend.
Habe mal wieder ein Problem!
Ich brauche ein Makro, welches mir Spalten mit der Hintergrundfarbe gelb ausblendet.
durchsucht wird nur Zeile 2 von A:AR.
Vorab vielen Dank für Eure Hilfe.
Gruß
Pet
08.10.2008 20:13:58
Thread-ID: 1015160
6 Beiträge
Anzeige
Spalten mit farbigen Zellen ausblenden
Robert

Hallo,
stehe momentan voll auf dem Schlauch und komm nicht weiter.
Könnte Ihr mir bitte helfen?
Ich müsste alle Spalten, in denen eine oder mehrere farbige Zellen sind, ausblenden.
- und das wenn möglich mit VBA.
Vielen Dank schon mal.
Gruß Robert
11.06.2009 19:25:52
Thread-ID: 1080829
3 Beiträge
Spalte vor Druck ausblenden/nach Druck einblenden
Gesa

Hallo,
habe nachfolgendes Makro und möchte gerne, dass es erweitert wird und zwar dass bei anwählen des Markos die Spalte D ausgeblendet wird und nach verlassen der Seitenansicht wieder eingeblendet wird.
Geht das?
Für Hilfe bin ich wie immer :-) dankbar..
Sub Druck_KlasseA()...
27.06.2009 15:48:42
Thread-ID: 1084819
4 Beiträge
Anzeige
Spalten lassen sich nicht einblenden?
Reinhard

Hallo Wissende,
wegen einer Anfrage zu einem anderen problem bekam ich eine Mappe.
In Tabelle1 sind die Spalten D und E ausgeblendet.
Mir gelingt es nicht sie einzublenden.
Weder mit
Sub tt() Columns(4).Hidden = False Columns(5).Hidden = False End Sub oder manuell.
Blat...
01.03.2010 17:59:12
Thread-ID: 1142460
7 Beiträge
ClearContents nicht alle Spalten
Sascha

Hallo Forum
ich habe Makro das daten von einem Tabellenblatt in ein anderes überträgt und dann das Tabelleblatt wieder löscht mit
Sheets("Import 200").UsedRange.Offset(3, 0).ClearContents
kann ich das noch so ändern das es nur von Spalte A bis Spalte M löscht?
Gruss Sascha
05.04.2010 12:28:47
Thread-ID: 1150231
2 Beiträge
Passwort zum Einblenden und Bearbeite von Spalten
Spalten

Hallo zusammen,
ich benötige eure Hilfe!!!
Ich brauche ein Makro, welches mir z.B. die Spalte C und D nur durch ein Passwort anzeigt und ich es bearbeiten kann.
Oder dass ich die Benutzer definiere die die Spalte C und D sehen und bearbeiten dürfen.
Ich hoffe mir kann da jemand...
20.09.2010 21:23:40
Thread-ID: 1178637
5 Beiträge
spalten mit werten aus Listbox ausblenden
marco

Hallo,
ich versuche mich momentan Werte direkt aus einer Listbox zu übernehmen und bei einer nicht Übereinstimmung die Spalte auszublenden.
Nun übernimmt zwar der Code "ListBox3.List(i) " den Wert aus der Listbox , aber die Spalten mit dem gleichen Wert wird auch ausgeblendet.
Mei...
03.12.2010 02:09:04
Thread-ID: 1189744
6 Beiträge
VBA Zeilen aus/einblenden
Christian

Hallo,
ich habe in den Zeilen (Mappe "Übersicht") B10-B35 die Einträge "Team Meier; Team Schulze; Team Müller; Team Krüger etc. In H10-H35 errechne ich einen Zielwert, nachdem der Datenbereich sortiert wird.
Die Teams gehören einzelnen Abtl, die ich per Button anzeigen lassen möchte. <...
08.07.2011 09:51:42
Thread-ID: 1221319
2 Beiträge

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
2
3
1
6
1
4
5
1
2
4
3
4
6
2
11
5
8
7
4
9
9
13
8