FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren 
 ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 
smartsuitefaq.martinholz.de Foren-Übersicht

Listbox mit Script füllen

 
Neues Thema eröffnen   Neue Antwort erstellen    smartsuitefaq.martinholz.de Foren-Übersicht -> 1-2-3
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
agree
User


Anmeldungsdatum: 08.07.2005
Beiträge: 11

BeitragVerfasst am: Di 16.08.2005 15:54    Titel: Listbox mit Script füllen Antworten mit Zitat

Hallo Leute,
ich fange jetzt mal mit der Programmiereri unter 1-2-3 mit Script an. So weit funzt es auch ganz gut. Habe mir ein paar Dialoge gebaut und ein bischen rumgespielt. Wie ist es möglich, einen Listbox in einem Dialog mit Werten aus einem Arbeitsblatt zu füllen (Habe in A:a1 - A:a3 drei Werte drinstehen, die sollen im Listboxfeld erscheinen).

Wäre schön wenn mir jemand helfen könnte.

Viele Grüße
Tom
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Martin
Site Admin


Anmeldungsdatum: 31.12.2004
Beiträge: 389
Wohnort: Düsseldorf

BeitragVerfasst am: Do 18.08.2005 06:14    Titel: Antworten mit Zitat

Du brauchst insgesamt 3 Scripte:

  1. eins gebunden an den Load-Event des Dialogfensters.
  2. eins gebunden an die OK-Schaltfläche
  3. eins gebunden an die Cancel/Abbrechen-Schaltfläche


Verwendete Objektnamen:
Dialog1 = Dialogfenster
Schaltfläche1 = OK
Schaltfläche2 = Abbrechen
List1 = Listbox

Dialogfenster:
Code:
Sub Load(Source As Lotusdialog)
   ' Auszulesenden Bereich des Arbeitsblattes definieren
   Dim ArbeitsBlattDaten As Range
   Set ArbeitsBlattDaten = [A:A1..A:A3]

   ' Die Listbox im Dialog füllen
   Forall Zelle In ArbeitsBlattDaten.Cells
      Dialogfenster.Listbox.Additem Zelle.CellDisplay
   End Forall
End Sub


Dialogfenster.OK:
Code:
Sub Click(Source As Lotuscommandbutton)
   ' ausgewählten Eintrag in eine Variable schreiben
   Dim ausgabe As Variant
   ausgabe = Dialogfenster.Listbox.Text

   ' ausgewählten Eintrag in einer Messagebox anzeigen
   Messagebox ausgabe

   ' Dialogfenster schließen
   Dialogfenster.close
End Sub


Dialogfenster.Abbrechen:
Code:
Sub Click(Source as Lotuscommandbutton)
   ' Dialogfenster schließen
   Dialogfenster.close
End Sub


Beispieldatei unter: http://smartsuitefaq.vol4u.de/download/123-Listbox-Dialog.zip
_________________
FAQ gelesen?
=> http://smartsuitefaq.martinholz.de/
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden AIM-Name Yahoo Messenger MSN Messenger
agree
User


Anmeldungsdatum: 08.07.2005
Beiträge: 11

BeitragVerfasst am: Do 18.08.2005 06:52    Titel: Das wars Antworten mit Zitat

Hi Martin,

vielen Dank, das war genau das was ich gesucht habe.

Bis zum nächsten Problemchen - vielen Dank nochmal.

Tom
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    smartsuitefaq.martinholz.de Foren-Übersicht -> 1-2-3 Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.


Powered by phpBB © 2001, 2002 phpBB Group
Protected by Anti-Spam ACP