Zelle (Bezeichnung) mit Eingabemaske suchen, Daten auf nächsfreier Zelle unterhalb einfügen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Manu,
hier, teste mal
https://www.herber.de/bbs/user/134915.xlsm
Mein Code sucht zuerst die Namen aller konten und fügt diese in die Combobox ein.
Nach Auswahl einer der Konten und Eingabe von Betrag + Text für Betrag wird nach Klick auf "Daten eintragen" zuerst die Kontoüberschrift gesucht (+gefunden).
Jetzt wird nach der nächsten, leeren Zelle unterhalb von Kontoüberschrift gesucht.
Wenn gefunden, wird in die leere Zelle Text für Betrag und in der Nachbarzelle der Betrag eingetragen.
Als "Überwachung" habe ich nur erst mal eingebaut, dass der Button "Daten eintragen" nur dann den Code ausführt, wenn zuvor alle erforderlichen Daten ausgewählt + eingetragen wurden.
Wenn eines der Felder = leer, dann Abbruch mit hinweismeldung.
Noch nicht überwacht wird das Textfeld für den Betrag.
Das Feld sollte ja nur einen Zahlenwert enthalten. Einziger nicht numerischer Wert ist das Komma.
Alle anderen nicht numerischen Werte dürfen nicht eingetragen werden.
Wenn du das nicht hinbekommst, kannst du das ja in einem neuen Beitrag erfragen.
Auch wichtig ist, dass deine Originaldatei vom Aufbau genau so sein muss, wie deine Bsp-Datei.
Denn mein Code ist ja an die Bsp-Datei angepasst; funktioniert unverändert sehr wahrscheinlich also auch nur in der Bsp-Datei.
Wenn deine Originaldatei anders aufgebaut ist, musst du nur den Code anpassen.
Wenn du da Hilfe benötigst, zeig eine Bsp-Datei, die vom Aufbau genau so aussieht, wie das Original.
Hilfts?
Ciao
Thorsten

Option Explicit Sub Schaltfl?che1_Klicken() UserForm1.Show End Sub Sub sbFillCmb() Dim lrCell As Range UserForm1.Kontoauswahl.AddItem For Each lrCell In ActiveSheet.UsedRange If lrCell.Value "" Then If lrCell.Offset(0, 1).Value = "" And _ lrCell.Offset(0, -1).Value = "" Then UserForm1.Kontoauswahl.AddItem lrCell.Value End If End If Next End Sub Sub sbFillInTable() Dim lrCell As Range, lloRow As Long UserForm1.Kontoauswahl.AddItem For Each lrCell In ActiveSheet.UsedRange If lrCell.Value = UserForm1.Kontoauswahl.Text Then For lloRow = lrCell.Row To lrCell.Row + 22 If Cells(lloRow, lrCell.Column).Value = "" Then Cells(lloRow, lrCell.Column).Value = UserForm1.EingabefeldBuchungstext. _ Text Cells(lloRow, lrCell.Column + 1).Value = UserForm1.EingabefeldBetrag. _ Text Exit Sub End If Next End If Next End Sub

Hallo Thorsten
Danke für deine Hilfe soweit. Ich habe dir eine Originalversion der Datei angehängt (andere Konten, andere Zahlen).
https://www.herber.de/bbs/user/134956.xlsm
Damit du siehst wo der Zellbezug der Kontobezeichnungen herkommt, habe ich das betreffende Sheet auch drin gelassen.
Das ganze funktioniert nun so:
Anfang Jahr werden die Nummern und Konten in der Kolonne A und B (Sheet "Aufwand) erfasst und mit den jeweiligen Budgets (Kolonne C) versehen. Ich habe in der Kolonne J eine Verkettung drin, welche die Kolonnen A und B zusammenfasst.
Auf dem Sheet "Konto" ist bei der Überschrift der Konten der selbe Code (Verkettung) drin, welcher er aus dem anderen Sheet (Kolonne A+B) holt. direkt unterhalb der Überschrift wird auf der linken Seite des senkrechten Trennstrichs die Anfangsbuchung erfasst. Die Zahl holt er sich direkt aus dem anderen Sheet in der jeweiligen Zeile (ein Buchungstext ist bei der Anfangsbuchung nicht nötig). Dein Code schreibt nun auf die andere Seite des Trennstrichs zuerst den Betrag und dann den Buchungstext (habe den Code angepasst). Rechts des jeweiligen T-Kontos wird per Auswahl unter dem Textfeld "Status" der Stand der Buchung erfasst. Die zweitunterste Zahl rechts des Trennstrichs im T-Konto zeigt das noch übrige Budget an (Im ersten Konto "10 Umlaufvermögen die Zelle D18). Diese Zahl wird dann auf das Sheet "Aufwand" gezogen, wo es in den Kolonnen H und I eine Kurzübersicht der Budgets generiert.
So weit: Prächtig
Auch dein Code funktioniert super. Nur nimmt er alle Eingaben (exkl die der Eingabemaske selbst) und führt sie in der DropDown-Auswahl aus. Ich habe den Text mehrheitlich gelöscht oder durch Textfelder ausgetauscht. Aber leider habe ich nicht herausgefunden, wie man deinen Code anpasst, so dass er die Infos fürs Dropdown-Feld woanders holt.
Kannst du mir sagen, wie ich die Dropdown-Auswahl in der Eingabemaske so hinkriege, dass sie entweder nur die Kontoüberschriften auf dem Sheet "Konten" beachtet, oder (was wohl einfacher wäre) auf die Kolonne J im Sheet "Aufwand" zugreift (Ich habe in der Eingabemaske schon ein neues Dropdown-Feld hingekriegt, aber ich kann es nicht mit der Eingabe von "Betrag" und "Buchungstext" verknüpfen).
Vielen Dank für deine Hilfe
Grüsse
Manu

Beliebteste Forumthreads (12 Monate)

Zelle (Bezeichnung) mit Eingabemaske suchen, Daten auf nächsfreier Zelle unterhalb einfügen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zelle (Bezeichnung) mit Eingabemaske suchen, Daten auf nächsfreier Zelle unterhalb einfügen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread