Office: Combobox soll zur nächsten Txtbox wechseln zum befüllen

Moin Sperlingskitzler,

nachdem ich hier eine Weile mitgelesen und genau nichts kapiert habe, mich beim Anblick Deiner letzten Tabelle aber das kalte Grausen überkam, mal eine Frage, die vielleicht zu einer Lösung auf der grünen Wiese (völliger Neuansatz) führt:

Du willst TellerTassenTorten-Bruch nach Veranstaltungen erfassen und dem Verursacher in Rechnung stellen - richtig?

Das geht erheblich einfacher. Im Idealfall sogar ohne UserForm. VBA braucht's dafür dann aber schon.

Schöne Grüße

 

D'accord, @d'r Bastler!
Wenn die Orgie vorbei ist, mache ich eine Inventur.
Verluste oder Beschädigungen ermittle ich durch einfache Subtraktion und errechne mittels Multiplikation mit den Beschaffungswerten die Ausgleichszahlung.
Sinnvollerweise erhebt man vor der Veranstaltung eine Kaution und erstattet diese nach Abzug der Verluste zum Abschluss.
Null VBA, Mathematik auf Grundschulniveau!


Gruß Ralf

 

Moin Ralf,
wie böse Du wieder vereinfachst ! Hast aber natürlich absolut Recht
Schönen Sonntag!

 

Moin'sen Bastler; Ralf
Ich bin kein Profi in Sachen VBA, alles angewande ist nur erlesen;getestet; ggfs. unentliche Lange probiert

Meine Idee, lässt sich die Combobox soweit steuern, wenn erste Trefferablage (z.B. Label; Textbox) gefüllt ist,
eine nachfolgende Suche in der Combobox nun die nächste nach unten angelegte Trefferablage befüllt, die Stückeingabe händisch erfolgt.

Die schon gegebenen Array Ansätze werden mit einfließen, dafür nochmals vielen Dank

Da es nicht wirklich zum Erfolg geführt hat, habe ich in der letzten Version, eben die Such-Comboboxen vervielfältigt.

Im Grunde benötige ich nur Hilfe für den Code der Combobox

Das kleine Projekt "Combobox" ist nur ein fast letzter Teil eines schon gut gewachsenen Erfassungsprojekt

Vielen Dank euch, für die erbaulichen Hinweise

Gruß S

 

Dann zeige doch mal das Projekt!
Noch ein erbaulicher Hinweis:
Simplifizierung bedeutet in meinem Sinne Vereinfachung und nicht das eher negative Adjektiv simpel.
Und ja!
Erbaulich als Replik empfinde ich unpassend!

 

Hallo Ralf
Die Datei liegt nur im Vereinsrechner (Datenschutz), kein nach Aussen führen (Duplikat anlegen auf Externe) möglich.
Erbaulich ist nicht als solch Unverschämtheit gemeint, eher im Bezug auf die Vorschläge, wo ich mit weiter tüffteln kann!


Gruß S

 

Hallo Sperlingskitzler,

habe mir mal den letzten Stand deiner hier veröffentlichten Datei angesehen. Hierzu ergeben sich für mich einige Fragen. Alternative Vorschläge hast du ja schon bekommen, aber offenbar möchtest du an der UserForm-Lösung festhalten. Sei es drum.
Nun zu meinen Fragen:
- Wozu dient die Liste im Bereich der Spalten A bis Y?
- Warum hast du die Spalten AE bis AK so schmal gestellt?

Zusammenfassend gesagt, habe ich den Eindruck, dass du versuchst, einfache Dinge irgendwie kompliziert zu lösen. Da gibt es auch hinsichtlich des Userforms, (wenn es dann unbedingt verwendet werden soll), einiges an Optimierungspotenzial.

 

Hallo Klaus-Dieter,
Spalten A bis Y ist die Mietererfassung, hier nur die Nachnamen mit mit zugehöriger Mietnummer
Spalten AE bis AK sind nur schmal gestellt das auf dem Bildschirm die Inventarliste gezeigt wird
Beide Tabelle hätten näher zusammen erstellt werden können, ich hätte diese Bereiche löschen oder ausblenden sollen

Das UF soll im nachhinein keine Verwendung in der Art und Weise finden, lediglich möchte ich eine Combobox (ComboBox01) im Frame benutzen, für eine Anzahl an Textboxen oder Label, Stückzahlen werden neben den befüllten händisch befüllt
Gruß S

 

Hallo Sperlingskitzler,

warum dann so viele Spalten?

 

Hallo Klaus-Dieter,
einfach vergessen zu eliminieren.
Gruß S

 

Hallo,
Eigentlich macht man so was besser mit ‘ner Klasse. Aber ich denke da bist du völlig überfordert.
Ich hab‘s mal so umgebaut, dass sich die Listen der Comboboxen bearbeiten lassen - also .RowSource entfernt.
Den Rest habe ich keine Lust alles vernünftig umzuschreiben.

Gruß Uwe

 

Hallo Uwe,
Danke für deine Hilfe, alles umarbeiten ist auch nicht nötig.
Ich habe die Dateiliste eingedampft.
anbei die schmalere Version.
Schaden_neu2.xlsm
Es ist klasse das die schon gewählten Artikel nicht weiter aufgeführt werden in den Combo's.
zu:

[Klasse] Darüber kenne ich mich garnicht aus
ob ich als baldiger Rentner da noch durchsteigen werde ?
Vielen Dank für deine Hilfe

 

Hallo,

anbei mal deine 1. Datei komplett überarbeitet und den ganzen umständlichen Kram rausgeworfen und in Klassen angelegt.
Vielleicht noch so viel:
Ich habe bis vor reichlich 5 Jahren mit Programmieren nichts in meinem Berufsleben zu tun gehabt.
Da der Ruhestand in Sicht war hatte ich aber angefangen mich mit VBA zu beschäftigen.
Wenn es Spaß macht, lernt man alles war man für Interessant findet.

Gruß Uwe

 

Hallo Uwe,
Es funktioniert wunderbar
Danke für deine große Hilfe´
Am PC habe ich nur Mail's gecheckt, mal hier und da gegooglt.
Seit eine kleine grüne 250qm² Fläche mit Hütte den Alltag versüsst und im Verein diverse Pöstchen vergeben wurden, hab ich den VermietungsKontakt inne.
Der Excelfachmann im Verein hat den letzten Weg vor Jahren angetreten. Ich wurde ins kalte Wasser gelassen.
Keinen Schimmer gehabt, was da vor mir auf dem PC-Bildschirm los ist

Ich danke Dir sehr, ich hoffe das das Thema Excel & VBA mal meine Kreuzworträtselleidenschaft minimiert.

Gruß Sperlingskitzler

 

Hallo,
du kannst die Programmierung von mir einfach ohne weitere Anpassungen in deine neue Datei übernehmen.
Lediglich diese Prozedur musst Du austauschen:

Code:

Private Sub CommandButton1_Click()
    Dim i&, lz&
    With Tabelle2
        lz = .Cells(.Rows.Count, 4).End(xlUp).Row + 1
        If lz = 2 Then lz = 3
        .Cells(.Cells(.Rows.Count, 2).End(xlUp).Row + 1, 2) = Label1
        For i = 1 To 21
            If Controls("TxtErsatz_" & i) <> "" Then
                lz = .Cells(.Rows.Count, 4).End(xlUp).Row + 1
                If lz = 2 Then lz = 3
                .Cells(lz, 4) = Controls("TxtErsatz_" & i)
                .Cells(lz, 5) = Controls("Txt_Stk_" & i)
            End If
        Next i
    End With
End Sub

Falls du weniger Text-/Comboboxen verwenden willst, musst du die Anzahl der Schleifendurchläufe entsprechend anpassen.
Also beispielhaft statt 1 to 21 dann 1 to 10 oder wie auch immer.
Ach ja, verbundene Zellen brauchst du in deinem Fall nicht. Löse diese auf und nutzte unter "horizontal ausrichten" dafür "über Auswahl zentrieren".

Gruß Uwe