Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
listbox werte in tabelle suchen
16.02.2009 12:03:00
kirsche
hallo leute,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: listbox werte in tabelle suchen
16.02.2009 16:01:00
fcs
Hallo Kirsche,
ungetestet so mit Suchfunktion.
Gruß
Franz

Private Sub CommandButton1_Click()
Dim iList As Integer, wksUeber As Worksheet
Dim rngZelle As Range, rngBereich As Range
Set wksUeber = Worksheets("Uebersicht")
With wksUeber
'Zu durchsuchender Datenbereich Spalte A
Set rngBereich = .Range(.Cells(4 - 1, 1), .Cells(.Rows.Count, 1).End(xlUp))
'Bereich in Spalte U leeren
rngBereich.Offset(0, 20).ClearContents
End With
With ListBox1
For iList = 0 To .ListCount - 1
If .Selected(iList) Then
'Artikelnummer suchen
Set rngZelle = rngBereich.Find(what:=.List(iList, 0), LookIn:=xlValues, _
lookat:=xlWhole)
If rngZelle Is Nothing Then
MsgBox "Artikel-nr. """ & .ListBox(iList, 0) & """ nicht gefunden!"
Else
wksUeber.Cells(rngZelle.Row, 21).Value = .List(iList)
End If
End If
Next iList
End With
End Sub


Anzeige
AW: listbox werte in tabelle suchen
16.02.2009 20:37:00
kirsche
hallo franz,
danke für deine hilfe, das makro funktioniert super, voll freu hier.
allerdings habe ich eine zeile noch angepasst.
MsgBox "Artikel-nr. """ & .ListBox(iList, 0) & """ nicht gefunden!"
da mußte die Box weichen, denn sonst springt der debugger an.
gruß kirsche

338 Forumthreads zu ähnlichen Themen


Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
Anzeige

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
Anzeige

Hallo zusammen,
kann man ein Makro starten, wenn sich in einem definierten Tabellenbereich ein Wert ändert? Wie geht das?
Danke im Voraus und Grüße,
Ulrich

Hallo liebe Excelianer,
gibt es eine Formel, die die Anzahl verschiedener Zelleninhalte für einen Bereich ermittelt? Zum Beispiel wenn ich 15 Zellen hätte, in denen 3mal die 5 steht und 12mal die 7 steht. Da ja nur 2 verschiedene Werte in den 15 Zellen stehen, müsste also 2 herauskommen. Nu...

Guten Abend
Ich möchte mit Hilfe einer Funktion (z.B. yWert) abfragen, ob innerhalb einem benannten Bereich (z.B. "Zahlenteil") positive oder negative Werte in ausgeblendeten Zeilen enthalten sind. Falls dies zutrifft, sollte die Rückgabe der Tabellenname sowie die betreffenden Zelladressen...
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige