Hallo zusammen,
ich möchte eine UF als eine Art "Hilfeseite" anzeigen lassen, wobei die Inhalte aus einer Tabelle kommen.
Der bisherige Code lautet:
Private Sub UserForm_Initialize()
Dim Fragen(1 To 9) As MSForms.Label
Dim Antworten(1 To 9) As MSForms.TextBox
Dim Zeilenstart As Integer, Zeilendiff As Integer, Zähler As Integer
Dim i As Integer
Zeilenstart = 6
Zeilendiff = 80
Zähler = 0
For i = 1 To 9
Set Fragen(i) = Me.Controls("Frage" & i)
Set Antworten(i) = Me.Controls("Antwort" & i)
Fragen(i).Top = Zeilenstart + (Zähler * Zeilendiff)
Fragen(i).SpecialEffect = fmSpecialEffectBump
Fragen(i).BackStyle = fmBackStyleOpaque
Fragen(i).Font.Size = 12
Fragen(i).Font.Bold = True
Fragen(i).Caption = Tabelle1.Range("AD" & 108 + i)
Antworten(i).Top = Zeilenstart + 24 + (Zähler * Zeilendiff)
Antworten(i).SpecialEffect = fmSpecialEffectBump
Antworten(i).BackStyle = fmBackStyleOpaque
Antworten(i).Font.Size = 10
Antworten(i).Value = Tabelle1.Range("AF" & 108 + i)
Zähler = Zähler + 1
Next i
End Sub
Bei der Zeile
Set Fragen(i) = Me.Controls("Frage" & i)
kommt allerdings der Fehler "Typen unverträglich".
Wie geht es richtiger?
Danke und Gruß
Dave