VBA Userform Listbox Feldname eintragen

Computer: Software & Programmierung Office Software
#1

Liebe User,
ich bitte um Hilfe!!
Ich habe eine UserForm erstellt, die sucht den Eintrag der Textbox (Button suchen) in der Tabelle und gibt den Inhalt in eine Listbox. Das läuft echt prima. Gesucht wird in (B4:B)

Ich würde gerne in die Zeile (selbe Tabelle), durch DoppelClick des markierten Eintrages aus der Listbox oder Button, springen!!!  Ist das möglich??

Alternative :
In der Listbox soll an der ersten Stelle der Feldname stehen (z.B. B25)

Oder Feldname (z.B. B25) in label16

Danke für Eure Hilfe

#2

Liebe User,

Liebe® weis(s) nicht weiter,

Ich habe eine UserForm erstellt, die sucht den Eintrag der
Textbox (Button suchen) in der Tabelle und gibt den Inhalt in
eine Listbox. Das läuft echt prima. Gesucht wird in (B4:B)

Korrigiere mich, aber ich glaube, die Syntax (B4:B) geht nicht.

Ich würde gerne in die Zeile (selbe Tabelle), durch
DoppelClick des markierten Eintrages aus der Listbox oder
Button, springen!!!  Ist das möglich??

Versuch es mal mit diesem Code im Codebereich der Userform:

Private Sub ListBox1\_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 With ActiveSheet
 .Range("B" & .Range("B4:B" & .Rows.Count).Find(what:=ListBox1.Value).Row).EntireRow.Select
 End With
End Sub

Musst du vermutlich noch ein Bisschen anpassen.

Danke für Eure Hilfe

Bitte, Gruß,
Andreas

#3

Hallo Andreas,
danke der Code klappt soweit, nach DblClick springt er in die Zeile des Eintrages!! Wenn ich aber mehrere Fundstellen in der Listbox habe, wird in die Zeile des ersten Eintrages gesprungen.(z.B: Fundstelle 1= B6 ; 2 = B10 ; 3 = B75) Es wird immer B6 markiert!! Ist eine zeilengezogene Abfrage möglich???
Danke für die Hilfe

#4

Dann versuch’ es mal mit diesem Code hier:

Private Sub ListBox1\_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 Dim zeilen As String, z As Long
 Dim eintrag As Long

 With ListBox1
 For eintrag = 0 To .ListCount - 1
 If .Selected(eintrag) Then
 z = ActiveSheet.Range("B4:B" & ActiveSheet.Rows.Count).Find(what:=ListBox1.List(eintrag)).Row
 zeilen = zeilen & "," & z & ":" & z
 End If
 Next eintrag
 End With
 zeilen = Mid(zeilen, 2)
 ActiveSheet.Range(zeilen).Select
End Sub

Es werden damit alle Zeilen markiert, die den ausgewählten Einträgen in der Listbox entsprechen.

Gruß, Andreas

#5

Hallo Andreas,
mit zeilen = zeilen & „,“ … kann ich nichts anfangen, falls das Trenner seien sollen!!
Irgendwie ist da der Wurm drinn. In die Textbox trage ich einen Namen ein, Abfrage und eintrag der Gefundenen Daten in die Listbox durch Button „übertrag“

Mein Code
Private Sub übertrag_Click()

Dim rngCell As Range
Dim strFirstAddress As String
Me.ListBox1.Clear
With Worksheets(„tabelle1“).Range(„b:b“)
Set rngCell = .Find(Me.textbox1.Value, LookIn:=xlValues, Lookat:=xlWhole)
If Not rngCell Is Nothing Then
strFirstAddress = rngCell.Address
Do
With Me.ListBox1
.ColumnCount = 11

.AddItem
.List(.ListCount - 1, 0) = rngCell.Value
.List(.ListCount - 1, 1) = rngCell.Offset(0, 1).Value
.List(.ListCount - 1, 2) = rngCell.Offset(0, 2).Value
.List(.ListCount - 1, 3) = rngCell.Offset(0, 3).Value
.List(.ListCount - 1, 4) = rngCell.Offset(0, 4).Value
.List(.ListCount - 1, 5) = rngCell.Offset(0, 5).Value
.List(.ListCount - 1, 6) = rngCell.Offset(0, 6).Value
.List(.ListCount - 1, 7) = rngCell.Offset(0, 7).Value
.List(.ListCount - 1, 8) = rngCell.Offset(0, 8).Value
.List(.ListCount - 1, 9) = rngCell.Offset(0, 9).Value
’ .List(.ListCount - 1, 10) = rngCell.Offset(0, 12).Value ‚‘’’ nur Zehn möglich

’ ListBox1.ColumnHeads = True
.ColumnWidths = „3,5cm;3,5cm;1,0cm;0,8cm;1,0cm;1,2cm;1,0cm;1,0cm;6,5cm;2,5“
End With
Set rngCell = .FindNext(rngCell)
Loop While Not rngCell Is Nothing And rngCell.Address strFirstAddress
Else
MsgBox „Keinen Namen gefunden“, 53
End If
End With
End Sub

Danke

#6

Hallo weis(s) nicht weiter,

so, wenn ich es richtig verstanden habe, hast du nach deinem Code eine gefüllte Listbox mit vielen Zeilen und 10 Spalten.
Dann willst du in der Listbox mehrere Spalten markieren. Wenn du anschließend einen Doppelklick in die Listbox machst, sollen in der Tabelle alle Zeilen ausgewählt werden, deren Einträge in der Listbox markiert waren. Stimmt das so weit?

Mir war vorher nicht klar, dass deine Listbox mehrere Spalten hat. Vielleicht musst du die eine Zeile in meinem Code so ändern:

z = ActiveSheet.Range("B4:B" & ActiveSheet.Rows.Count).Find(what:=ListBox1.List(eintrag, 0)).Row

Zu deiner Frage mit dem zeilen = … & „,“ …:
In der Stringvarialbe zeilen werden die Zeilennummern der Tabelle zusammengebaut, die am Ende selektiert werden sollen. Am Ende der Schleife steht dort z.B.

"5:5,9:9,15:15"

drin, wenn die Zeilen 5, 9 und 15 ausgewählt werden sollen.

Wenn jetzt noch nicht klappt, müsstest du deine Mappe mal hochladen, damit ich sie mir anschauen kann.

Gruß, Andreas

#7

Hallo Andreas,
DANKE für die schnelle Antworten. Ich werden W…! Springt nicht so wie ich mir wünsche, leider. Wie kann ich denn die Tabelle hochladen? Evtl. kannst Du dann das Problem erkennen. LG

#8

Holger hat dir ja weiter oben schon die richtige Antwort gegeben. Ich nehme da immer den ersten Link in der Liste:
http://www.file-upload.net/
Damit die Datei hochladen und den Downloadlink, den du dort bekommst, hier posten.

Gruß, Andreas

#9

Hier der Link
http://www.file-upload.net/download-10503352/Buchwer…

#10

Bei der Aufregung falsche Datei geladen :smile:,
hier der Link
http://www.file-upload.net/download-10503407/Buchwer…

#11

Hallo weis(s) nicht weiter,

hier habe ich dir eine geänderte Version hochgeladen:
http://www.file-upload.net/download-10503618/Buchwer…
(ACHTUNG!! Wenn du in deinem Browser keinen Werbeblocker benutzt, strotzt die Download-Seite von gefaketen Werbebuttons. Der richtige ist der blaue mit der kleinen weißen Wolke und dem Pfeil nach unten darin).

Probier die neue Version mal aus und gib ein Feedback.

Gruß und frohe Ostern,
Andreas

#12

Hallo Andreas,
läuft wunschgemäß!!! Danke, schöne Ostertage.