Von Listbox durch Doppelklick in andere Listbox?

Wie funktioniert das ???

2 Antworten

Vom Fragesteller 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

Fragesteller

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

Fragesteller

23.10.2018, 13:29

@Elifsahin

(Bild)

Elifsahin

Fragesteller

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

Fragesteller

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

Fragesteller

23.10.2018, 14:41

@Gaterde

danke ich versuch es mal !

Elifsahin

Fragesteller

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

Fragesteller

23.10.2018, 15:50

@Gaterde

DANKE !!!!

pushido

22.10.2018, 15:10

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

Elifsahin

Fragesteller

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

Fragesteller

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

Fragesteller

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

Fragesteller

23.10.2018, 13:20

@pushido

nicht listindex?

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.

...zur Frage

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

...zur Frage

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!

...zur Frage

Makro VLookup funktioniert nicht?

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

Kann mir jemand hier helfen?

...zur Frage

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!

...zur Frage

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

...zur Frage

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

...zur Frage

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.

...zur Frage

Sich selbst ergänzende Exceltabelle?

Moin zusammen,

in miener Word-Userform kann man Adressdaten eingeben.

Sollte die eingegebene PLZ bereits in der dazugehörigen Exceltabelle vorhanden sein, werden die restlichen Daten (Ort, Anschrift, Name) automatsich in Word übernommen

Den Teil der PRogrammierung hab ich und es funktioniert.

Jetzt hätte ich gerne, dass wenn die eingeegebene PLZ nicht in der Exceltabelle gefunden wird und ich somit händisch Ort, Anschrift und Name eingebe, dass diese Daten als Ergänzung in die Exceltabelle aufgenommen werden.

Danke ^^

...zur Frage

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

...zur Frage

VBA Datum (dd.mm.yy) aus Zelle umdrehen (yymmdd) und als Name speichern?

Hallo Zusammen

Ich bin ganz neu im VBA und bin etwas am Herumprobieren. Einen Teil habe ich geschafft, aber an einem Punkt hänge ich.

Ich will, dass ein Makro läuft, welches die Datei automatisch unter dem Namen "Kundennummer_Servicedatum" abspeichert. Die Kundennummer und das Servicedatum sind beide im Dokument unter separaten Zellen hinterlegt, die Formel sieht jetzt so aus:

Sub Speichern_unter()

Dim SaveName As String

Dim Datum As Date

SaveName = ActiveSheet.Range("BQ11").Text

Datum = ActiveSheet.Range("BM17")

ActiveWorkbook.SaveAs Filename:="D:\ABC\Service\" & SaveName & "_" & Datum & ".xls"

End Sub

Soweit funktioniert alles, das Dokument heisst z.b. "149_31.10.23"

Das Datum ist als dd.mm.yy in der Zelle, zum Abspeichern brauche ich aber folgendes Format: yymmdd. Ziel ist also der Name "149_231031"

Kann mit jemand helfen, wie ich das Datum umgedreht bekomme? Danke im Voraus :)

...zur Frage

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?

...zur Frage

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? .(

...zur Frage

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()