Von Listbox durch Doppelklick in andere Listbox?

Wie funktioniert das ???

2 Antworten

Vom Beitragsersteller als hilfreich ausgezeichnet

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Computer

22.10.2018, 15:25

Möchtest du einfach ein Item in der ersten Listbox doppelklicken können, damit es dann in der zweiten Listbox erscheint? Dann geht das so (vba):

Private Sub LB1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    LB2.AddItem LB1.List(LB1.ListIndex)
End Sub

Elifsahin

Beitragsersteller

23.10.2018, 13:23

ich habe in Screen reingemacht aber ich glaube, das sieht man nicht

Gaterde

23.10.2018, 14:00

@Elifsahin

Lade das Bild hier hoch und sende mir den Link:

https://de.imgbb.com/

Kann mir dein Problem gerade nicht vorstellen :)

Elifsahin

Beitragsersteller

23.10.2018, 14:09

@Gaterde

https://ibb.co/h38kbV

Gaterde

23.10.2018, 14:23

@Elifsahin

Dann versuche es so:

With Me.LB2
  .ColumnCount = 2
  .ColumnWidths = "60"
  .AddItem
  .List(i, 0) = LB1.List(LB1.ListIndex, 0)
  .List(i, 1) = LB1.List(LB1.ListIndex, 1)
  i = i + 1
End With

Elifsahin

Beitragsersteller

23.10.2018, 14:41

@Gaterde

danke ich versuch es mal !

Elifsahin

Beitragsersteller

23.10.2018, 14:50

@Elifsahin

es funktioniert, jedoch bildet sich keine Liste, bei je dem klicken auf den > Button löscht sich das vorherige

Gaterde

23.10.2018, 15:47

@Elifsahin

Mein Fehler. Versuche es so:

o = LB2.ListCount
With Me.LB2
  .ColumnCount = 2
  .ColumnWidths = "60"
  .AddItem
  .List(o, 0) = LB1.List(LB1.ListIndex, 0)
  .List(o, 1) = LB1.List(LB1.ListIndex, 1)
End With

Elifsahin

Beitragsersteller

23.10.2018, 15:50

@Gaterde

DANKE !!!!

Elifsahin

Beitragsersteller

23.10.2018, 13:23

ich will, dass der Vorname und Nachname nebeneinander stehen, wenn ich auf das button > klicke wird es in die 2. Listbox übernommen, jedoch nicht so wie ich es gerne hätte.

Elifsahin

Beitragsersteller

23.10.2018, 13:29

@Elifsahin

(Bild)

pushido

22.10.2018, 15:10

im Doppelklick Event vom ersten Listbox definiert man, was mit dem 2. Passieren soll...

Elifsahin

Beitragsersteller

22.10.2018, 15:13

habe ich versucht jedoch hat das nicht so geklappt

pushido

22.10.2018, 15:14

@Elifsahin

dann zeig mal dein code kurz...

Elifsahin

Beitragsersteller

22.10.2018, 15:17

@pushido

Private Sub LB1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

LB2.List(LB2.ListIndex, 0) = LB1.List(LB1.ListIndex, 0)

LB2.List(LB2.ListIndex, 1) = LB1.List(LB1.ListIndex, 1)

End Sub

pushido

22.10.2018, 15:34

@Elifsahin

was genau sollte passieren?

Elifsahin

Beitragsersteller

22.10.2018, 15:40

@pushido

etwas aus der LB1 listbox in die LB2 listbox übertragen
jedoch ist die ListBox wie man sieht getrennt in 2 Spalten

pushido

22.10.2018, 15:45

@Elifsahin

Das ist doch kein Problem...

bei mehrere Spalten nutzt man eigentlich ListView, statt Listbox...

Mit Listview kannst du dann einen neuen ListView Element erstellen und als Element hinzufügen...

Elifsahin

Beitragsersteller

23.10.2018, 13:20

@pushido

nicht listindex?

Ähnliche Beiträge

Ich möchte eine Listbox mit Spalten füllen?

Ich möchte eine Listbox mit Spalten füllen. Es können neue Daten hinzugefügt oder auch gelöscht werden. Habe lange im Internet gesucht. Es gibt bestimmt eine Möglichkeit die Listbox aus den obrigen Zeilen rauszulesen und sie in die listbox zu füllen. Diese Angaben will ich später in eine Datenbank Tabelle MSSQL füllen.

Wie mache ich das am besten/einfachsten? Ich habe mal eine Beispielsdatei hochgeladen. Sage schon jetzt mal "Vielen Dank" für eure Hilfe.

...zum Beitrag

VBA (Excel) Listbox Column Header Beschriftung?

Hallo!

Ich möchte in VBA bei einer mehrspaltigen Listbox die Header der einzelnen
Columns beschriften. Die Daten bezieht die Listbox allerdings nicht aus einer
vorformatierten Tabelle (RowScoure) sondern übere eine weitere Instanz im Code.

Die Eigenschaften der Listbox definiere mit einer With Anweisung wie folgt:

With ListBox1

.ColumnCount = 3

.ColumnWidths = "40;300;200"

.ColumnHeads = True

.IntegralHeight = False

.TextColumn = 1

.BoundColumn = 2

End With

Bei der Beschriftung der Header komme ich nun einfach nicht weiter.

Weiß hier eventuell jemand wie man das realisieren könnte?

Vielen Dank im Voraus!

Mfg

...zum Beitrag

Suche VBA-Code: Bedingte Eingabe in ListBox?

Hallo zusammen,

Ich habe eine Excel-Tabelle in der in Spalte M als Text "X" oder "Y" auftauchen. Da ich den Text als Wingdings formatiert habe, sieht man das in Form eines Hakens oder eines X-Symbols. Wenn nun in Zelle M2:M1000 ein "X" steht ist das Fahrrad (steht in Spalte L) schon vergeben und soll nicht in der ListBox angezeigt werden. Sollte z.B. das Dienstfahrrad 1 in einer Zeile ein X haben und in einer anderen Zeile ein Y, dann ist es trotzdem nicht verfügbar und darf nicht in der ListBox angezeigt werden.

Welcher Code muss in die ListBox eingegeben werden, damit diese alle Fahrräder, die ein X in Spalte M haben, aus dem Bestand löscht und nicht in der ListBox anzeigt?

Folgende Fahrräder sind im Bestand: Dienstfahrrad 1 Dienstfahrrad 2 Klapprad Pedelec 1 Pedelec 2

Folgende Fahrräder sollten also im Beispiel meines Screenshots angezeigt werden: Dienstfahrrad 2 Pedelec 2

Etwas kompliziert, aber ich hoffe, dass ihr mich verstehen konntet.

Danke im Voraus!

...zum Beitrag

Excel VBA: Wie mach ich aus einem Textfeld ein Suchfeld?

Hallo zusammen,

ich versuche gerade eine Datenbank in Excel anzulegen.

Jetzt möchte ich, dass egal in welchem Textfeld ich einen Suchbegriff eingebe, die entsprechende Spalte in Excel durchsucht wird und mir die Ergebnisse in einer Listbox angezeigt werden. Idealerweise soll man dann auf die Zeile in der Listbox klicken können und die Textfelder in meiner Userform Maske werden automatisch ausgefüllt. Ich bin ein totaler Neuling in Excel VBA und freue mich wenn mir jemand weiterhelfen kann!

Liebe Grüße

...zum Beitrag

Bestimmte Excel Spalten mittels Toggle Button ein/ausblenden?

Hallo,

gibt es die Möglichkeit mittels Excel Makro alle Spalten außer folgende mittels eines Buttons auszublenden:

A – E

H – J

M – R

W – Y

AZ – BF

Habe bereits etwas ähnliches, funktioniert aber klarerweise nur mit dem bereich von bis:

rivate Sub ToggleButton1_Click()

If Columns("D:E").EntireColumn.Hidden = False Then

Columns("D:E").EntireColumn.Hidden = True

ElseIf Columns("D:E").EntireColumn.Hidden = True Then

Columns("D:E").EntireColumn.Hidden = False

End If

End Sub

Danke

...zum Beitrag

VBA Excel Zwei Prozeduren hintereinander?

Hallo,

ist es möglich zwei Prozeduren hintereinander zu starten ohne eine aus der anderen zu starten?

Also wenn ich:

Sub Test()
...
Call test1
End Sub

Läuft test1 ja irgendwie innerhalb von Test()

Ich hätte aber gerne

Sub Test()
...
End Sub

Sub test1()
...
End Sub

Und das dann nacheinander ausgeführt wird.

Mein Problem ist nämlich, das ich ein ListBox_Click Event habe und in diesem Click die Größe der Listbox ändere.

Nur läuft der "Click" so lange, wie das ganze Event läuft, das heißt:
Ändere ich die Größe innerhalb des Click-Events, so ändert sich auch die Ausgewählte Zeile in der ListBox...

Meine Listbox ist am Anfang 20+ Zeilen lang. Wegen der Übersicht, muss diese nach der Auswahl des Werts auf 2 Zeilen verkleinert werden.
Doch dann wird automatisch immer die zweite Zeile ausgewählt nach dem verkleinern.
Das passiert aber nicht, wenn ich die Verkleinerung in einer extra Sub manuell im nachhinein ausführe.

Eine andere Lösung wäre wahrscheinlich auch

Sub Test()
Call ListBox_Click
Call ListBox_Klein
End Sub

So laufen Click und Verkleinerung nacheinander...aber ich kann das Click ja schlecht vor dem "Click" auslösen xD

...zum Beitrag

Excel ListBox Selection entfernen?

Hallo,

Habe folgendes Problem:

Ich habe in meiner Userform eine list Box mit z.b. Einkaufsartikel.

Der Benutzer soll nun sich ein Produkt aussuchen z.b. Apfel, wenn er den Apfel ausgewählt hat mache ich Berechnungen usw. wenn der Benutzer jetzt aber noch einen Artikel oder eben den selben haben möchte soll vorher der Apfel nicht mehr selektiert sein. Wie mache ich das?

Gruß

Dennis

...zum Beitrag

Makro VLookup funktioniert nicht?

.Formula = "=VLOOKUP(A5,EKPO.Cells(A1),C1000,2,FALSCH)"

Kann mir jemand hier helfen?

...zum Beitrag

Excel VBA Button per doppelklick?

Moinsen,

Ich würde gerne einen versteckten Button erstelln, der folgendes Kann:

Sub CommandButton1_Click()

If ActiveSheet.ProtectContents = False Then

ActiveSheet.Protect Password:="+1516", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingRows:=True

Else

ActiveSheet.Unprotect

End If

Jedoch würde ich ihn gerne nur per Doppelklick aktivieren lassen, da man sonst evt ausversehen drauf kommt.

...zum Beitrag

VBA in Excel: Datumseingabe in einem Formular mit Datensätzen in der Tabelle abgleichen? ?

Hallo zusammen,

Wie in den Screenshots zu sehen, programmiere ich aktuell eine Fahrradreservierung in Excel. Es ist soweit alles fertig, bis auf einen Code.

Folgender Code fehlt mir. Im Formular soll man die Daten der gewünschten Ausleihe eintragen (4 Felder --> Abholdatum und -zeit, sowie Rückgabedatum und - zeit). Danach soll mit Klick auf den Button "Verfügbarkeit prüfen" in der ListBox (unter den Eingabefeldern) die Fahrräder angezeigt werden, die an den angefragten Zeitpunkten noch verfügbar sind.

Die vorhandenen Datensätze (die geprüft werden müssen) befinden sich in Tabelle1.

Folgende Fahrräder gibt es allgemein: Dienstfahrrad 1 Dienstfahrrad 2 Klapprad Pedelec 1 Pedelec 2

Meine Bezeichnungen in UserForm 1: 1.TextBox hinter "Abholdatum" = Textbox4 2.TextBox hinter "Abholuhrzeit" = Textbox5 3.TextBox hinter "Rückgabedatum" = Textbox6 4.TextBox hinter "Rückgabeuhrzeit" = Textbox8 5.Button "Verfügbarkeit prüfen" = CommandButton5 6.Listbox mit verfügbaren Fahrrädern = ListBox2

Ich hoffe, mir kann da einer helfen und/oder sogar einen Code schicken.

Danke im Voraus!

...zum Beitrag

Wie kann man in Excel Preise nach Größe sortieren?

Hallo liebe Helferinnen

Ich möchte eine Spalte mit Preisen so sortieren, dass es von teuer nach günstig geht. Mit der Option Sortieren von Z nach A funktioniert das leider nicht.

Kann mir da jemand eine einfache, aber effektive Lösung zeigen, um von Bild 1 direkt auf Bild 3 zu kommen?

Danke und liebe Grüße

Nachtrag:

In der kleinen Beispieltabelle mit den 10 Zeilen hat es hervorragend funktioniert, aber in der großen Tabelle mit tausenden Zeilen und 15 Spalten klappt es nicht.

Woran könnte es liegen? Also ich bin folgendermaßen vorgegangen:

1- Ursprungsdatei ist eine Textdatei.

2- Dieser habe ich in Excel geöffnet und die Spalte Preise als Text formatiert, damit es nicht als Datum umgewandelt wird..

3-Habe dann alle Punkte mit Kommas ersetzt

4-Sortiert von Z nach A, aber leider sortiert es nach der Zahl z.b. 99->8,5->77->6,31 und nicht 99->77->8,5->6,31 und nicht von der größten zur kleinsten Zahl

Was mache ich falsch? .(

...zum Beitrag

Excel VBA Aktive Zelle mit Doppelklick in Zwischenablage?

Hallo ihr,

ich habe ein Problem mit einer Excel Anwendung, die ich machen möchte.

Ich habe einige Zellen in Excel, die jeweils einige Nummern oder Kennzeichnungen enthalten.

Für verschiedene Fälle muss ich einige dieser Nummern in eine Liste herausschreiben.

Ich möchte gerne, dass wenn ich auf eine Zelle Klicke oder Doppelklicke, dass sich der Inhalt dieser Aktiven Zelle in die Zwischenablage kopiert. Im Besten Fall fügt sich die Zwischenablage dann untereinander in einem Excel Blatt wieder ein, sodass ich nacheinander die verschiedenen Zellen anklicken kann und meine Liste so zusammenstellen kann.

Habe in VBA schon versucht, sowas zu realisieren, aber bis jetzt hat das nicht so funktioniert.

Ich hoffe, jemand kann mir weiterhelfen.

Vielen Dank!

...zum Beitrag

Excel VBA: Zu ausgeblendeten Tabellenblättern springen?

Hallo Community,

ich habe ein kleines VBA-Problem in Excel.

Zur Situation: Ich habe eine Mappe mit mehreren Tabellenblättern. Diese Blätter werden mir in einem Dropdownmenü angezeigt. Mithilfe eines Commandbutton springe ich dann auf das zuvor im Dropdown gewählte Tabellenblatt:

Hier der Code vom Commandbutton:

Private Sub CommandButton1_Click()

    ThisWorkbook.Sheets(Range("D7").Value).Select

End Sub

Dieses Code funktioniert allerdings nur, solange ich die Blätter auch unten in der Mappe anzeige.

Nun zu meiner Frage: Wie müsste der Code aussehen, wenn ich die Tabellenblätter ausblende?

...zum Beitrag

Excel Programm kann nicht ausgeführt werden?

Hallo,

ich habe ein Excel Programm von einem Rechner mit Windows 7, Excel 64bit erstellt.
Dort funktioniert es auch einwandfrei.
Testet man es nun auf Windows 10, Excel 64 bit, kommt folgende Fehlermeldung:

64-Bit Office setzt 64-Bit Windows voraus (was der Fall ist).
Weiterhin kommt dann folgende Fehlermeldung:

Was kann ich tun?

Vielen Dank!

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen