Private Sub UserForm_Initialize() Komplierungsfehl

Private Sub UserForm_Initialize() 'wird vor Activate ausgeführt
'http://msdn.microsoft.com/de-de/library/s2edxtd5(v=vs.80).aspx
'http://classic.vb-faq.de/wie-stelle-ich-fest-ob-ein-eintrag-im-listview-wirklich-ausgewaehlt-  _
_
_
ist/
Dim x As Long
Neuesuche = True
With ListView1
.Width = 686 + 10
.Font = "tahoma"
.Font.Size = 10
.FullRowSelect = True
.AllowColumnReorder = False
.Gridlines = True
.LabelWrap = True
.HideSelection = False
.HideColumnHeaders = False
.ColumnHeaders.Add , , "            Positionsnr.", (.Width - 10) / 5.48  '130
.ColumnHeaders.Add , , "                                                  Positionstext  _
_
_
(Kurztext)", (.Width - 10) / 1.537 '463.5
.ColumnHeaders.Add , , "  Einheit", (.Width - 10) / 14.394 '49.5
.ColumnHeaders.Add , , "Einh.-Preis", (.Width - 10) / 11.875, 1  'rechtsbündig '60
.ColumnHeaders.Add , , "Langtext", 0
.View = 3 'lvwReport Art der optischen Darstellung der Liste
End With
RichTextBox1.HideSelection = False
Me.Left = Application.Left
End Sub