hi,
zur eingabe von 60! datensätzen brauche ich 60x dasselbe userform.
ich muß das userform also 60x neu erstellen, da es ja in vba nicht möglich ist, indizes zu vergeben.
gibt es eine möglichkeit, ein userform zu kopieren und 60x einzufügen?
wer weis rat?
vielen dank für eure mühe.
grüße
nikodemo
Hallo NikoDemo.
60 mal ein und die selbe Form? Wieso das denn?
Aber nun gut. Soweit ich dich verstanden habe möchtest du das ( ohne Indizis)
Source ist in VB muesste aber unter VBA laufen, wenn nicht einfach mal Reinhard fragen 
Dim MyForm as deine Form
Dim I as byte
For i=0 to 59
Myform=new DeineForm
MyForm.Show
'Hier deine Daten speichern
Next
MfG Alex, der bis mind. Donnerstag nicht online ist 
zur eingabe von 60! datensätzen brauche ich 60x dasselbe
userform.
ich muß das userform also 60x neu erstellen, da es ja in vba
nicht möglich ist, indizes zu vergeben.
gibt es eine möglichkeit, ein userform zu kopieren und 60x
einzufügen?
Hallo Nikodemo,
mir unklar ob man 60 UFs braucht, aber bitte:
Sub UFKopieren()
Dim N As Integer, Bez As String
Const Pfad As String = "C:\test\"
Bez = "UserForm1"
For N = 1 To 60
ThisWorkbook.VBProject.VBComponents(Bez).Name = "UF" & N
Bez = "UF" & N
ThisWorkbook.VBProject.VBComponents(Bez).Export Pfad & Bez & ".frm"
Next N
For N = 1 To 59
ThisWorkbook.VBProject.VBComponents.Import Pfad & "UF" & N & ".frm"
Next N
On Error Resume Next
For N = 1 To 60
Kill Pfad & "UF" & N & ".frm"
Kill Pfad & "UF" & N & ".frx"
Next N
End Sub
Gruß
Reinhard