Mail senden über Userform

[MdeJong]

Morgen Tom,

die Zeile hab ich eingefügt......geht so nicht, die Checkboxen bleiben aktiviert.

Michael

[Crazy Tom]

moin

tja immer diese Crux mit der Rowsource

Code:

Private Sub cmdNeueMail_Click()
Dim i As Integer
For Each objControl In Controls  'leert die Textboxen
       Select Case TypeName(objControl)
           Case "TextBox"
           objControl.Text = ""
           End Select
           Next
For i = 0 To ListBox4.ListCount - 1
   ListBox4.Selected(i) = False
Next
End Sub

MfG Tom

[MdeJong]

Mensch ....   ....das klappt immer auf Anhieb bei dir :19:

Du hast das ganze studiert...oder?
Ich brauch noch Jahre

[Crazy Tom]

nö nix studiert nur immer fleißig in den Foren mitgelesen

[MdeJong]

Aber nicht erst seit Gestern ;)

Ich habe noch ein Problem.


  Kopie von TestMappe_Neu.xlsm (Größe: 49,9 KB / Downloads: 0)
Habe Versucht in der Page "Datenblatt" dort Comboboxen zum Filtern in der Listbox einzusetzen.
Einen möglichen Code dafür angesetzt, doch leider bleibt das bei mir wieder hängen.

Ich habe in der Mappe den Code erst einmal ausgegrenzt.....kannst du dort sehen, was ich evtl. dort falsch gemacht habe?

Code:

Private Sub UserForm_Initialize()

 '(Bypass = True
 
 'FillCombobox "ComboBox1", 1, 2
 'FillCombobox "ComboBox2", 1, 3
 'FillCombobox "ComboBox3", 1, 4
 'FillCombobox "ComboBox4", 1, 5
 'FillCombobox "ComboBox5", 1, 6
 'FillCombobox "ComboBox6", 1, 7
 'FillCombobox "ComboBox7", 1, 8
 'FillCombobox "ComboBox8", 1, 12
 
 'ListBox1.ColumnCount = 8
 
 'FillListbox 1, 8
   
'Bypass = False

Der Code bleibet an der Zeile:    Private Sub UserForm_Initialize()  hängen.

[Crazy Tom]

Hallo

ich kann deine Datei jetzt nicht laden (Firmenrechner)
aber wenn ich mich recht erinnere dann füllst du deine Listboxen mit RowSource
ich glaub da wird das mit dem Filtern nüscht
und dein Codeausschnitt sagt mir auch nix
hab noch keine Bypässe

MfG Tom

[MdeJong]

Das ist ja doof.

Ich hab mal gegoogelt wie man in einer Listbox Daten, die in Spalten angezeigt werden, so gefiltert werden können?

Ich wußte nicht, das es mit diesem Rowsurce gar nicht geht.....jetzt bin ich aber Ar...   :05:

Wie bringe ich das jetzt meine Frau bei?  ;)