Office: (Office Version unbekannt) VBA: Telefonn- und Zimmernummer abhängig vom Namen auswählen

Helfe beim Thema VBA: Telefonn- und Zimmernummer abhängig vom Namen auswählen in Microsoft Word Hilfe um das Problem gemeinsam zu lösen; Moin. Nächstes Projekt: Erstelle ein Dokument für mehrere Nutzer. In der Userform hab ich eine Combobox, in welcher die Namen der Nutzer hinterlegt... Dieses Thema im Forum "Microsoft Word Hilfe" wurde erstellt von office-fragen, 8. August 2019.

  1. VBA: Telefonn- und Zimmernummer abhängig vom Namen auswählen


    Moin.

    Nächstes Projekt: Erstelle ein Dokument für mehrere Nutzer. In der Userform hab ich eine Combobox, in welcher die Namen der Nutzer hinterlegt sind. Nach Auswahl des Namens wird dieser ins Dokument übertragen. Das hab ich schon umgesetzt. Ich möchte jetzt den Code so generieren, dass bei Auswahl des Namens automatisch die dazugehörige Telefon- und Zimmernummer an entsprechender Stelle im Dokument eingefügt werden, ohne dass ich dafür extra weitere Comboboxen einrichten muss. Bsp.: Ich wähle in der CB "Müller" und im Dokument erscheint der Name Müller und zusätzlich automatisch die passende Tel.nr. (z. B. "111") und die Zi.nr. (z. B. "222"). Wie löse ich das am elegantesten? Hinweis: es gibt keine Verbindung zu irgendwelchen Datenbanken oder zum Mail-Programm!

    Gruß, Torsten
     
    office-fragen, 8. August 2019
    #1
  2. Gerhard H
    Gerhard H Erfahrener User
    Hallo Torsten,

    wenn die "dazugehörigen" Daten nirgends digital verfügbar sind, musst du sie halt im Code fest unterbringen und mittels Select Case zuweisen. Prinzip:

    Code:
    Sub ergaenze()
    Dim nutzerName As String, Tel As String, ZiNr As String
    
    Select Case nutzerName
        Case Is = "Müller"
            Tel = "111"
            ZiNr = "001"
        Case Is = "Meier"
            Tel = "222"
            ZiNr = "022"
    End Select
    
    'Einfügen ins Dokument
    ActiveDocument.Paragraphs(1).Range = _
    nutzerName & " " & Tel & " " & ZiNr
    End Sub
    Das Einfügen ins Dokument musst du natürlich noch anpassen, je nachdem, was du da hast (Textmarken, Inhaltssteuerelemente, Formularfelder...)
    Wenn du detailliertere Hilfe brauchst, stell bitte ein Musterdokument zur Verfügung, das die Userform enthält, und dem man ansieht, welche Einfügestellen du verwendest.
     
    Gerhard H, 8. August 2019
    #2
  3. Moin Gerhard.

    Ich hab das, wie immer, mit Textmarken gelöst. Ich werd deine Lösung mal testen und meld mich wieder.

    Gruß, Torsten
     
    office-fragen, 14. August 2019
    #3
  4. VBA: Telefonn- und Zimmernummer abhängig vom Namen auswählen

    Hallo.

    Komme einfach nicht weiter. Ich krieg es einfach nicht hin, die Daten ins Dokument zu übertragen... :-( Hie mal eine Beispiel-Datei, wie ich das Dokument und den Code aufgebaut hab.
     
    office-fragen, 16. August 2019
    #4
  5. Gerhard H
    Gerhard H Erfahrener User
    Hallo Torsten,

    ich krieg den Zip-Ordner nicht auf. Er sei "ungültig" oder leer. Versuchs doch noch mal
     
    Gerhard H, 16. August 2019
    #5
  6. Gerhard H
    Gerhard H Erfahrener User
    Hallo nochmal,

    jetzt ist es mir doch gelungen, das Dokument aufzumachen (Hast du das mit 7zip gepackt? Das wollte der Windows-Explorer nicht anfassen). Hier der Code (Änderungen in rot):
    Code:
    Private Sub cbUebertragen_Click()
    
        Dim aName As String, aZiNr As String, aTel As String, aFax As String, aMail As String
    
        Select Case [COLOR="#FF0000"]cBoxAnrede.Value[/COLOR]
            Case "Müller"
                aZiNr = "1"
                aTel = "10"
                aFax = "10"
                aMail = "mueller"
            Case Is = "Schmitz"
                aZiNr = "2"
                aTel = "11"
                aFax = "11"
                aMail = "schmitz"
            Case Is = "Meier"
                aZiNr = "3"
                aTel = "12"
                aFax = "12"
                aMail = "meier"
        End Select
        
      
       [COLOR="#FF0000"]With ActiveDocument
            .Bookmarks("aName").Range = cBoxAnrede.Value
            .Bookmarks("azinr").Range = aZiNr
            .Bookmarks("atel").Range = aTel
            .Bookmarks("afax").Range = aFax
            .Bookmarks("amail").Range = aMail
        End With[/COLOR]
    Unload Me
    End Sub
    
     
    Gerhard H, 16. August 2019
    #6
  7. Moin.

    Jepp, 7zip. Brauche zu selten ein Pack-Programm, um dafür winzip zu kaufen...

    Aber: Habe deine Lösung in mein Dokument eingearbeitet, und es funktioniert. Hab es auch nicht anders erwartet... :-) Danke nochmal. Soweit war ich nicht von der Lösung entfernt, die Version "ActiveDocument .Bookmarks..." untereinander hab ich natürlich nicht versucht, obwohl ich es ja von anderen Stellen (z.B. FormFields) inzwischen kenne.

    Gruß, Torsten
     
    office-fragen, 26. August 2019
    #7
  8. Gerhard H
    Gerhard H Erfahrener User

    VBA: Telefonn- und Zimmernummer abhängig vom Namen auswählen

    Hallo Torsten,

    schön, wenns jetzt geklappt hat. Noch eine kleine Anmerkung: Mit dem Windows-eigenen Packprogramm (erreichbar über rechte Maustaste > Senden an > Zip-komprimierter Ordner) bist du doch am besten bedient, wenn du Windows-Nutzern was Gepacktes zur Verfügung stellen willst.
     
    Gerhard H, 26. August 2019
    #8
