Thema Datum  Von Nutzer Rating
Antwort
Rot Keine doppelten Werte in Array
16.07.2022 12:07:27 sk88
NotSolved
16.07.2022 12:15:11 ralf_b
NotSolved
16.07.2022 12:24:28 Sk88
NotSolved
16.07.2022 13:08:41 ralf_b
NotSolved
16.07.2022 13:40:59 Gast70347
NotSolved
16.07.2022 14:01:39 ralf_b
NotSolved
16.07.2022 18:52:56 Gast13466
NotSolved
16.07.2022 22:21:21 ralf_b
NotSolved
16.07.2022 13:41:00 Gast7644
NotSolved
17.07.2022 07:21:34 Mase
NotSolved

Ansicht des Beitrags:
Von:
sk88
Datum:
16.07.2022 12:07:27
Views:
106
Rating: Antwort:
  Ja
Thema:
Keine doppelten Werte in Array

Hallo zusammen,

Ich stehe an den Problem, das in mein dynamischen Array keine doppelten Werte aufgenommen werden sollen. Nach 3 Tagen jeweils 5 Stunden, hab ich mir überlegt hier einfach mal nachzufragen. Simpel gesagt befindet sich in einer Excel Tapelle ca 700 Zeilen mit Ländernnamen die auch doppelt vorhanden sind. Dies soll alles in eine Combobox gefüllt werden, aber ohne doppelt einträge. Das heißt jedes Land nur 1x aufgeführt. Am ende soll ein Text darüber stehen wie hoch die Anzahl der auszuwählbaren Länder sind. Gibt es eine Möglichkeit mit einer IF - Anweisung (so wie ich es schon versucht habe, aber gescheitert bin) doppelte Werte zu überspringen?

 

Private Sub UserForm_Initialize()

Dim Laender() As String

Dim znr As Integer, zaehler As Integer, i As Integer

znr = 2
zaehler = 0

Do While Cells(znr, 9) <> ""


ReDim Preserve Laender(i)
Laender(i) = Cells(znr, 9)

If IsMissing(Laender) = False Then

    znr = znr + 1
    i = i + 1
    zaehler = zaehler + 1
    
Else


i = i - 1
znr = znr + 1

End If

Loop

Me.cmb_Laender.List = Laender
Me.cmb_Laender.ListIndex = 0


End Sub

 

Danke schonmal für eure Hilfe!

Gruß Stefan


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Keine doppelten Werte in Array
16.07.2022 12:07:27 sk88
NotSolved
16.07.2022 12:15:11 ralf_b
NotSolved
16.07.2022 12:24:28 Sk88
NotSolved
16.07.2022 13:08:41 ralf_b
NotSolved
16.07.2022 13:40:59 Gast70347
NotSolved
16.07.2022 14:01:39 ralf_b
NotSolved
16.07.2022 18:52:56 Gast13466
NotSolved
16.07.2022 22:21:21 ralf_b
NotSolved
16.07.2022 13:41:00 Gast7644
NotSolved
17.07.2022 07:21:34 Mase
NotSolved