Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

@Josef Ehrensberger Frage

@Josef Ehrensberger Frage
27.01.2004 09:24:14
Robert
Hallo,
sie hatten mir ja gestern mit meiner Datei geholfen.
Ich hätte da nochmal eine Frage dazu.Wäre es auch möglich in der Zweiten Userform, in der zweiten combobox wenn man sich die einzelnen Artikel ausgeben läßt diese nur einmal aufzurufen?
denn bisher kommen sie so oft vor wie sie in der Eingabemaske im userform1 eingetippt werden.Zwar erscheint wie gewollt bei jeder die gesamtsummer, doch wird die combobox ziemlich unübersichtlich bei großen datensätzen.
wären nett wenn sie mir da nochmals helfen könnten.
mfg
p.s. wenn sie die datei nochmals brauchen..lad ich sie nochmal hoch.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: @Josef Ehrensberger Frage
27.01.2004 10:51:56
Josef Ehrensberger
Hallo Robert!
Mit kleinen modifikationen sollte es klappen.


Private Sub ComboBox1_Click()
'Dieses Makro ersetzen
Dim wks As Worksheet
Dim rng As Range
Dim lngR As Long
Dim strR As String
Dim intC As Integer
Set wks = Sheets(ComboBox1.Value)
lngR = WorksheetFunction.CountA(wks.Range("B2:B65535")) + 1
If lngR = 1 Then lngR = 2
Set rng = wks.Range(wks.Cells(2, 2), wks.Cells(lngR, 2))
On Error Resume Next
wks.Activate
TextBox1.Value = "" '[c65536]
ComboBox2.Clear
For intC = 0 To rng.Cells.Count
ComboBox2.AddItem rng(intC + 1), intC
Next
DeleteDuplicateValues ComboBox2
End Sub

Private Sub DeleteDuplicateValues(Liste As Control)
'Diesen Code einfügen
  Dim As Integer
  Dim As Integer
  With Liste
    I = 0
    While I < .ListCount
      U = I + 1
      Do Until U > .ListCount - 1
        If .List(U) = .List(I) Then
          ' doppelten Eintrag gefunden!
          .RemoveItem U
          Else
                U = U + 1
        End If
      Loop
      I = I + 1
    Wend
  End With
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp
Anzeige
Dankeschön!!!
27.01.2004 11:05:23
Robert
TOP!!!
Danke Nochmals...Hat prima geklappt.
mfg Robert
Danke für die Rückmeldung! o.T.
27.01.2004 11:09:11
Josef Ehrensberger
/

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige