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:
726		 Rating:
     
Antwort:
  Ja
Thema:
Userform an Funktion übergeben

Hallo,

wenn, dann eher so:

?
1
2
3
'// Aufruf:
 
userform_style.center_version (Me)
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
'// 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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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