kostenloser Webspace werbefrei: lima-city

Excel listbox

lima-city → Forum → Programmiersprachen → Basic

1. Autor dieses Themas

   youtvti

   youtvti hat kostenlosen Webspace.

   16:01, 12.1.2015

   ich brauhe Hilfe bei Excel bei Übertragen von ListBox in andere Userform
   
   Tabelle seid so aus
   

   A                 B         C           D 
   1    Name       Art        Link         Andere
   2   abcd         yyy       xyz           yxc
   3   zyx            eee     aaaa         eee

   
   
   Dann hab ich Userform (Startseite) und in dieser Userform ist ListBox1
   

   Name       Art       Andere
   abcd         yyy      yxc
   zyx           eee     eee

   
   
   Übertrtagen Von Tabelle ins ListBox
   
   Suchen
   

   Private Sub SuchenButton_Click()
       'ListBox Suchen
       Dim rngCell As Range
       Dim strFirstAddress As String
       If Suchbox = "" Then MsgBox "Geben Sie Suchbegriff ein": Exit Sub
       With Worksheets("ZugDat").Range("A:A")
           Me.ListBox1.Clear
           Set rngCell = .Find(Me.Suchbox.Value, LookIn:=xlValues, lookat:=xlWhole)
           If Not rngCell Is Nothing Then
               strFirstAddress = rngCell.Address
           Do
               With Me.ListBox1
                   .ColumnCount = 7
                   .AddItem
                   .List(.ListCount - 1, 0) = rngCell.Value
                   .List(.ListCount - 1, 1) = rngCell.Offset(0, 1).Value
                   .List(.ListCount - 1, 2) = rngCell.Offset(0, 3).Value
                   .List(.ListCount - 1, 3) = rngCell.Offset(0, 5).Value
                   .List(.ListCount - 1, 4) = rngCell.Offset(0, 6).Value
                   .List(.ListCount - 1, 5) = rngCell.Offset(0, 7).Value
                   .List(.ListCount - 1, 6) = rngCell.Offset(0, 8).Value
                   .ColumnWidths = "4cm;2,5cm;4cm;3,5cm;1,8cm;2cm"
               End With
               Set rngCell = .FindNext(rngCell)
               Loop While Not rngCell Is Nothing And rngCell.Address <> strFirstAddress
               Else
               MsgBox "Kein ergebnis gefunden", 48
           End If
       End With
   End Sub

   
   durch button alles anzeigen
   

   Private Sub AnzeigenButton_Click()
   'Alles Anzeigen
       Dim InI As Long
       Dim InZeile As Integer
       With Sheets("ZugDat")
       Me.ListBox1.Clear
           With ListBox1
               .ColumnCount = 7
               .ColumnWidths = "4cm;2,5cm;4cm;3,5cm;1,8cm;2cm"
           End With
           For InI = 2 To .UsedRange.Rows.Count
               If Cells(InI, 9) <> "" Then
                   ListBox1.AddItem .Range("A" & InI)
                   ListBox1.List(InZeile, 1) = .Range("B" & InI)
                   ListBox1.List(InZeile, 2) = .Range("D" & InI)
                   ListBox1.List(InZeile, 3) = .Range("F" & InI)
                   ListBox1.List(InZeile, 4) = .Range("G" & InI)
                   ListBox1.List(InZeile, 5) = .Range("H" & InI)
                   ListBox1.List(InZeile, 6) = .Range("I" & InI)
                   InZeile = InZeile + 1
               End If
           Next InI
       End With
   End Sub

   
   in dieser Userform(Startseite) ist noch ein button um UserForm(Vorschau) zu offnen
   in dieser Userform (Vorschau) sind Textboxen
   
   

   ]NameBox    ArtBox     LinkBox    AndereBox

   
   Übertragen von ListBox in Userform(Vorschau)
   

   Private Sub OffnenButton_Click()
       If ListBox1 <> True Then
          With ListBox1
               Vorschau.NameBox = .List(.ListIndex, 0)
               Vorschau.ArtBox = .List(.ListIndex, 1)
               Vorschau.LinkBox = Sheets("ZugDat").Range("c3")
               
               
           End With
           Vorschau.Show
       Else
           MsgBox "Bitte wählen Sie mindestens einen Eintrag aus"
       End If
   End Sub

   
   
   jetzt will ich bei auswahl z.B abc auch entsprechende LinkBox von tabelle wert anzeigt
   
   
   
   Beitrag zuletzt geändert: 12.1.2015 16:10:48 von youtvti

2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

3. bsg-zurich

   bsg-zurich hat kostenlosen Webspace.

   8:18, 2.4.2015

   ist das Thema noch aktuell?
   
   Kann es sein, dass die Ausgangstabelle mehr Spalten hat als nur 4? Du ziehst z.B. beim befüllen der ListBox Werte aus Spalte 8.
   
   

4. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?