Anzeige
Archiv - Navigation
704to708
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
704to708
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Userform

Userform
07.12.2005 11:19:46
Peter
Ich benutze u.a. Funktions- und VB-Makros zur Steuerung und Bearbeitung mehrere Workbooks. Hierbei steuere ich u.a., dass alle offenen Workbooks im zentralen Makro (im s.g. Basis-Workbook über ein Schaltfläche aktiviert) gespeichert und geschlossen werden. Dies funktioniert einwandfrei.
Nun habe ich u.a.diese zentrale Steuerungsfunktion in eine Userform (im s.g. Basis-Workbook) eingebunden und habe nun folgendes Problem, Erscheinung:
a) aktiviere ich die Workbooks und aktiviere danach unmittelbar über die Userform die Funktion „Speichern und Schließen“, werden auch v.g. alle Worksbooks gespeichert und geschlossen.
Wenn ich jedoch
b) nach der Aktivierung der Workbooks neben dem Basisworkbooks eines der anderen Worksbooks aktiviere, bearbeite und danach wieder in die Userform des Basisworkbooks zurückkehre und jetzt wiederum die Funktion; Makro „Speichern und Schließen“ aktiviere, wird nur das vorher aktivierte und nicht alle anderen Worksbooks gespeichert und geschlosssen.
Wenn ich in diesem Falle jedoch die Userform schließe und die Funktion, Makro „Speichern und Schließen“ über die Schaltfläsche im Basis-Workbook aufrufe werden wiederum alle Workbooks richtig bearbeitet.
c) Was muß, kann ich tun, dass der Makro „Speichern und Schließen“ bei Verwendung der Userform ebenso funktioniert wie ohne Userform.

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform
07.12.2005 11:53:52
Matthias
Hallo Peter,
Was muß, kann ich tun, dass der Makro „Speichern und Schließen“ bei Verwendung der Userform ebenso funktioniert wie ohne Userform.
Vielleicht erstmal das Makro hier rein posten.
Gruß Matthias
AW: Userform
07.12.2005 13:31:52
Peter
Hallo Matthias,
nachstehend der Code:
Sub beenden()
'
' beenden Makro "Speichern und schließen"
' Makro am 17.04.02 von Peter Vianden aufgezeichnet
Windows("Wild_01.xls").Activate
Application.Run "wild_00.xls!Schutz" 'Makro zum Schützen der Worksheets
ActiveWorkbook.Save
ActiveWorkbook.Close
Windows("Wild_02.xls").Activate
Application.Run "wild_00.xls!Schutz"
ActiveWorkbook.Save
ActiveWorkbook.Close
Windows("Wild_03.xls").Activate
Application.Run "wild_00.xls!Schutz"
ActiveWorkbook.Save
ActiveWorkbook.Close
Windows("Wild_00.xls").Activate
Application.Run "wild_00.xls!Schutz"
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

Private Sub CommandButton1_Click() '(Steuerung Aufruf über Userform"
If Me.ListBox1().ListIndex = 0 Then
UserForm3.Hide
Application.Run "wild_00.xls!wein01"
End If
If Me.ListBox1().ListIndex = 1 Then
UserForm3.Hide
Application.Run "wild_00.xls!wein02"
End If
If Me.ListBox1().ListIndex = 2 Then
UserForm3.Hide
Application.Run "wild_00.xls!wein03"
End If
If Me.ListBox1().ListIndex = 3 Then
UserForm3.Hide
Application.Run "wild_00.xls!wein00"
End If
If Me.ListBox1().ListIndex = 4 Then
Application.Run "wild_00.xls!wein06"
End If
If Me.ListBox1().ListIndex = 6 Then
Application.Run "wild_00.xls!beenden"
End If
End Sub

Anzeige
AW: Userform
07.12.2005 17:57:23
DieterB

Private Sub CommandButton1_Click() '(Steuerung Aufruf über Userform"
If Me.ListBox1().ListIndex = 0 Then
UserForm3.Hide
Application.Run "wild_00.xls!wein01"
End If
If Me.ListBox1().ListIndex = 1 Then
UserForm3.Hide
Application.Run "wild_00.xls!wein02"
End If
If Me.ListBox1().ListIndex = 2 Then
UserForm3.Hide
Application.Run "wild_00.xls!wein03"
End If
If Me.ListBox1().ListIndex = 3 Then
UserForm3.Hide
Application.Run "wild_00.xls!wein00"
End If
If Me.ListBox1().ListIndex = 4 Then
Application.Run "wild_00.xls!wein06"
End If
If Me.ListBox1().ListIndex = 6 Then
Application.Run "wild_00.xls!beenden"
End If
<b>beenden</b>
End Sub

Gruß DieterB
Anzeige
AW: Userform
07.12.2005 17:58:14
DieterB
Falscher Button,
vorletzte Zeile heisst natürlich
beenden
Gruß DieterB
AW: Userform
08.12.2005 08:41:58
Peter
Hallo DieterB,
vielen Dank für den Hinweis. Aber leider bringt auch dieser Eintrag/Aufruf keine Lösung.
Vielleicht nochmal im Detail:
Unabhängig welches der Workbooks im Vorfeld über die Userform angesprochen wird, werden danach alle Workbooks geschlossen, wenn ich den Makro „Beenden“ über eine Schaltfläche aus dem Workbook „Wild_00.xls“aktiviere.
Aktiviere ich jedoch den Makro „Beenden“ über die Userform, werden in Abhängigkeit dem vorher aktivierten Workbooks nur wie folgt die Workbooks geschlossen. Workbook „Wild_00.xls“ wird in diesen Fällen nie geschlossen.
Vorher nur aktiviert „Wild_03.xls“ schließt nur: Wild_03-, Wild_02, Wild_01.xls
Vorher nur aktiviert „Wild_02.xls“ schließt nur: Wild_02-, Wild_01.xls
Vorher nur aktiviert „Wild_01.xls“ schließt nur: Wild_01.xls
Irgendwie muss in diesen Fällen über die Userform ein besonderer Steuerungsmechanismus bestehen oder?
Gruß
Peter
Anzeige
AW: Userform
08.12.2005 11:14:13
DieterB
Hallo Peter,
werden die Workbooks geschlossen, oder sollen sie geschlossen werden?
Wenn ein Workbook aktiviert ist, muss man nur das aktive auslesen, schliessen, dann
das nächste aktivieren usw.
Oder habe ich was falsch verstanden?
Gruß DieterB
AW: Userform
08.12.2005 13:51:53
Peter
Hallo DieterB,
die Books sollen/werden gesichert und dann geschlossen.
Ist dieser Sachverhalt überhaupt wichtig? Es geht doch m.E. nur darum, daß der Makro bei Aktivierung über eine Schaltfläche richtig und bei Aktivierung in der beschriebenen Weise über die Userform unvollständig funktioniert.
Gruß
Peter

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige