Office: (Office Version unbekannt) 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

 

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.

 

Moin Gerhard.

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

Gruß, Torsten

 

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.

 

Hallo Torsten,

ich krieg den Zip-Ordner nicht auf. Er sei "ungültig" oder leer. Versuchs doch noch mal

 

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

 

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

 

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.