Option
Explicit
Private
Const
START_ROW
As
Long
= 2
Private
mlngListIndex
As
Long
Private
mblnNoClick
As
Boolean
Private
Sub
UserForm_Activate()
With
ListBox1
.List() = Worksheets(
"Tabelle1"
).Range(
"A2:H20000"
).Value
.ColumnWidths =
"50;70;50;70;50;50;50"
.ColumnCount = 7
.ColumnHeads =
True
End
With
End
Sub
Private
Sub
CommandButton1_Click()
Dim
lngColumn
As
Long
For
lngColumn = 1
To
7
Worksheets(
"Tabelle1"
).Cells(START_ROW + mlngListIndex, lngColumn).Value = _
CDbl
(Controls(
"TextBox"
& lngColumn).Value)
Next
Call
prcRefresh
End
Sub
Private
Sub
ListBox1_Click()
Dim
lngColumn
As
Long
If
Not
mblnNoClick
Then
With
ListBox1
For
lngColumn = 1
To
7
Controls(
"TextBox"
& lngColumn).Value = _
.List(pvargIndex:=.ListIndex, pvargColumn:=lngColumn - 1)
Next
mlngListIndex = .ListIndex
End
With
End
If
End
Sub
Private
Sub
prcRefresh()
Dim
lngColumn
As
Long
mblnNoClick =
Not
mblnNoClick
For
lngColumn = 1
To
7
ListBox1.List(pvargIndex:=mlngListIndex, pvargColumn:=lngColumn - 1) = _
Worksheets(
"Tabelle1"
).Cells(START_ROW + mlngListIndex, lngColumn).Value
Next
mblnNoClick =
Not
mblnNoClick
End
Sub