List macht fehler

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) TextBox1.Value = ListBox1.List(Me.ListBox1.ListIndex, 0) 'lf. Nr. rein TextBox2.Value = Format(ListBox1.List(Me.ListBox1.ListIndex, 1), "dd.mm.yyyy") ' EK _ Datum TextBox3.Value = ListBox1.List(Me.ListBox1.ListIndex, 2) 'Lieferant TextBox4.Value = ListBox1.List(Me.ListBox1.ListIndex, 3) 'Marke TextBox5.Value = ListBox1.List(Me.ListBox1.ListIndex, 4) 'Marken für Standtage TextBox6.Value = ListBox1.List(Me.ListBox1.ListIndex, 5) 'Typ TextBox7.Value = Format(ListBox1.List(Me.ListBox1.ListIndex, 6), "###,###,###") 'Stamm _ Nr. TextBox8.Value = Format(ListBox1.List(Me.ListBox1.ListIndex, 7), "##,###.##") ' EURO _ MWST TextBox9.Value = Format(ListBox1.List(Me.ListBox1.ListIndex, 8), "##,###.##") ' _ Firmenname TextBox10.Value = ListBox1.List(Me.ListBox1.ListIndex, 9) TextBox11.Value = Format(ListBox1.List(Me.ListBox1.ListIndex, 10), "dd.mm.yyyy") 'datum _ verkauf TextBox12.Value = ListBox1.List(Me.ListBox1.ListIndex, 11) 'standtage ist TextBox13.Value = Format(ListBox1.List(Me.ListBox1.ListIndex, 12), "##,###.##") ' _ Erlös mit mwst TextBox14.Value = Format(ListBox1.List(Me.ListBox1.ListIndex, 13), "##,###.##") 'mwst TextBox15.Value = Format(ListBox1.List(Me.ListBox1.ListIndex, 14), "##,###.##") ' _ Nettoerlös TextBox16.Value = ListBox1.List(Me.ListBox1.ListIndex, 15) 'noch nicht belegt TextBox17.Value = ListBox1.List(Me.ListBox1.ListIndex, 16) 'käufer TextBox18.Value = ListBox1.List(Me.ListBox1.ListIndex, 17) 'wert eintausch TextBox19.Value = ListBox1.List(Me.ListBox1.ListIndex, 18) 'bemerkung bleibt hier stehen, Eigenschaft List konnte nicht abgerufen werden.!!!! FundZeile = ListBox1.List(Me.ListBox1.ListIndex, 19) CommandButton1.Enabled = False ' den Übernehmen-Button sperren CommandButton3.Enabled = True ' den Ändern-Button freigeben CommandButton4.Enabled = True ' den Löschen-Button freigeben gruß walter b End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Guten Abend Hajo,
die Liste hat 19 Spalten.
Hier das Makro der UF.

Private Sub UserForm_Activate()
'--------------- für die Bildschirmanpassung ----------------------------------
Dim hwndForm  As Long
Dim hwndMenu  As Long
Dim intY      As Integer
Dim intLast   As Integer
Dim intNext   As Integer
Dim UserForm
' On Error Resume Next
'Dim UserForm
'--------------- für Bildschirmanpassung ------
'  With Me
'       .StartUpPosition = 0
'      .Top = 0
'      .Left = 0
'      .Height = GetDeviceCaps(GetDC(0&), HORZRES)
'      .Width = GetDeviceCaps(GetDC(0&), VERTRES)
'  End With
'  ReleaseDC 0, GetDC(0&)                                         'hiermit verankern
'  hwndForm = FindWindow(GC_CLASSNAMEMSEXCELFORM, Me.Caption)     'hiermit verankern
If hwndForm  0 Then
hwndMenu = GetSystemMenu(hwndForm, 0)
If hwndMenu  0 Then DeleteMenu hwndMenu, SC_MOVE, MF_BYCOMMAND
End If
Dim lLetzte  As Long
Dim lLetzte1 As Long
Dim sBlattname  As String
sBlattname = ActiveSheet.Name
' Dim aTmp
Dim iIndx  As Integer
Dim iTop   As Integer
Dim iLeft  As Integer
iTop = 244
For iIndx = 1 To 19 ' 16 Label
With Controls("Label" & iIndx)
.Height = 18
.Left = 92                         '12
.Top = iTop
.Width = 90
.Font.Size = 9
.TextAlign = 3
End With
iTop = iTop + 20
Next iIndx
iTop = 240
For iIndx = 1 To 19 ' 16 TextBoxes
With Controls("TextBox" & iIndx)
.Height = 20
.Left = 190                    '106
.Top = iTop
.Width = 120
.Font.Size = 9
.TextAlign = fmTextAlignCenter
End With
iTop = iTop + 20
Next iIndx
TextBox1.Width = 60
TextBox2.Width = 60
Me.Caption = "Daten erfassen, ändern, löschen."
' Me.Width = 1000
' Me.Height = 700
Call Array_fuellen
With ListBox1        ' betrifft die ListBox1
.Height = 120     ' die Höhe festlegen
.Left = 20        ' den linken Randabstand festlegen
.Top = 95         ' den oberen Randabstand festlegen
.Width = 1100      ' die Breite festlegen
.Font.Size = 10    ' die Schriftgröße festlegen
.ForeColor = RGB(0, 0, 255) ' Schriftfarbe immer mit RGB
.ColumnCount = 19  ' die Anzahl der Spalten festlegen
' die Breite der Spalten festlegen
.TextAlign = fmTextAlignCenter
'  .ColumnWidths = _
("6,5 cm;3,0 cm;1,2 cm;2,5 cm;3,0 cm;2,5 cm;2,5 cm;4,0 cm")
'--------------------- Marken   Typ    StammNr    EK   Chas. DtVk. Tage   Erl.  mwst  _
Netto   --     Käuf    Wert  BEM    ---
.ColumnWidths = _
("1 cm;2 cm;1,9 cm;1,9 cm;1,8 cm;3,3 cm;2,3 cm;2 cm;2,5 cm;1,5 cm;2 cm;0,8 cm;2,5 cm;2  _
cm;2,5 cm;0,5 cm;3,5 cm;2,3 cm;1 cm")
'  .Clear            ' die ListBox leeren
' .Column = aTmp
End With
CommandButton1.Enabled = True  ' den Übernehmen-Button entsperren
'CommandButton2.Enabled = True  ' den Suchen-Button entsperren
CommandButton3.Enabled = False ' den Ändern-Button sperren
CommandButton4.Enabled = False ' den Löschen-Button sperren
With ThisWorkbook.Worksheets("Herkunft")
lLetzte = IIf(.Range("S65536")  "", 65536, .Range("S65536").End(xlUp).Row)
If lLetzte

gruß walter b

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

List macht fehler

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread