Thema Datum  Von Nutzer Rating
Antwort
18.07.2019 09:54:45 Tobias Huprich
NotSolved
Blau Userform an Funktion übergeben
19.07.2019 17:38:21 Gast60673
*****
NotSolved
22.07.2019 09:16:04 Tobias Huprich
NotSolved
22.07.2019 15:57:35 Gast60673
NotSolved
22.07.2019 16:00:31 Gast60673
NotSolved
19.07.2019 17:42:14 Gast60673
*****
Solved

Ansicht des Beitrags:
Von:
Gast60673		 Datum:
19.07.2019 17:38:21		 Views:
493		 Rating:
     
Antwort:
  Ja
Thema:
Userform an Funktion übergeben

Hallo,

wenn, dann eher so:

'// Aufruf:

userform_style.center_version (Me)
'// Implementation in Modul:

Option Explicit

Function center_version(ByRef uf As Object)
 
Dim xTop As Long, xLeft As Long
 
uf.StartUpPosition = 0
 
With Application
    xLeft = .Left + .Width / 2 - uf.Width / 2
    xTop = .Top + .Height / 2 - uf.Height / 2
End With
 
With uf
    .Left = xLeft
    .Top = xTop
End With
 
End Function

...immer schön mit Option Explicit proggen, sonst droht Unheil...;-)

Gruß,

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
18.07.2019 09:54:45 Tobias Huprich
NotSolved
Blau Userform an Funktion übergeben
19.07.2019 17:38:21 Gast60673
*****
NotSolved
22.07.2019 09:16:04 Tobias Huprich
NotSolved
22.07.2019 15:57:35 Gast60673
NotSolved
22.07.2019 16:00:31 Gast60673
NotSolved
19.07.2019 17:42:14 Gast60673
*****
Solved