Private Sub UserForm_Initialize() Komplierungsfehl
02.07.2015 23:12:30
Wirtz
vielleicht kann mir einer helfen. Ich nutze ein umfangreiches VBA zur Angebotserstellung.
Nun erscheint auf einmal der "Fehler beim Kompilieren. Variable nicht definiert"
Dummerweise bin ich der blindeste unter den VBA Anfängern. Vielleicht hat jemand einen Tipp oder Hinweis.
Hier der Code:
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