Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:24:20
Textketten erstellen mit unterschiedlichen Anzahl an Feldern
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1200to1204
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
1200to1204
1200to1204
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hidden nur wenn nicht ausgeblendet

Hidden nur wenn nicht ausgeblendet
Heinz
Liebe Excellenten,
ich habe ein Makro gebastelt, welches unter anderem
auch Spalten ausblendet.
Sheets("Projekte").Select
Columns("H:X").Select
Selection.EntireColumn.Hidden = True
Das Problem.
Wenn die Spalten schon ausgeblendet sind und das
Makro noch mal gestartet wird gibt es eine Fehlermeldung.
Wie kann ich es so "drehen", das nur auf Hidden geschaltet
wird, wenn die Spalten vorher nicht ausgeblendet waren?
ich freue mich auf Eure Lösungen.
Heinz

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

Betreff
Benutzer
Anzeige
AW: Hidden nur wenn nicht ausgeblendet
19.02.2011 15:28:18
Josef

Hallo Heinz,
wenn du dir das .Select(ieren) mal abgewöhnen würdest, dann kämen solche Fehler erst gar nicht!

Sheets("Projekte").Columns("H:X").EntireColumn.Hidden = True


Gruß Sepp

keine Probleme in Xl2000 u. Xl2007
19.02.2011 15:28:57
Matthias
Hallo
Kann sooft das Makro starten, wie ich will. Keine Probleme.
Vielleicht ein 2010er Problem.
und machs ohne select 
Sheets("Projekte").Columns("H:X").EntireColumn.Hidden = True
oder 
With Sheets("Projekte").Columns("H:X")
.EntireColumn.Hidden = True
End With
Gruß Matthias
Anzeige
AW: Hidden nur wenn nicht ausgeblendet
19.02.2011 15:31:02
Reinhard
Hallo Heinz,
der Code klappt, auch bei mehrmaligem Aufruf, ich würde ihn anders schreiben, siehe tt2.
Bei dir muß da was anderes liegen daß er nicht funktioniert bei einem mehrmaligen Aufruf. Zeig mal den ganzen Code. 
Sub tt()
Sheets(1).Select
Columns("H:X").Select
Selection.EntireColumn.Hidden = True
End Sub
Sub tt2()
Sheets(1).Columns("H:X").Hidden = True
End Sub

Gruß
Reinhard
AW: Hidden nur wenn nicht ausgeblendet
19.02.2011 15:48:14
Heinz
Hallo liebe Excellenten,
Ich habe den Code von Sepp eingebaut.
Aber die Fehlermeldung
Laufzeitfehler 1004
Die Hidden Eingenschaft eines Range Objektes kann nicht festgelegt werden.
kommt trotzdem.
Hier der ganze Code
Ich vermute es hat was mit dem Blattschutz in dem betreffenden
Tabellenblatt zu tun, der ja bei zweimaligen
Durchlauf immer noch "drin" ist.
With Sheets("Zeitenübersicht")
If .Visible Then .Visible = False
End With
Sheets("Projekte").Columns("H:X").EntireColumn.Hidden = True
With Sheets("Proab Gesamt")
If .Visible Then .Visible = False
End With
With Sheets("Proab Gesamt")
.Protect Password:="12345", DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
With Sheets("Projekte")
.Protect Password:="12345", DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
Sheets("Infos").Select
Range("A1").Select
... und bitte nicht lachen.
Heinz
Anzeige
AW: Hidden nur wenn nicht ausgeblendet
19.02.2011 16:08:16
Reinhard
Hallo Heinz,
warum sollten wir lachen, die nicht arroganten unter uns wissen noch genau wie klein sie mal angefangen haben.
Ersetz mal 

Sheets("Projekte").Columns("H:X").EntireColumn.Hidden = True
With Sheets("Projekte")
.Protect Password:="12345", DrawingObjects:=True, Contents:=True, Scenarios:=True
End With

durch 
With Sheets("Projekte")
.Unprotect Password:="12345"
.Columns("H:X").Hidden = True
.Protect Password:="12345", DrawingObjects:=True, Contents:=True, Scenarios:=True
End With

Gruß
Reinhard
Anzeige

299 Forumthreads zu ähnlichen Themen

Maximum aus Zeile,ausgeblendete Spalte nicht berüc
HermannZ

Hi;
wie kann ich mit VBA in einer Zeile das Maximum ermitteln,aber ausgeblendete Spalten nicht berücksichtigen.
Mit einer Formel z.B könnte man das so machen.
 CEFGH1246  2     3     4     5&n...
13.08.2008 19:42:43
Thread-ID: 1001641
4 Beiträge
Anzeige
Daten aus Userfom in eine ausgeblendete Tabelle
Ramon

Hallo alle zusammen,
ich möchte nach Klick auf den Command_Button "cb_send" Eingabewerte aus einer
Userform in eine Tabelle schreiben.
In Abhängigkeit der eingegebenen Werte sollen die Daten entweder in das Tabllenblatt
"data_booked" oder in "data_planned" geschrieben werden, u...
16.09.2008 12:28:00
Thread-ID: 1010054
5 Beiträge
UDF - pos. oder neg. Wert in ausgeblendet. Bereich
Peter

Guten Abend
Ich möchte mit Hilfe einer Funktion (z.B. yWert) abfragen, ob innerhalb einem benannten Bereich (z.B. "Zahlenteil") positive oder negative Werte in ausgeblendeten Zeilen enthalten sind. Falls dies zutrifft, sollte die Rückgabe der Tabellenname sowie die betreffenden Zelladressen...
26.09.2008 21:20:00
Thread-ID: 1012746
4 Beiträge
Anzeige
Gruppierung mit ausgeblendeten Spalten
Leander

Hallo Zusammen!
Ist möchte eine Spalte, beispielsweise Spalte "E" ausblenden, die jedoch in einem Gruppierungsbereich, Spalten "C:G", liegt.
So weit so gut, schließe ich diese Gruppe und öffne diese wieder, ist auch die vorher ausgeblendete Spalte wieder sichtbar.

Kann ich das...
13.11.2008 06:59:45
Thread-ID: 1024010
3 Beiträge
ausgeblendete Zeilen auf Blattkopie auch ausblende
Thomas

Hallo,
ich habe folgendes Problem:
Mittels VBA und der Funktion PastSpecial kopiere ich ein Tabellenblatt, welches ausgeblendete Zeilen enthält.
Zum Einfügen des zu kopierenden Inhaltes verwende ich die o.a. Funktion zwei mal:
Zielblatt.Range(Quellenblatt.UsedRange.Address).Past...
20.11.2008 09:18:00
Thread-ID: 1026312
3 Beiträge
Rechnen ohne Ausgeblendetes
Klemens

Hallo,
wenn ich eine Funktion benutze (z. B. SUMME), werden Werte, die in ausgeblendeten Zeilen oder Spalten stehen, in die Berechnung einbezogen. Wie kann ich dies verhindern?
mfg
Klemens Baake
20.11.2008 11:28:51
Thread-ID: 1026351
6 Beiträge
Ausgeblendete Zeilen werden ausgedruckt
Josef

Hallo Profis,
Wenn in bestimmten Zellen eine 0 steht soll der definierte Bereich (Zeilen) ausgeblendet werden.
Das funktioniert aber nur im ersten Bereich, bei weiteren werden in der Seitenansicht nur leere Seiten angezeigt und dann auch ausgedruckt, was nicht gewünscht ist.
Zum bes...
09.12.2008 12:39:59
Thread-ID: 1031348
5 Beiträge
Combobox ausgeblendete Zeilen nicht anzeigen
helena

Schönen Guten Morgen
Kleines Problem ich verstecke Zeilen wenn in Spalte C Begriff nicht vorhanden dies klappt auch
aber via Combobox suche ich Namen (Adressvergabe) aber es werden mir immer alle aufgelistet auch wenn Zeilen ausgeblendet sind, ich Blende aus ob ich nur G_kunden oder P_...
28.12.2008 09:10:32
Thread-ID: 1035521
12 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
3
3
4
3
2
2
2
5
4
11
13
5
2
6
1
2
2
2
1
4
2
1
7
4
7