Automatische Initialisierung einer UserForm
27.01.2017 13:16:21
Andre
ich habe eine Frage zu folgendem Problem,
ich habe einen automatischen Aufruf einer Userform Namens "Abfrage3". Bei Aufruf sollen automatische vorhandene Daten eingefügt sein, so dass man nur noch fehlendes ergänzt.
Bei Aufruf wird leider nur das leere Userform angezeigt.
Der Code dazu:
Option Explicit
Dim intZaehlenAbfrage3Zeile As Integer
'**************************************************************
'**************************************************************
Private Sub Abfrage3_Initialize()
Workbooks("B_Probanden.xlsx").Worksheets(1).Activate
intZaehlenAbfrage3Zeile = Cells(Rows.Count, 1).End(xlUp).Row
Abfrage3TextBox1.Text = Cells(intZaehlenAbfrage3Zeile, 2)
Abfrage3TextBox2.Text = Cells(intZaehlenAbfrage3Zeile, 3)
Abfrage3TextBox3.Text = Cells(intZaehlenAbfrage3Zeile, 5)
If Cells(intZaehlenAbfrage3Zeile, 7) = "M" Then
Abfrage3OptionButton1 = False
Abfrage3OptionButton2 = True
ElseIf Cells(intZaehlenAbfrage3Zeile, 7) = "W" Then
Abfrage3OptionButton1 = True
Abfrage3OptionButton2 = False
End If
End Sub
Gruß André