Office: >>Textfeld mit Daten füllen über DD-Liste<<

Hi,

ich habe viele kleine Probleme mit meinem Projekt, drum wäre ich dankbar wenn mir hier weitergeholfen wird.

Problem:

Über die DropDown Liste wähle ich etwas aus und da soll automatisch die passende Nr. im Textfeld stehen.

Bsp.: ich wähle im DD-Liste "A" aus, dann soll automatisch "0001" im Textfeld stehen.

Falls dies mit einem Textfeld nicht gehen soll bin ich für andere Lösungen dankbar die man im Formular benutzen kann.

Die Excel Datei hängt an, so weit alles vorbereitet.

Vielen Dank im vorraus.

Gruß EMI

=========
:-( Ich hab mich heute damit den ganzen Tag beschäftigt und muß sagen ich bekomme es nicht hin... Also, etwas hilfe bräucht ich schon als Newbie. :-(

 

Hi E-MaX-I...

was hälst Du vor der beigelegten Lösung?

Diese basiert auf einem Kombinationsfeld aus der Formularsymbolleiste sowie den Formeln Adresse() und Indirekt().

Gruß

 

Genau so... :?:

:-D

Genau diese Funktion wollte ich.
Erst jetzt verstehe ich worauf ich achten soll... :lol:

Jetzt hab ich es geschaft das auch mit VBA zu lösen, nur fehlt mir die Formatierung. Möchte das die Nummer 4-stellig angezeigt wird.
Habe es mit Format und NumberFormat versucht, leider ohne Erfolg.

:roll: Hab mir jetzt noch ein VBA Buch bestellt, hoffentlich kommt es schnell an.

Ach ja, stelle die aktuelle Mappe mal rein, vielleicht gibts noch paar Leut dennen es interessiert wie ich es hinbekommen habe und damit die Formatierung hinbekommen.

Gruß EMI

 

Re: Genau so... :?:

Hast Du es mit dem benutzerdefinierten Format "0000" versucht?

Gruß, Michael

 

Format "0000"

Hi Michael,

ich habe es als Code >.Format("0000")<am Ende eingegeben gehabt, entweder zeigt er dann wie gehabt die Zahl an oder an anderer Stelle zeigt er dann nichts im Feld an. Habe auch NumberFormat versucht, aber dann geht garnichts mehr.

Beschäftige mich leider erst seit etwa einer Woche mit VBA. Früher war bei mir halt alles manuell gerechnet und mühsam rausgesucht, kopiert, eingefügt und und und... ja, und am Ende war doch vielles durcheinander.

Habe es vorhin versucht das er die Zahl in einer anderer Tabelle ablegt, wo die Zellen schon Formatiert sind, aber da ändert er die Formatierung.

;-) Vielleicht gebe ich ja die Formatierung an der falschen Stelle ein. Werde jetzt erst mal etwas anders drangehen. Bin dir sehr dankbar und wäre dir auch sehr dankbar wenn du vielleicht mal an der Mappe zeigst wie du es genau meinst.

Gruß EMI

 

Re: Format "0000"

Die etwas angepaßte Prozedur sollte das machen:

Code:

Private Sub ComboBox1_Change()

    Dim Auswahl As String
    Dim Nummer As Range
    Dim Ergebnis As String

    Auswahl = ComboBox1.Text
    Set Nummer = Worksheets("DDListe").Range("C3:C50").Find(Auswahl).Offset(0, -1)
    Ergebnis = Nummer.Value

    While Len(Ergebnis) < 4
        Ergebnis = "0" & Ergebnis
    Wend

    TextBox1.Text = Ergebnis

End Sub

Ich hab in erster Linie die DIMs mit Typangaben spezifiziert, "Ergebnis" dazugenomen und explizit die .Value bzw. .Text Eigenschaften der Elemente angesprochen.

Das Eigentliche macht WHILE / WEND, in dessen Schleifenkörper der String "Ergebnis" links solange mit "0" aufgefüllt wird, bis er eine Länge von 4 Zeichen hat.

Gruß, Michael

 

:mrgreen:

Hi Micheal,

das ist so einfach und doch schon genial deine Lösung.
Frage mich gerade wiso ich nicht auf die Lösung kam... :roll:
Naja, nicht jeder kann es. Ich war zu sehr darauf fixiert es mit Format oder ähnlichem zu erledigen.

Bis jetzt komme ich mit dem rest gut weiter, sollte ich wieder irgendwo hängen bleiben meld' ich mich.

Nochmals vielen Dank für deine genialen Lösungen.

Gruß EMI