und wieder komme ich nicht weiter und brauche eure hilfe.
ich befülle eine listbox mit den daten aus einer hilfstabelle. nun werden über multiselect werte ausgewählt. über commandbutton1 schreibe ich diese werte in einen 2. tabelle, welche übersicht heißt. das funktioniert auch einwandfrei.
mein makro dazu:
Private Sub UserForm_Initialize()
Dim inZeile As Integer
Dim iIndex As Integer
Dim wks_HT As Worksheet
Dim mittelwert_west As Single
Dim mittelwert_ost As Single
Dim west As Integer
Set wks_HT = Worksheets("Hilfstabelle")
iIndex = 0
For inZeile = 3 To wks_HT.Range("A65535").End(xlUp).Row
With ListBox1
.AddItem ""
.List(iIndex, 0) = wks_HT.Cells(inZeile, 1).Value 'art.nr.
.List(iIndex, 1) = wks_HT.Cells(inZeile, 2).Value 'artikeltext
.List(iIndex, 2) = wks_HT.Cells(inZeile, 4).Value 'lieferant
.List(iIndex, 3) = wks_HT.Cells(inZeile, 20).Value & " " & _
wks_HT.Cells(inZeile, 21).Value & " " & _
wks_HT.Cells(inZeile, 22).Value & " " & _
wks_HT.Cells(inZeile, 23).Value & " " & _
wks_HT.Cells(inZeile, 24).Value 'werbeschiene
iIndex = iIndex + 1
End With
Next inZeile
End Sub
Private Sub CommandButton1_Click()
Dim iList As Integer, iRow As Integer
iRow = 4 - 1
Worksheets("Uebersicht").Range(Worksheets("Uebersicht").Cells(iRow, 21), _
Worksheets("Uebersicht").Cells(iRow + ListBox1.ListCount, 21)).ClearContents
With ListBox1
For iList = 0 To .ListCount - 1
If .Selected(iList) Then
iRow = iRow + 1
Worksheets("Uebersicht").Cells(iRow, 21).Value = .List(iList)
End If
Next iList
End With
End Sub
nun mein problem:
in der übersicht stehen die artikelnummern in jeder 5 zelle in spalte A.
Bsp.
A4 = 1. artikelnummer
A9 = 2. artikelnummer
A14 = 3. artikelnummer ect.
nun soll der wert aus der listbox in spalte A gesucht werden und dann in spalte U eingetragen werden.
sprich: wenn 3. art.nr. angeklickt, dann soll der wert in U14 eingetragen werden und nicht wie in meinem makro in die erste freie zelle.
kann mir da jemand weiter helfen?
gruß kirsche