Datum

Titel

25.04.2024 00:42:03

Listbox mit gefilterten Daten füllen

24.04.2024 20:38:58

Summe mit Bedingung, nur letzte Ergebnisse anzeigen

24.04.2024 19:29:30

Formel filter

24.04.2024 18:49:56

merge & select

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1916to1920

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Suchen und Auflisten

Forumthread: Suchen und Auflisten
8 Beiträge zu diesem Forumthread
Anzeige
303 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Excel Dialoge
Top 100 Forumthreads

31.01.2023 11:28:37

Antonio

Hallo Gemeinde,
in einer Tabelle Spalte "A", suche ich nach einen String.
UF mit zwei ListBox.
Im ListBox4 ist die Spalte "A" aufgelistet.
Mit ein Click in ListBox4 möchte ich gerne in ListBox1 die Werte vom angecklickten String in ListBox4 darstellen.
Habe eine Mappe vorbereitet mit ein Paar Erklärungen.
https://www.herber.de/bbs/user/157567.xlsx
Vielen Dank im Voraus
LG Antonio

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Suchen und Auflisten

31.01.2023 12:30:41

Rudi
AW: Suchen und Auflisten

31.01.2023 12:41:34

Antonio
AW: zum verdeutlichen

31.01.2023 12:50:09

Antonio
AW: zum verdeutlichen

31.01.2023 13:17:05

Rudi
AW: zum verdeutlichen

31.01.2023 13:34:24

Antonio
Code komplett

31.01.2023 14:08:09

Rudi
AW: Code komplett

31.01.2023 14:15:55

Antonio
AW: mein Fehler

31.01.2023 14:17:49

Antonio

AW: Suchen und Auflisten

31.01.2023 12:30:41

Rudi

Hallo,

Private Sub ListBox4_Click()
  Dim a, rF As Range
  Set rF = Columns(1).Find(what:=ListBox4, lookat:=xlWhole)
  a = rF.CurrentRegion.Offset(, 1).Resize(, 6)
  With ListBox1
    .ColumnCount = 6
    .List = a
  End With
End Sub

Gruß
Rudi

AW: Suchen und Auflisten

31.01.2023 12:41:34

Antonio

Hallo Rudi, danke für die Rückmeldung,
aber die Bereiche mit den Werte sind unterschiedlich lang,
Der erste String "CMaj" funzt, beim nächte holte er mir viele Zeilen dann gibt es ein Fehler
LG Antonio

AW: zum verdeutlichen

31.01.2023 12:50:09

Antonio

https://www.herber.de/bbs/user/157568.jpg
https://www.herber.de/bbs/user/157569.jpg
LG

AW: zum verdeutlichen

31.01.2023 13:17:05

Rudi

Hallo,
die 'Leerzellen' in B:G sind nicht immer wirklich leer.
Versuch's mal damit

Private Sub ListBox4_Click()
  Dim a, rF As Range
  Set rF = Columns(1).Find(what:=ListBox4, lookat:=xlWhole)
  a = Range(rF, rF.End(xlDown).Offset(-1)).Offset(, 1).Resize(, 6)
  With ListBox1
    .ColumnCount = 6
    .List = a
  End With
End Sub

Gruß
Rudi

AW: zum verdeutlichen

31.01.2023 13:34:24

Antonio

Hallo,
ich habe nachkontrolliert, die Zellen sind leer, aber jetzt funzt.
Habe versucht das worksheet im Code anzubinden, weil wenn eine andere Tabelle offen ist gibt es den Fehler.
bist so nett und schaust drüber?

Private Sub ListBox4_Click()
  Dim a, rF As Range
  Dim wks As Worksheet
  ListBox1.Clear
  Set wks = Sheets("Bünde")
  With wks
  Set rF = Columns(1).Find(what:=ListBox4, lookat:=xlWhole)
  a = rF.CurrentRegion.Offset(, 1).Resize(, 6)
  With ListBox1
    .ColumnCount = 6
    .List = a
  End With
  End With
End Sub

Sorry aber hat nicht zugelassen Code...usw. einzufügen
LG

Code komplett

31.01.2023 14:08:09

Rudi

Private Sub ListBox4_Click()
  Dim a, rF As Range
    
  With Sheets("Bünde")
    Set rF = .Columns(1).Find(what:=ListBox4, lookat:=xlWhole)
    a = .Range(rF, rF.End(xlDown).Offset(-1)).Offset(, 1).Resize(, 6)
  End With
  
  With ListBox1
    .Clear
    .ColumnCount = 6
    .List = a
  End With
  
End Sub

AW: Code komplett

31.01.2023 14:15:55

Antonio

Sorry Rudi,
aber der Fehler ist immer noch da:
https://www.herber.de/bbs/user/157570.jpg
LG

AW: mein Fehler

31.01.2023 14:17:49

Antonio

Sorry
mein Fehler
funzt alles
Vielen vielen Dank
LG Antonio