Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1012to1016
1012to1016
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Benutzerdefinierte Ansichten

Forumthread: Benutzerdefinierte Ansichten

Benutzerdefinierte Ansichten
29.09.2008 10:56:48
Saskia
Hallo
ich möchte meine benutzerdefinierten Ansichten für alle Tabellenblätter einer Arbeitsmappe gültig machen und sie mit einem Makro in die Symbolleiste einbauen. Alle Sheets haben denselben Aufbau, nur unterschiedliche Werte. Die Ansicht "Ressourcen" habe ich im Sheet1 erstellt und möchte, dass sie für jedes andere Sheet, in dem ich gerade arbeite, funktioniert (ohne Zurückspringen auf Sheet1). Bis jetzt weiß ich, dass ich irgendwie mit activesheet arbeiten muss, aber so richtig bekomme ich es nicht hin.

Sub Ressourcen()
ActiveSheet.Unprotect
ActiveWorkbook.CustomViews("Ressourcen").Show
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub


Vielen Dank im Voraus!

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Benutzerdefinierte Ansichten
29.09.2008 12:36:00
fcs
Hallo Saskia,
die benutzerdefinierten Ansichten lassen sich nicht ohne weiteres auf andere Blätter übertragen.
Du solltest in diesem Fall ein Makro erstellen, dass die gewünschten Spalten und/oder Zeilen ausblendet und ggf. weitere Einstellungen vornimt.
Gruß
Franz
Beispiel:

Sub Ressourcen()
Dim wks As Worksheet
Set wks = ActiveSheet
With wks
.Unprotect
Application.ScreenUpdating = False
'alle Zeilen und Spalten einblenden
.Rows.Hidden = False
.Columns.Hidden = False
'Spalten ausblenden
.Range(.Columns(3), .Columns(6)).Hidden = True
.Columns(8).Hidden = True
'Zeilen ausblenden
.Range(.Rows(1), .Rows(5)).Hidden = True
.Rows(17).Hidden = True
Application.ScreenUpdating = True
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End Sub


Anzeige
;

Forumthreads zu verwandten Themen

Mappe mit variablen Dateinamen aktivieren
Peter

Hallöchen an alle,
wie kann man eine geöffnete Mappe über workbooks.activate oder windows.activate ansprechen, ohne dass man den vollen Dateinamen kennt.
Dateiname = "Auftragskennzahlen(*).xls"
Das * steht für eine Zahl, die mir nicht bekannt ist, sondern von einer Web-Datenbank ver...
07.08.2008 17:27:58
Thread-ID: 1000047
4 Beiträge
Anzeige
Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
die bedingte Formatierung be
Lemmi

Hallo zusammen,
wie kann ich die Bedingte Formatierung ersetzen durch eine "normale " Formatierung
Ich habe in einem Bereich A1:B100 einige bedingte Formatierungen, diese sollten eben durch die selbe Formatierung ersetzt werden!
Kann man das umsetzen?
Gruß
Lemmi
08.08.2008 08:45:25
Thread-ID: 1000161
5 Beiträge
Zellinhalte löschen
Jürgen

Hallo Excel Profis,
ich suche eine VBA-Lösung für folgendes Problem:
In einem Tabellenbereich A3:K100 soll das Makro die Spalte I durchsuchen.
Wenn hier ein x steht soll dieses gelöscht werden und gleichzeitig die Inhalte
in den Zellen B, D, E, H links daneben.
Es sollen nur...
08.08.2008 09:32:00
Thread-ID: 1000180
4 Beiträge
Fenster in Taskleiste
MikeS

Hallo,
normalerweise sehe ich, wenn ich mehrere Workbooks öffne, je Datei ein Fenster in der Taskleiste. Wenn ich aber eine von mir gebaute Excel-Anwendung öffne, die Userformen enthält, wird nur noch das Fenster der zuletzt geöffneten Excelanwendung in der Taskleiste gezeigt und man kann n...
08.08.2008 14:43:47
Thread-ID: 1000306
11 Beiträge
Zwei Spalten in jeweils zwei Tabellen miteinander
Lutz

Liebe Leute,
ich habe zwei recht umfangreiche Tabellen mit Lieferdaten und dies in zwei von einander unabhängigen Tabellen.
In der Tabelle1 stehen neben anderen die Spalten Bestellnr. und Materialnr. sowie Lieferantennr. In der Tabelle2 stehen wiederum die Spalten Bestellnr. und Materia...
08.08.2008 15:56:55
Thread-ID: 1000336
4 Beiträge
Bedingte Formatierung ich kriegs nicht hin.
Tom

Hi,
ich versuch hier eine bedingte Formatierung hinzubekommen aber es will nicht, ich steh voll auf dem Schlauch.
Wenn T5 = S5 dann Gruen ; S5 Darf aber nicht 0 sein
Wenn T5 S5 dan Rot ich hab bei gruen das so:
=S5=WENN(T50;T5;-1)
Bei rot so:
=UND(S5T5;T5=0)
m...
08.08.2008 15:58:37
Thread-ID: 1000337
4 Beiträge
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Anzeige
Löschen von Zeilen unter 1 Bedingung
Zeilen

Hallo,
ich habe in einer Excel Liste Produkte geführt, die den aktuellen Lagerbestand anzeigen.
Dort werden auch die Produkte aufgeführt, deren Produkte einen Lagerbestand von 0 haben.
Der Lagerbestand wird in Spalte B aufgeführt, die Produkte stehen in Spalte A. Der Datenbereich b...
08.08.2008 20:15:00
Thread-ID: 1000407
5 Beiträge
Schwellenwerte für eine Gruppierung setzen
Michi

Hallo zusammen,
in einer excel-Tabelle muss ich für eine Variable Schwellenwerte setzen, um eine Dreiergruppierung zu erhalten (hochentwickelte Länder, Länder mittlerer Entwicklung und schwach entwickelte Länder).
Welche Formel könnte helfen? Ich hätte da die zwei 25%-Quartile und den M...
10.08.2008 11:48:00
Thread-ID: 1000605
3 Beiträge
Anzeige
Wert aus Combobox zurückgeben in Textboxen
Peter

Hallo wertes Form
bin kurz vor der Vollende meinesWerkes
benötige aber noch die Hife aus dem Forum
Ich habe eine Combox19, die beim öffnen die 5000-26000 in 100 Steps an zeigt
Wenn ich den wert 0 bis 6999 eingebe soll in einer Textbox27 der wert 130 ausgegeben werden.
ab dem...
10.08.2008 20:06:00
Thread-ID: 1000671
7 Beiträge
Einzigartige Werte in Array identifizieren
Sebastian

Hallo Experten,
ich habe eine Frage, die vermutlich recht leicht zu lösen sein sollte:
Ich habe eine sehr lange Liste, in der in Spalte A Produktnummern stehen, viele kommen auch mehrfach vor. Ich möchte gerne daraus in einem neuen Tabellenblatt eine Liste erstellen, in der jede verschi...
10.08.2008 21:30:00
Thread-ID: 1000688
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige