Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1604to1608
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Werte in eine Listbox schreiben
09.02.2018 12:44:21
Mia
Hallo zusammen,
ich hoffe mir kann jemand helfen.
Ich habe ein Suchbegriff (der auch öfters auftreten kann), der in der Mappe "Gesamt gesucht wird. Wenn der Suchbegriffe in einer Excel-Mappe gefunden wird, sollen die Werte in der Zeile wo er gefunden wird in eine Listbox geschrieben werden.
Die Suchfunktion funktioniert, aber ich bekomme es nicht hin die Werte in die Listbox zu schreiben. Ich bekomme immer eine Fehlermeldung und ich weiß nicht wie ich es sonst lösen soll:
Private Sub btnSuchen_Click()
Dim rngCell As Range
Dim m_stAddress As String
Dim InI As Integer
Dim InZeile As Integer
With ListBox1
.ColumnCount = 3
.ColumnWidths = "2cm;1cm;4cm"
End With
With Sheets("Gesamt")
InZeile = 2
Set rngCell = Rows.Find(txtSuche, LookIn:=xlValues, lookAt:=xlWhole, MatchCase:=False)
If Not rngCell Is Nothing Then
m_stAddress = rngCell.Address
Do
Set rngCell = Rows.FindNext(rngCell)
InI = rngCell.Row
ListBox1.AddItem .Range("A" & InI)
ListBox1.List(InZeile, 1).AddItem.Range ("G" & InI)
ListBox1.List(InZeile, 2).AddItem.Range ("D" & InI)
ListBox1.List(InZeile, 3).AddItem.Range ("AV" & InI)
InZeile = InZeile + 1
Loop While Not rngCell Is Nothing And rngCell.Address  m_stAddress
Else
MsgBox "Suchbegriff wurde nicht gefunden"
End If
End With
End Sub

Vorab vielen Dank für Eure Unterstützung

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

Betreff
Datum
Anwender
Anzeige
AW: Werte in eine Listbox schreiben
09.02.2018 15:59:16
Sepp
Hallo Mia,
ungetestet!
Private Sub btnSuchen_Click()
  Dim rngCell As Range
  Dim m_stAddress As String

  With Listbox1
    .ColumnCount = 4
    .ColumnWidths = "2cm;2cm;1cm;4cm"
    .Clear
  End With
  
  With Sheets("Gesamt")
    Set rngCell = .Rows.Find(txtSuche, LookIn:=xlValues, lookAt:=xlWhole, MatchCase:=False)
    If Not rngCell Is Nothing Then
      m_stAddress = rngCell.Address
      Do
        Listbox1.AddItem .Range("A" & rngCell.Row)
        Listbox1.List(Listbox1.ListCount - 1, 1) = .Range("G" & rngCell.Row)
        Listbox1.List(Listbox1.ListCount - 1, 2) = .Range("D" & rngCell.Row)
        Listbox1.List(Listbox1.ListCount - 1, 3) = .Range("AV" & rngCell.Row)
        Set rngCell = .Rows.FindNext(rngCell)
      Loop While Not rngCell Is Nothing And rngCell.Address <> m_stAddress
    Else
      MsgBox "Suchbegriff wurde nicht gefunden"
    End If
  End With

End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media

Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Gruß Sepp

Anzeige
AW: Werte in eine Listbox schreiben
13.02.2018 18:44:32
Mia
Danke, hat wunderbar funktioniert

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige