Laufzeitfehler 91 bei userform.show
12.07.2020 22:52:29
Ingo
ich habe folgenden Programmablauf:
Sub proKontaktdatenMarkieren()
wksKontaktKonf.Select
Selection.ClearContents
wksKontaktKonf.Select
wksKontaktKonf.Range("A:AAA").Clear
wksKontakt.Select
Dim lastrow As Long
lastrow = wksKontakt.Cells(Rows.Count, 1).End(xlUp).Row
Range("a3:q" & lastrow).Copy
wksKontaktKonf.Select
' frmKonfiguratorKontakte.Show
Application.Goto Reference:=wksKontaktKonf.Range("A3")
wksKontaktKonf.Paste
frmKonfiguratorKontakte.Show
End Sub
durch die Zeile frmKonfiguratorKontakte.Show wird nun ein Laufzeitfehler 91 ausgeworfen.
Durch weitere Recherche habe ich schon rausgefunden, dass dies wohl an der Initialisierung des _
Userforms liegt. Wenn ich den initialize beim Userform auskommentiere funkioniert der .show vom _
Userform auch- aber eben die andere Funktionalität vom initialize nicht mehr:(
Private Sub UserForm_Initialize()
Dim NewCheckBox As Control
Dim i As Integer, inI As Integer
Dim loLast As Long
Dim lngZaehler As Long
With wksKontaktKonf ' alt Worksheets(1)
' Lutschi Version die fehler gemacht hat siehe Forum
loLast = .Cells(1, .Columns.Count).End(xlToLeft).Column
loLast = Rows(1).Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious). _
_
_
_
_
Column
For i = 1 To loLast
If Cells(1, i).Value "" Then
Set NewCheckBox = Me.Controls.Add("Forms.CheckBox.1", Name:="chkB" & i)
With NewCheckBox
.Top = Application.Max(i * 23)
.Left = 5
.Caption = Cells(1, i).Value
.Tag = i
.Value = Not Columns(i).Hidden
ReDim Preserve chkBox(0 To inI)
Set chkBox(inI).CheckBox = NewCheckBox
inI = inI + 1
End With
End If
Next
End With
End Sub
Hab Ihr eine Idee was ich wie modifizieren muss
Vielen Dank