Thema:

VBA: Telefonn- und Zimmernummer abhängig vom Namen auswählen

Die Seite wird geladen...
  1. VBA: Telefonn- und Zimmernummer abhängig vom Namen auswählen - Similar Threads - VBA Telefonn Zimmernummer

  2. VBA - Ausblenden aller Tabellenblätter außer X

    in Microsoft Excel Hilfe
    VBA - Ausblenden aller Tabellenblätter außer X: Guten Morgen, ich bin ziemlicher VBA Neuling und habe aktuell Probleme mit einer Datei, die ich entwickelt habe. Zu der Datei: Es handelt sich um Daten, auf die lediglich ein bestimmter...
  3. Kamera in Excel einbinden und per vba Fotos erstellen

    in Microsoft Excel Hilfe
    Kamera in Excel einbinden und per vba Fotos erstellen: Kamera in Excel einbinden Hallo, ich suche einen Code für eine UserForm, mit der ich die integrierte Kamera des WinPC in der UserForm anzeigen lassen kann und davon ein Bild sichern kann.
  4. Liste aller Comboboxen im Sheet

    in Microsoft Excel Hilfe
    Liste aller Comboboxen im Sheet: Hallo allerseits, Ich möchte alle Comboboxen eines Worksheets mit VBA auslesen und finde nicht den Namen der Liste in den Sheet-Eigenschaften, in der die Comboboxen gespeichert sind. Wer weiß, wo...
  5. Pivot Tabelle: Quelle per VBA verändern

    in Microsoft Excel Hilfe
    Pivot Tabelle: Quelle per VBA verändern: Hi all, gibt es eine Möglichkeit, wie ich die Quelle einer Pivot Tabelle mit einem Klick aktualisieren kann? 1) Beispiel Quelle: [Datum_Dateiname.xlsx]Tabelle1!$A:$AA 2) Beispiel wie es je nach...
  6. Auswertung aus mehreren Registern erstellen (nur die Gelbmarkierten oder mit Datum von akt. Woche)

    in Microsoft Excel Hilfe
    Auswertung aus mehreren Registern erstellen (nur die Gelbmarkierten oder mit Datum von akt. Woche): Hallo zusammen, ich arbeite mit einer Excel-Arbeitsmappe, die mehrere Tabellenblätter enthält. Jedes Blatt dokumentiert bestimmte Vorgänge, und die Struktur der Daten ist in allen Blättern...
  7. VBA in einer Zeile zu lang

    in Microsoft Excel Hilfe
    VBA in einer Zeile zu lang: Moin, mein VBA Code ist für eine Zeile zu lang. Kann mir einer helfen wie ich den auf 2 Zeilen aufteilen Kann? arrSchuhDaten = Array(Range("A6"), Range("F6"), Range("J6"), Range("A7"),...
  8. Listbox wird nicht breiter, Schriftgrösse ändert sich

    in Microsoft Excel Hilfe
    Listbox wird nicht breiter, Schriftgrösse ändert sich: Hallo, ich habe ein Formular dessen Breite ich mit der Maus ändern kann. Im Formular habe ich einen Rahmen und darin eine Listbox deren Breite an die Formularbreite angepasst wird....
Schlagworte:
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden