PDA

Vollständige Version anzeigen : Zwei Listboxen -> eine gemeinsam genutzte Zelle


Smeargol
23.09.2016, 00:55
Morgen...


Ich hänge mal wieder an ListBoxen fest....

Ich bin auch schon die Eigenschaften der Listboxen durchgegangen...., leider ohne Erfolg.

Die Scripte, die ich "gebastelt" habe, funktionieren eigentlich auch. Bis auf ein Problem.

Folgendes:
Ich habe in einer Userform zwei Listboxen, bei denen entweder der Inhalt aus ListBox1 ODER aus ListBox2 gewählt werden,
und per Button-Click in eine gemeinsam genutzte Zelle (die aktive Zelle) eingetragen werden kann.

Beim starten der Userform soll geprüft werden, ob der Inhalt der aktiven Zelle aus ListBox1 oder ListBox2 ist,
und in der dementsprechenden ListBox markiert werden.

Das funktioniert sogar bis hier.

Ich habe jetzt aber folgendes Problem mit dem jeweils ersten Eintrag aus beiden ListBoxen :

Wenn die aktive Zelle leer ist, lassen sich die ListBoxen benutzen wie vorgesehen, und die Einträge werden in die aktive Zelle geschrieben.

Wenn die aktive Zelle nicht leer ist:
- wenn ein Eintrag aus ListBox1 in aktiver Zelle = alle Auswahlmöglichkeiten der Listbox1 werden (auch nach Änderung) in die aktive Zelle geschrieben
= Auswahl 1 aus ListBox 2 läßt sich nicht in Zelle eintragen

- wenn ein Eintrag aus ListBox2 in aktiver Zelle = alle Auswahlmöglichkeiten der Listbox2 werden (auch nach Änderung) in die aktive Zelle geschrieben
= Auswahl 1 aus ListBox 1 läßt sich nicht in Zelle eintragen

Die jeweils ersten Einträge lassen sich auswählen, werden aber nicht übertragen ?!


Was habe ich falsch gemacht ?

Option Explicit

Private Sub UserForm_Initialize()

With frm_Funktion

' Listboxen füllen
frm_Funktion.lstbx_Tag.RowSource = "Start!AB679:Start!AB716"
frm_Funktion.lstbx_UKD.RowSource = "Start!AB717:Start!AB720"

'Prüfung ob in aktiver Zelle Inhalt der ListBox1 oder der Listbox2 ist, und den Eintrag in der entsprechenden ListBox markieren
If ActiveCell.Offset(0, 0).Value <> "" And ActiveCell.Offset(0, 0).Value = Range("Start!AB717").Value Or _
ActiveCell.Offset(0, 0).Value = Range("Start!AB718").Value Or _
ActiveCell.Offset(0, 0).Value = Range("Start!AB719").Value Or _
ActiveCell.Offset(0, 0).Value = Range("Start!AB720").Value Then
frm_Funktion.lstbx_UKD.Value = ActiveCell.Offset(0, 0).Value
Else
frm_Funktion.lstbx_Tag.Value = ActiveCell.Offset(0, 0).Value
End If

End With
End Sub

Private Sub lstbx_Tag_Change()
frm_Funktion.lstbx_UKD.Value = ""
End Sub


Private Sub lstbx_UKD_Change()
frm_Funktion.lstbx_Tag.Value = ""
End Sub


Private Sub bn_Funktion_Click()

If frm_Funktion.lstbx_UKD.Value <> "" Then
ActiveCell.Offset(0, 0).ClearContents
ActiveCell.Offset(0, 0).Value = frm_Funktion.lstbx_UKD.Value
End If

If frm_Funktion.lstbx_Tag.Value <> "" Then
ActiveCell.Offset(0, 0).ClearContents
ActiveCell.Offset(0, 0).Value = frm_Funktion.lstbx_Tag.Value
End If

Unload frm_Funktion

End Sub




Wäre Klasse, wenn mich jemand aus die Behebung dieses nervenden Fehlers hinweisen könnte...


B Y E,
Smeargol

Hajo_Zi
23.09.2016, 08:30
Eine hochgeladene Arbeitsmappe erhöht die Wahrscheinlichkeit, dass Du eine Lösung für Dein Problem erhältst.
Erstelle folglich bitte eine Demomappe, aus der deine Aufgabenstellung klar erkennbar ist und lade diese Mappe mit einem <a href="http://www.ms-office-forum.net/forum/showpost.php?p=340072&postcount=3">aussagekräftigen Dateinamen</a>.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Test, Mappe, Beispiel usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten <a href="http://www.ms-office-forum.de/forum/showthread.php?t=322895">anonymisieren bzw. pseudonymisieren.</a>
Falls Du den Download des Forums nicht benutzen möchtest beachte bitte: von unsicheren Servern file-upload lade ich keine Datei herunter (lt. Einschätzung meines Virenprogramms).

<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

Smeargol
23.09.2016, 13:25
Hallo Hajo.

Da du der Hajo von Hajo-Exel.de bist, möchte ich mich erstmal bei dir für deine vielen tollen Scripte auf deiner Seite bedanken. Hat mir schon sehr weitergeholfen.

Ich habe hier mal eine kleine Mappe mit meinem Problem erstellt.
Eine Fehlerbeschreibung ist dabei.

Ich hoffe, mir kann geholfen werden :grins:

Schönes Wochenende.

B Y E,
Smeargol

Smeargol
24.09.2016, 13:48
Hinweis:

Sorry, aber....
Da mir hier mit meinem Problem nicht geholfen werden kann, war ich mal so frech, und habe die Frage auch in einem anderem Forum gestellt.
http://www.office-hilfe.com/support/showthread.php/21442-Erste-Zeile-ListBox-reagiert-erst-bei-zweimaligem-klicken


B Y E,
Smeargol