1 Userform für mehrere eingaben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Lukas,
warum bei dieser einfachen Datenstruktur überhaupt ein Userform?
Die Eingaben lassen sich direkt in der Tabelle doch wesentlich einfacher machen.
Fexibilität lässt sich "nur" durch zusätzliche Programierung lösen.
Abhängig vom gewählten Blattnamen muss man dann unterschiedliche Aktionen erlauben oder sperren.
Dies kann sein:
Im Userform werden je Nach Blattname zusätzliche Eingabefelder/Schaltflächen beim öffnen des UF sichtbar geschaltet.
Beim Eintragen der Daten in die Tabellen müssen dann dann auch entsprechende Ausnahmen geregelt werden.
Am Besten macht man das in Select Case Anweisungen.


Select Case Tabell 'Name der Tabelle
Case "Tabelle1"
Hier die Aktionen die nur in Tabelle1 passieren sollen
Case Else
'Hier die Aktionen, die nicht in Tabelle1 aber allen anderen Tabellen stattfinden sollen
end select
'Hier die Aktionen, die in allen Tabellen gleich sein sollen

Gruß
Franz

Hallo Lukas,
ich hab mal ein wenig an deinem Userform gebastelt.
Es ist jetzt möglich im Blatt Kassen mehrere Gruppen zu bearbeiten und ggf. auch eine neue Gruppe anzulegen.
Ich hab hierzu weitere Variablen im Modul als Public deklariert, die dann im UF entsprechend verarbeitet werden. Die Variable bolBlock steuert ob mehrere Kontenblöcke verarbeitet werden können. Wenn alle 3 Eingabefelder leer sind kannst du mit Hinzufügen einen weiteren Block anlegen.
Ist die Option bolBlock=True (WAHR) dann wird bei hinzufügen immer in dem Block eine Zeile angehängt in dem aktiv eine Zeile gewählt ist.
Gruß
Franz
Da die Ansteuerung einzelner Tabellenzeilen im UF sehr mühselig bei dir ist, hab ich eine Listbox eingefügt, die die Tabellendaten anzeigt und mit deinem Vor- und Zurückbutton synchronisiert ist.
Eigentlich braucht du diese Buttons garnicht mehr, da du den Datensatz direkt in der Liste wählenkannst.
Gruß
Franz
https://www.herber.de/bbs/user/57675.xls

Private Sub CommandButton12_Click() 'Diese Zeile entsprechend Buttonname anpassen 'Inhalt der gewählten markierten Zeile löschen 'Ohne Prüfung der Textboxeingaben auf Pausibilität! On Error Resume Next If MsgBox("Zeileninhalte wirklich löschen?", vbYesNo + vbQuestion, _ "Inhalt der gewählten Datenzeile löschen") = vbYes Then bolAendern = True With Wks .Rows(lngIndex).ClearContents 'Alterntiv Zellinhalte einzeln löschen '.Cells(lngIndex, 1).ClearContents '.Cells(lngIndex, 2).ClearContents '.Cells(lngIndex, 3).ClearContents End With bolAendern = False ListBox1.ListIndex = lngIndex - 2 End If End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

1 Userform für mehrere eingaben

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread