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

Benutzerdefinierte Ansichten VBA

Forumthread: Benutzerdefinierte Ansichten VBA

Benutzerdefinierte Ansichten VBA
04.01.2009 19:02:00
Pietsch
Halli Hallo.
Ich hab mal wieder ne Frage.
Ich möchte gern benutzerdefinierte Ansichten in einer Excel Datei verankern naja und da hab ich mal eine test Datei erstellt... https://www.herber.de/bbs/user/58074.xls
Ich möchte nur das die Abfrage nach Passwort und Ansicht gleich beim Öffnen geschieht und außerdem stimmt irgendetwas nicht bei der Abfrage. Find aber den Fehler nicht...
Vielleicht kann mir jemand helfen.. wäre nett.
Lg Kathi
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
mit Workbook_Open ...
04.01.2009 20:24:00
Matthias
Hallo Kathi
Code in DieseArbeitsmappe

Private Sub Workbook_Open()
MyCustomViews
End Sub


außerdem stimmt irgendetwas nicht bei der Abfrage. Find aber den Fehler nicht...
was klappt denn nicht?
Gruß Matthias

Anzeige
AW: mit Workbook_Open ...
04.01.2009 21:17:36
Pietsch
Danke erstmal.
Also:
1. Beim Öffnen sollen die Tabellenblätter mit Januar-März ausgeblendet sein
2. Wenn die Abfrage beim Öffnen kommen, geb ich die Namen und das PW ein aber es wird nicht die Ansicht geöffnet sondern das Tabellenblatt bleibt wie es ist...
Hast du ne Idee woran das liegt?
Lg kathi
Anzeige
so gehts ...
04.01.2009 22:11:00
Matthias
Hallo
Da hast Du einiges durcheinandergebracht
z.B. statt
Const cstrUserB As String = "Wagenmann"
hast Du
Const cstrUserB As String = "Wagemann"
geschrieben.
Deine Case-Anweisungen waren nicht korrekt und haben immer einen Leerstring zurückgegeben.
hier korrigiert:
Select Case mstrUser
Case Is = cstrNormal
CheckPassword cstrPwN
Case Is = cstrUserA
CheckPassword cstrPwA
Case Is = cstrUserB
CheckPassword cstrPwB
Case Is = cstrUserC
CheckPassword cstrPwC
Case Is = cstrUserD
CheckPassword cstrPwD
End Select
und hier das Sheet funktionstüchtig:
https://www.herber.de/bbs/user/58082.xls
Gruß Matthias
Anzeige
AW: so gehts ...
04.01.2009 22:40:19
Pietsch
Super das funktioniert erstmal...
Hab aber noch zwei Fragen,
1. Wenn ich nun Daten hinzufüge und auf Speichern gehe, funktioniert irgendwie die Ansichtabfrage nicht mehr sondern die vorhergehend geöffnete wird mir immer wieder angezeigt, kann man das unterbinden?
2. Wie geht das, das diese Abfrage in alle Tabellenblätter angewendet wird?
Lg Kathi
Anzeige
machs mit dem Filter...
04.01.2009 23:02:42
Matthias
Hallo Kathi
Für benutzerdefinierte Ansichten kannst Du nur einmal einen Namen verwenden, der gilt dann für das Blatt
in dem die Ansicht erstellt wurde.
Du kannst also mE nicht 2x eine Ansicht mit dem Namen "Lorz"in mehreren Blättern erstellen.
Probiers doch mit dem Autofilter
Hier das Beispiel:
https://www.herber.de/bbs/user/58086.xls
Gruß Matthias
Anzeige
Korrektur
04.01.2009 23:25:26
Matthias
Hallo
Habe gerade einen Fehler bemerkt (gilt für die neu gepostete Datei)
https://www.herber.de/bbs/user/58086.xls
ersetze bitte folgende Prozedur
Public Sub CheckPassword(strP As String)
durch diese:

Public Sub CheckPassword(strP As String)
If mstrPw  strP Then
MsgBox mstrUser & ", dass Password ist falsch!", _
vbExclamation
Exit Sub
Else
With ActiveSheet
.Unprotect "Codebook"
Application.ScreenUpdating = False
If AutoFilter = 0 Then Range("A1").AutoFilter
Range("A1").AutoFilter Field:=1, Criteria1:=mstrUser
Application.ScreenUpdating = True
.Protect "Codebook"
End With
End If
End Sub


sonst bekommst Du eine Fehlermeldung, wenn Du die Sub2x laufen lässt (da der Filter schon gesetzt ist)
Gruß Matthias

Anzeige
;

Forumthreads zu verwandten Themen

VBA Ausgabe in neue Datei
MarkusL

Hallo,
ich habe folgendes Problem:
In einer Datei befinden sich nachfolgende Datensätze
Jahr Monat Feld_1 Feld_2 Feld_3 Feld_4 Feld_5 usw.
es sollen nun per VBA nach Abfrage von Jahr und Monat ein neuer Datensatz in einer neuen Datei erzeugt werden, der allerdings nur noch die F...
08.08.2008 17:42:00
Thread-ID: 1000377
3 Beiträge
Anzeige
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
Untergenze in VBA
Axel

Hallo alle miteinander,
ich nicht weiß einfach nicht wie ich die Untergrenze Funktion in mein UserForm einbinden kann.
Kurze Erklärung:
Ich habe ein UserForm mit einem Drehfeld zum durchblättern der Zeilen, in Spalte 27 ist ein Zahlenwert mit zwei Kommastellen eingetragen, das nach...
11.08.2008 10:10:47
Thread-ID: 1000733
7 Beiträge
VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Anzeige
Mittels VBA Zellbereich einfärben
Fred

Hallo zusammen
Ich habe da ein Problem, und zwar stehen bei mir in der Tabelle im Bereich D2 bis AD100 unterschiedliche Datums. Wenn das Datum kleiner ist als das heutige, hätte ich gerne, das sich die entsprechende Zelle Rot färbt. Ich habe das mal mit bedingter Formatierung versucht, aber...
13.08.2008 18:52:00
Thread-ID: 1001623
13 Beiträge
Anzeige
mit Find (VBA) nach Datum suchen
Werner

Hi!
Ich habe folgendes Problem:
Ich habe eine Spalte mit Datumseinträgen (z.B.:13.04.1953, 17.12.1970, ...)
Suche ich mit
ThisWorkbook.Worksheets("AUSWAHL").Columns("E:E").Find(What:="17")
bekomme ich ein Ergebnis
ThisWorkbook.Worksheets("AUSWAHL").Columns("E:E").Find(W...
13.08.2008 23:54:00
Thread-ID: 1001685
8 Beiträge
Liste "definierter Namen" per VBA?
David

Hallo zusammen,
ist es per VBA möglich, die in einer Tabelle definierten Namen auszulesen, in einem neuen Sheet aufzulisten und daneben den/die mit dem Namen verbundene(n) Bereich bzw. Formel?
Ich würde mir gern bei umfangreichen Namensdefinitionen das Nachschauen im Menü ersparen, da j...
14.08.2008 12:15:44
Thread-ID: 1001809
5 Beiträge
Button in B1 passen einfügen? VBA
Tom

Hi,
ich will einfach per VBA ein Button der auf eine Makro verlinkt ist, in das aktive Tabellenblatt einsetzt und zwar genau passend in die Zelle B1.
Kann mir da vll. einer den Code dafür sagen mit dem Makrorekorder muss ich das passend ziehen das gefällt mir nicht so.
mfg Tom
...
14.08.2008 16:34:00
Thread-ID: 1001915
2 Beiträge
Anzeige
Initialwert bei string * 10
Eddie

Hallo,
ich habe ein kleines Problem mit der Type Anweisung.
Ich definiere in der Struktur u.a.
Type TestTest teststring As String * 10 End Type Dim Test(500) As TestTest
Zu meinem erstaunen, steht in z.B. Test.teststring, bevor die Variable das erste mal beschrieben wurde, 10...
15.08.2008 11:03:00
Thread-ID: 1002107
4 Beiträge
Wie aus VBA Iteration erzwingen?
Lou

Hi,
nachdem es mit meinem ersten Problem so super geklappt hat, gleich ein zweites hinterher:
Ich habe auf einem Tabellenblatt rekursiven Formeln mit Zirkelbezug, welche durch Iteration berechnet werden sollen. Da die Anwender, die die Dateien nutzen werden nicht zu den EXCEL-Experten z...
15.08.2008 13:36:00
Thread-ID: 1002165
2 Beiträge
Hyperlink Funktion mit VBA auswerten
zapultin

Hallo!
Ich habe die Hyperlinkfunktion in einem Excel Blatt verwendet. Nun will ich per VBA ermitteln, ob der Hyperlink funktioniert.
Komischerweise gibt der Zugriff RANGE.HYPERLINKS auf die Zelle wo ich die Hyperlinkfunktion verwendet keinen Hyperlink!
Nur wenn ich in der Zelle per...
16.08.2008 11:17:00
Thread-ID: 1002331
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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