Nutzerkontrolle

[d'r Bastler]

Moin Donkey,

eben habe ich Deinen Xlwelt-Code mal getestet und durfte feststellen, dass er in meine VBAstelei schon mal nicht reinkommt. Auch ein erweiterter Versuch Zellinhalte auszulesen, ist gescheitert... Ganz so einfach ist es denn dann doch nicht.

Grüße

[d'r Bastler]

Moin nochmal,

Korrektur zu DieseArbeitsmappe-Code. Ich habe oben als zweiten den falschen Event verwendet:

Code: Alles auswählen

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    usfAccess.Show
End Sub

und die USF darf nicht modal sein.

Grüße

[Donkey]

Hei, das wundert mich jetzt aber, mein Versuch hat gefunzt.

Sub Beispiel_For_Each_Next()
Dim Blatt As Object
Dim Z As Integer
For Each Blatt In ActiveWorkbook.Sheets
Z = Z + 1
Sheets("_Start").Cells(Z, 1) = Blatt.Name
Sheets("_Start").Cells(Z, 2) = Sheets(Blatt.Name).Range("A1")
Next Blatt
End Sub

LG

[d'r Bastler]

Moin

mit aktiver modaler Userform wird da aber schon nichts mehr draus - oder?
Ich gebe gerne zu, dass es da noch Optimierungsbedarf gibt, aber ganz so leicht lass' ich mich dann doch nicht knacken

Grüße

[Donkey]

Hei, Das würde mich interessieren: "Wenn ich jetzt mit den Event usfAccess.Terminate ein Application.Quit verbinde, sind Deine Amateure raus." Erklärst du das mal so, dass ich das verstehen kann?

LG

[d'r Bastler]

Moin Donkey,

dieser Vorschlag schließt nach dem dritten Fehlversuch nicht nur die Anmeldemaske (=usfAccess.Terminate), sondern schließt XL komplett (=Application quit). Besser wäre es noch mit

Code: Alles auswählen

With Application
	.DisplayAlerts = False
	.Quit
End With

die XL-Abfrage "Änderungen speichern?" zu unterdrücken.

lg