Frage an die Profis -- Enwicklung von Userform

Hallo Profis,
ich steht vor der Herausforderung, eine komplette Kundendatenbank auf Excelbasis zu programieren. Soweit kein Problem für mich. Ich stell mir aber folgende Frage die ich gern an die Profiprogrammierer richten möchte, die das tagtäglich machen.
Wie programiert ihr die Userform? Da gäbe es ja 2 Arten meiner Meinung nach. Nur was ist die bessere? Oder gibt es da noch eine 3 Art?
Möglichkeit 1:
Lasst ich durch das Makro --UserForm_Initialize-- alles programmiert entstehen (Labels, Textboxen, Commondbuttons etc.) incl. Positionen, was auf die UF drauf muss. Hätte den Charme, dass wenn nachträglich noch was dazu käme die Anpassung nicht ganz so Zeitraubend wäre.
oder
Möglichkeit 2:
baut ihr alles im Vorfeld auf die UF und füllt dann die Objekte mit Leben? Kommt was dazu wäre das meiner Meinung nach ein ganz schöner Act mit der Anpassung von Positionen, Namen, Controls etc.
Oder sehe ich das falsch?
Wie macht ihr das dann mit den Captions und Names von den Objekten? Lasst ihr den Standart drin der mir vorgegeben wird oder benutz ihr eine bestimmte Logik für die Namen von Objekten?
Wäre über eure Ratschläge sehr dankbar.
Gruß Ron

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Dim oButtons(1 To 5) As New MeineKlasse Private Sub UserForm_Activate() Dim i As Integer For i = 1 To 5 Set oButtons(i).MeinButton = Controls.Add("forms.commandbutton.1") With oButtons(i).MeinButton .Caption = "Test " & i .Name = "TestButton " & i .Height = 20 .Top = 25 * i .Left = 20 End With Next End Sub

Hallo,
in eine neue UF 'MeinForm':

Private Sub UserForm_Activate()
Dim i As Integer, arrAction, iArrAction As Integer
arrAction = Array("Makro2", "Makro1", "Makro3", "Makro6", "Makro4", "prcClose")
iArrAction = UBound(arrAction)
ReDim oButtons(iArrAction)
'Buttons einfügen
For i = 0 To UBound(arrAction)
Set oButtons(i).MeinButton = Controls.Add("forms.commandbutton.1")
With oButtons(i).MeinButton
.Caption = IIf(i = iArrAction, "Schließen", arrAction(i))
.Name = "TestButton " & i
.Height = 20
.Width = 60
.Top = 30 * i + 20 - 30 * (i = iArrAction)
.Left = 20
.Tag = arrAction(i)
End With
Next
'Größe UF anpassen
Height = oButtons(iArrAction).MeinButton.Top + oButtons(iArrAction).MeinButton.Height + 40
Width = oButtons(iArrAction).MeinButton.Left * 2 + oButtons(iArrAction).MeinButton.Width
Caption = "TestForm"
End Sub

Klassenmodul 'MeineKlasse':

Option Explicit
Public WithEvents MeinButton As MSForms.CommandButton
Private Sub MeinButton_Click()
Application.Run MeinButton.Tag
End Sub

In ein Modul:

Option Explicit
Sub prcClose()
MeinForm.Hide
Unload MeinForm
End Sub
Sub Makro1()
MsgBox "Test 1"
End Sub
Sub Makro2()
MsgBox "Hallo", , ""
End Sub
Sub Makro3()
MsgBox "Test 3"
End Sub
Sub Makro4()
MsgBox "Test 4"
End Sub
Sub Makro6()
MsgBox "Test 6"
End Sub

Gruß
Rudi

Beliebteste Forumthreads (12 Monate)

Frage an die Profis -- Enwicklung von Userform

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Frage an die Profis -- Enwicklung von Userform

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread