MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 28.06.2017, 14:54   #1
Rakiv
Neuer Benutzer
Neuer Benutzer
Standard Excel2010 - E-Mail Verteiler

Hallo ihr Lieben,

Ich bin eigentlich ein üblicher Excel Anwender der nicht viel vom OOP versteht deshalb wende ich mich an euch. Es wäre mir eine super große Hilfe wenn mir jemand weiterhelfen könnte. Ich habe VBA nur an der Oberfläche gekratzt und das was ich möchte geht aber für mein Verständnis zu tief hinein

Also mein Problematik: Ich bräuchte einen Automatisierten Verteiler. Es gibt eine Liste, und eine Maske. Die Maske ist mit Listboxen gefühlt:

--> Listbox 1 soll mit alle Bezirke befühlt werden, Listbox 2 mit Alle Abteilungen,
--> Listbox 3 mit alle Rollen, List box 4 mit am besten doppeltspaltig mit Name und Email Adresse.
--> In die erste ListBox soll alle Bezirke angezeigt werden(die Namen sollen aber nicht Doppelt aufscheinen)
--> Wenn ich in einer Listbox1 etwas auswähle soll ListBox2 upgedatet werden. Also Sprich Wähle ich ein Bezirk aus soll all die dazugehörige Abteilungen, Rollen, Name und Email Adresse aufscheinen.
--> Und in Listbox 4 Soll eine Möglichkeit geben alles auszuwählen oder einzelne abzuwählen.
--> Wenn man dann auf MailTo Klickt, soll an alle ausgewählten von Liste 4 die Email-addrese in Outlook auf dem AN Feld kopiert werden.

Einfach ausgedrückt, das Programm soll z.B. von allem Mitarbeiter aus der Abteilung SB Im Bezirk Leopoldstadt und Weiden die Email Adresse im Outlook kopieren. Oder an Alle Mitarbeiter vom Überall etz.

Dass ich nach Namen suchen kann habe ich zum teil irgendwie hinbekommen, aber da hört auch schon meine Kenntnisse auf :/ Die Listboxen habe ich auch befühlt aber sie sind leider immer noch Doppelt

Es wäre eine super große Hilfe für mich wenn jemand es mit mir machen könnte. Meine Kenntnisse reichen bei weitem nicht aus.

Liebe Grüße

Code:

Option Explicit
Option Compare Text


Private Sub CommandButton3_Click()
    Dim rngCell As Range
    Dim strFirstAddress As String
 
    With Worksheets("Tabelle1").Range("A:A")
        Me.ListBox4.Clear
        Set rngCell = .Find(Me.TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not rngCell Is Nothing Then
            strFirstAddress = rngCell.Address
            Do
            With Me.ListBox4
                .ColumnCount = 2
                .AddItem
                .List(.ListCount - 1, 0) = rngCell.Value
                .List(.ListCount - 1, 1) = rngCell.Offset(0, 4).Value
                .ColumnWidths = "2cm;3cm"
                .ColumnHeads = True
            End With
            Set rngCell = .FindNext(rngCell)
            Loop While Not rngCell Is Nothing And rngCell.Address <> strFirstAddress
            Else
                MsgBox "Vorname nicht gefunden!", 48
        End If
    End With
End Sub


Private Sub TextBox1_Change()

End Sub

Private Sub Userform_Initialize()
    Dim bezirke As Long
    Dim abteilungen As Long
    Dim rollen As Long
    
    bezirke = Range("B12323").End(xlUp).Row
    Me.ListBox1.List = Range("B2:B" & bezirke).Value
    
    abteilungen = Range("c12323").End(xlUp).Row
    Me.ListBox2.List = Range("C2:C" & abteilungen).Value
    
    rollen = Range("d12323").End(xlUp).Row
    Me.ListBox3.List = Range("d2:d" & rollen).Value
End Sub

Private Sub CommandButton1_Click()
 Unload UserForm1
End Sub
Angehängte Dateien
Dateityp: xlsm verteiler.xlsm (26,3 KB, 6x aufgerufen)
Rakiv ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.07.2017, 20:07   #2
rastrans
MOF Koryphäe
MOF Koryphäe
Suche

Hallo,

in dem angehängten Textfile findest du den Code für dein UserForm. Deine Suche habe ich nicht verändert. Da ich kein Outlook auf meinem Rechner habe, kann ich dir die ausgewählten Einträge in ListBox4 nicht in deine E-Mail schreiben.

Um mehrere Mailadressen auswählen zu können, solltest du die Eigenschaft MultiSelect bei ListBox4 auf Extended stellen

Grüsse
rastrans
Angehängte Dateien
Dateityp: txt Verteiler_UserForm1.txt (3,1 KB, 8x aufgerufen)

__________________

There are 10 different types of people in the world. Those who understand the binary system and those who not.

Da für die Helfer der einzige Lohn eine Rückmeldung ist, wäre ein kurzes Feedback wünschenswert.
Auch sehen andere User, die ein ähnliches Problem haben, inwiefern die Lösung zur Beseitigung des Problems beigetragen hat.
Übrigens : Hilfreiche und positive Beiträge kann man auch bewerten!
rastrans ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:38 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.