Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Listbox übergabe ohne doppelte einträge

Frage Entwicklung VB for Applications

Mitglied: copro

copro (Level 1) - Jetzt verbinden

05.03.2006, aktualisiert 07.03.2006, 7373 Aufrufe, 2 Kommentare

Hallo zusammen

ich habe zwei Listboxen bei der Übergabe soll geprüft werden ob der Eintrag vorhanden ist, aber irgentwie funktioniert es nicht so wie ich es will.

Bei einzelnen Markierungen ist es ja kein Problem, aber bei Mehrfachauswahl verhält es sich komisch....

For t = 0 To filDatei.ListCount - 1
If filDatei.Selected(t) = True Then
If InStr(lstDateien.Text, filDatei.List(t)) = 0 Then
lstDateien.AddItem filDatei
Else
MsgBox "bereits ausgewählt!"
End If
End If
Next t

Thx und MfG

Copro
Mitglied: PLONK
06.03.2006 um 20:46 Uhr
Hallo,
versuchs mal so:

Dim bExit As Boolean
Dim i As Long
Dim t As Long

For t = 0 To filDatei.ListCount - 1
If filDatei.Selected(t) = True Then
bExit = False
For i = 0 To lstDateien.ListCount - 1
If lstDateien.List(i) = filDatei.List(t) Then
MsgBox filDatei.List(t) & " ist bereits ausgewählt!"
bExit = True: Exit For
End If
Next i

If Not bExit Then lstDateien.AddItem filDatei
End If
Next t


mfg
PLONK
Bitte warten ..
Mitglied: copro
07.03.2006 um 14:25 Uhr
Danke hat wundebar geklappt =)
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
gelöst VBA Excel Problem mit UserForm, ListBox und TextBox (12)

Frage von abuelito zum Thema Microsoft Office ...

Batch & Shell
gelöst Batch zum auslesen bestimmter Einträge der IPconfig mit for-Schleifen (12)

Frage von Dantaros zum Thema Batch & Shell ...

Batch & Shell
gelöst PowerShell Skript für doppelte Dateinamen (1)

Frage von janelsaesser zum Thema Batch & Shell ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Festplatten, SSD, Raid
PC stellt nach dem Bios ab (20)

Frage von uridium69 zum Thema Festplatten, SSD, Raid ...

Server-Hardware
Einem Stromausfall entgegen wirken (19)

Frage von OIOOIOOIOIIOOOIIOIIOIOOO zum Thema Server-Hardware ...

iOS
16 iPads zentrall verwalten (18)

Frage von simonlohr zum Thema iOS ...

Windows 7
Freeware MSI Tool (13)

Frage von uridium69 zum Thema Windows 7 ...