Puh, war nicht leicht zu finden ...
Option Explicit
Private Sub UserForm_Activate()
Call FillListBox
End Sub
Sub FillListBox()
Dim lRow As Long, Ze As Long, Anz As Long, Pos As Long, x As Variant
With ListBox1
.RowSource = vbNullChar
Anz = .ListCount
lRow = Sheets("0_Stammd_FLA").Cells(Rows.Count, 3).End(xlUp).Row
For Ze = 2 To lRow
Me.ListBox1.AddItem (Sheets("0_Stammd_FLA").Cells(Ze, 3))
Next Ze
End With
End Sub
Private Sub ComboBox1_Click()
Spalte = 21
Zeile = (ComboBox1.ListIndex + 2)
End Sub
Private Sub ListBox1_Click()
Dim Spalte As Integer, Zeile As Long
Spalte = 3
Zeile = (ListBox1.ListIndex + 2)
With Worksheets(1)
Me.TextBox3 = .Cells(Zeile, Spalte)
Me.TextBox4 = .Cells(Zeile, Spalte + 1)
Me.TextBox5 = .Cells(Zeile, Spalte + 2)
Me.TextBox6 = .Cells(Zeile, Spalte + 3)
Me.TextBox7 = .Cells(Zeile, Spalte + 4)
Me.TextBox8 = .Cells(Zeile, Spalte + 5)
Me.TextBox9 = .Cells(Zeile, Spalte + 6)
Me.TextBox10 = .Cells(Zeile, Spalte + 7)
Me.TextBox11 = .Cells(Zeile, Spalte + 8)
Me.TextBox14 = .Cells(Zeile, Spalte + 11)
Me.TextBox17 = .Cells(Zeile, Spalte + 14)
Me.TextBox18 = .Cells(Zeile, Spalte + 15)
Me.TextBox19 = .Cells(Zeile, Spalte + 16)
Me.TextBox30 = .Cells(Zeile, Spalte + 27)
Me.TextBox32 = .Cells(Zeile, Spalte + 29)
Me.TextBox33 = .Cells(Zeile, Spalte + 30)
Me.TextBox34 = .Cells(Zeile, Spalte + 31)
Me.TextBox35 = .Cells(Zeile, Spalte + 32)
Me.TextBox36 = .Cells(Zeile, Spalte + 33)
Me.TextBox37 = .Cells(Zeile, Spalte + 34)
Me.TextBox38 = .Cells(Zeile, Spalte + 35)
Me.TextBox39 = .Cells(Zeile, Spalte + 36)
Me.TextBox40 = .Cells(Zeile, Spalte + 37)
Me.TextBox41 = .Cells(Zeile, Spalte + 38)
Me.TextBox42 = .Cells(Zeile, Spalte + 39)
Me.TextBox43 = .Cells(Zeile, Spalte + 40)
Me.TextBox44 = .Cells(Zeile, Spalte + 41)
End With
Call FillListBox
End Sub
Private Sub CommandButton1_Click()
Dim Spalte As Integer, Zeile As Long
Spalte = 3
Zeile = (ListBox1.ListIndex + 2)
With Worksheets(1)
.Cells(Zeile, Spalte) = Me.TextBox3
.Cells(Zeile, Spalte + 1) = Me.TextBox4
.Cells(Zeile, Spalte + 2) = Me.TextBox5
.Cells(Zeile, Spalte + 3) = Me.TextBox6
.Cells(Zeile, Spalte + 4) = Me.TextBox7 & "**"
.Cells(Zeile, Spalte + 5) = Me.TextBox8
.Cells(Zeile, Spalte + 6) = Me.TextBox9
.Cells(Zeile, Spalte + 7) = Me.TextBox10
.Cells(Zeile, Spalte + 8) = Me.TextBox11
.Cells(Zeile, Spalte + 11) = Me.TextBox14
.Cells(Zeile, Spalte + 14) = Me.TextBox17
.Cells(Zeile, Spalte + 15) = Me.TextBox18
.Cells(Zeile, Spalte + 16) = Me.TextBox19
.Cells(Zeile, Spalte + 27) = Me.TextBox30
.Cells(Zeile, Spalte + 29) = Me.TextBox32
.Cells(Zeile, Spalte + 30) = Me.TextBox33
.Cells(Zeile, Spalte + 31) = Me.TextBox34
.Cells(Zeile, Spalte + 32) = Me.TextBox35
.Cells(Zeile, Spalte + 33) = Me.TextBox36
.Cells(Zeile, Spalte + 34) = Me.TextBox37
.Cells(Zeile, Spalte + 35) = Me.TextBox38
.Cells(Zeile, Spalte + 36) = Me.TextBox39
.Cells(Zeile, Spalte + 37) = Me.TextBox40
.Cells(Zeile, Spalte + 38) = Me.TextBox41
.Cells(Zeile, Spalte + 39) = Me.TextBox42
.Cells(Zeile, Spalte + 40) = Me.TextBox43
.Cells(Zeile, Spalte + 41) = Me.TextBox44
End With
End Sub
Private Sub CommandButton2_Click()
Unload UserForm1
End Sub
So sollte es gehen. Und ab jetzt dürfen sich Helfer-Kollegen damit beschäftigen, wenn noch etwas nicht klappt (was gewiss kommt).
Gruß
Günther
|