AW: Listbox mit 23 Spalten
22.10.2013 15:35:34
Ole
Hallo Rudi,
ich habe jetzt den CommandButton "Speichern" fertig gemacht und die dazugehörigen Anweisungen mit rein.
Bei Deiner Aussage "erweitere deine LBx auf 25 Spalten und schreib in die letzte Spalte die Zeilennummer (rngCell.Row) des Datensatzes. " komme ich nict ganz mit.
Den Wert ColumnCount habe ich erhöht, aber wo soll ich eintragen die Zeilennummer und rngCell.Row?
Ich bin doch noch ein Anfänger und versuche zu verstehen. War nur für mein kleines Hirn gerade zu viel. Hier der von mir erweiterte Code:
Private Sub cmdRaumNameSucheAlt_Click()
Dim rngCell As Range
Dim strFirstAddress As String
Dim arrList(), i As Long, j As Long
With Worksheets("Tabelle1").Range("A2:A63356")
Me.BearbeitungAlt.Clear
Set rngCell = .Find(Me.SucheRaumNameAlt.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not rngCell Is Nothing Then
strFirstAddress = rngCell.Address
ReDim arrList(1 To WorksheetFunction.CountIf(Worksheets("Tabelle1").Columns(1), _
SucheRaumNameAlt), 1 To 25)
Do
i = i + 1
For j = 0 To 23
arrList(i, j + 1) = rngCell.Offset(1, j)
Next
Set rngCell = .FindNext(rngCell)
Loop While Not rngCell Is Nothing And rngCell.Address strFirstAddress
With Me.BearbeitungAlt
.List = arrList
.ColumnCount = 25
.ColumnWidths = "2,5cm;2cm;2cm;1cm;1cm;1cm;1cm;2cm;2cm;1cm;1cm"
End With
Else
MsgBox "Raum-Name nicht gefunden", 48
End If
End With
End Sub
Private Sub BearbeitungAlt_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = BearbeitungAlt.List(BearbeitungAlt.ListIndex, 1)
TextBox2.Text = BearbeitungAlt.List(BearbeitungAlt.ListIndex, 2)
TextBox3.Text = BearbeitungAlt.List(BearbeitungAlt.ListIndex, 3)
TextBox4.Text = BearbeitungAlt.List(BearbeitungAlt.ListIndex, 4)
TextBox5.Text = BearbeitungAlt.List(BearbeitungAlt.ListIndex, 5)
TextBox6.Text = BearbeitungAlt.List(BearbeitungAlt.ListIndex, 6)
TextBox7.Text = BearbeitungAlt.List(BearbeitungAlt.ListIndex, 7)
TextBox8.Text = BearbeitungAlt.List(BearbeitungAlt.ListIndex, 8)
TextBox9.Text = BearbeitungAlt.List(BearbeitungAlt.ListIndex, 9)
TextBox10.Text = BearbeitungAlt.List(BearbeitungAlt.ListIndex, 10)
TextBox11.Text = BearbeitungAlt.List(BearbeitungAlt.ListIndex, 11)
TextBox12.Text = BearbeitungAlt.List(BearbeitungAlt.ListIndex, 12)
TextBox13.Text = BearbeitungAlt.List(BearbeitungAlt.ListIndex, 13)
TextBox14.Text = BearbeitungAlt.List(BearbeitungAlt.ListIndex, 14)
TextBox15.Text = BearbeitungAlt.List(BearbeitungAlt.ListIndex, 15)
TextBox16.Text = BearbeitungAlt.List(BearbeitungAlt.ListIndex, 16)
TextBox17.Text = BearbeitungAlt.List(BearbeitungAlt.ListIndex, 17)
TextBox18.Text = BearbeitungAlt.List(BearbeitungAlt.ListIndex, 18)
TextBox19.Text = BearbeitungAlt.List(BearbeitungAlt.ListIndex, 19)
TextBox20.Text = BearbeitungAlt.List(BearbeitungAlt.ListIndex, 20)
TextBox21.Text = BearbeitungAlt.List(BearbeitungAlt.ListIndex, 21)
TextBox22.Text = BearbeitungAlt.List(BearbeitungAlt.ListIndex, 22)
End Sub
Private Sub ComboBox1_Change()
SucheRaumNameAlt.Text = ComboBox1.Text
End Sub
Private Sub UserForm_Initialize()
Worksheets("Tabelle1").Activate
ActiveSheet.Unprotect ""
ComboBox1.List = Worksheets("Tabelle1").Range("A2").CurrentRegion.Value
ComboBox1.ListIndex = 0
End Sub
Private Sub LampeSpeichern_Click()
With Range("Tabelle1!A2:X510")
Tabelle1.Cells(BearbeitungAlt.ColumnCount(24), 1) = TextBox1
Tabelle1.Cells(BearbeitungAlt.ColumnCount(24), 2) = TextBox2
Tabelle1.Cells(BearbeitungAlt.ColumnCount(24), 3) = TextBox3
Tabelle1.Cells(BearbeitungAlt.ColumnCount(24), 4) = TextBox4
Tabelle1.Cells(BearbeitungAlt.ColumnCount(24), 5) = TextBox5
Tabelle1.Cells(BearbeitungAlt.ColumnCount(24), 6) = TextBox6
Tabelle1.Cells(BearbeitungAlt.ColumnCount(24), 7) = TextBox7
Tabelle1.Cells(BearbeitungAlt.ColumnCount(24), 8) = TextBox8
Tabelle1.Cells(BearbeitungAlt.ColumnCount(24), 9) = TextBox9
Tabelle1.Cells(BearbeitungAlt.ColumnCount(24), 10) = TextBox10
Tabelle1.Cells(BearbeitungAlt.ColumnCount(24), 11) = TextBox11
Tabelle1.Cells(BearbeitungAlt.ColumnCount(24), 12) = TextBox12
Tabelle1.Cells(BearbeitungAlt.ColumnCount(24), 13) = TextBox13
Tabelle1.Cells(BearbeitungAlt.ColumnCount(24), 14) = TextBox14
Tabelle1.Cells(BearbeitungAlt.ColumnCount(24), 15) = TextBox15
Tabelle1.Cells(BearbeitungAlt.ColumnCount(24), 16) = TextBox16
Tabelle1.Cells(BearbeitungAlt.ColumnCount(24), 17) = TextBox17
Tabelle1.Cells(BearbeitungAlt.ColumnCount(24), 18) = TextBox18
Tabelle1.Cells(BearbeitungAlt.ColumnCount(24), 19) = TextBox19
Tabelle1.Cells(BearbeitungAlt.ColumnCount(24), 20) = TextBox20
Tabelle1.Cells(BearbeitungAlt.ColumnCount(24), 21) = TextBox21
Tabelle1.Cells(BearbeitungAlt.ColumnCount(24), 22) = TextBox22
End Sub