Hallo Dietmar,
anbei Deine Datei mit dem eingepflegten Code:
[
attachment=11284]
In den Spalten bei für die Lisboxlisten müssen immer min 2 Datensätze sein.
Schau Dir das mal an nach dem Du Auswahl Gesamte Anlage in Listbox1 ausgewählt hast.
Ich habe noch die "xxxx" als Dummydatensatz rein geschrieben. Bei Auswahl passiert nichts.
@atilla,
hier im Thread gibt es keine zuletzt eingestellte Datei von Dir
Wo findet man die denn?
@Dietmar
meinen Vorschlag, die TextBoxen im BeforeSave auszublenden, hast Du da auch nicht umgesetzt
. Wenn die aus irgendeinem Grund beim Speichern nicht ausgeblendet sind und beim Start oder wann auch immer nicht ausgeblendet werden, hast Du die natürlich wieder so sichtbar wie zuvor.
Ansonsten musst Du die Codes schrittweise durchgehen und schauen, wann die ein- und ausgeblendet werden und Dir vielleicht auch aufschreiben, wie der jeweilige Zustand ist, insbesondere bei den Speicher-Aktionen.
Dann solltest Du auch schauen, ob Deine Click-Ereignisse korrekt ausgeführt werden. Da läuft eventuell schon was beim Öffnen der Datei ...
Und dann solltest Du, wie atilla schon schrieb, eine aktuelle Version nehmen.
Hallo Andre,
nee, hier nicht. Aber im anderen Thread, wo ich das Gleiche bearbeite.
Und mit dem sichtbar unsichtbar habe ich auch schon beantwortet. Das Speichern alleine hilft nicht.
Das hat mit dem Listfillrange zu tun. Diese muss beim Speichern und Schließen erst geleert werden, dann klappt das.
Aber ich hatte im anderen Thread schon eine verbesserte Variante eingestellt, wo alles reibungslos funktioniert,
wie jetzt auch in der reparierten Test Datei von Dietmar, hoffe ich. :19:
Hallo Atilla,
vielen Dank für deine Mühe.
Warum ich den älteren Code verwendet habe, hat den Grund, dass er ohne Fehlermeldung durchläuft und mein Anliegen was ich mit meiner Eingangsfrage gestellt hatte erfüllte.
Die Code die du danach in einer verbesserten Version geschrieben hast, hatte ich probiert aber liefen bei mir alle auf Fehler.
Die jetzige Testversion lief ebenfalls bei mir auf Fehler!
Sobald ich in der ersten Listbox einen Eintrag wählte, bekam ich einen Laufzeitfehler 1004, der Blattschutz soll aufgehoben werden.
Mit ein bisschen Eigeninitiative bin ich nun dahinter gekommen, dass es an dem Blattschutz der ausgeblendeten Störungsliste lag und hebe den Blattschutz nun bevor der Code stehen bleibt auf.
Code:
Case 4
With tab1
x = Application.Match(ActiveCell.Offset(, -1).Value, .HeaderRowRange, 0) 'mit Match(Vergleich) wird der Index der Überschrift gesucht
Sheets("Störungsliste").Unprotect
If IsNumeric(x) Then
varDaten = .DataBodyRange.Columns(x).SpecialCells(xlCellTypeConstants) 'hier wird die Spalte mit bestimmter Überschrift über den Index angesprochen
With Me.ListBox2
.Top = ActiveCell.Top
.Left = ActiveCell.Offset(, 1).Left
.List = varDaten
.Height = 148.5 '(ein Vielfaches von 0,75)
.IntegralHeight = True
On Error Resume Next
.LinkedCell = ActiveCell.Address
On Error GoTo 0
.Visible = True
End With
End If
End With
Des Weiteren kommen nach wie vor, beim Öffnen meiner Datei, ohne aktivierte Makros alle drei Listboxen. (siehe Anhang)