Office: (Office 365) UserForm zum bearbeiten von Tabellen und speichern

Guten Tag

Ich habe leider ein Problem, das mich zur Verzweiflung bringt. Vielleicht findet hier jemand einen Lösung für mein Problem. Ich bekommen leider einen Laufzeitfehler '1004'.
Zur Erklärung. Ich habe eine Liste mit verschieden Werten erstellt um diese bearbeiten zu können.
Wenn ich in der Tabelle über den Button "Werkzeug suchen", einen Nummer prüfen will, ob diese existiert. Wird eine UserForm geöffnet, die in der Spalte C sucht, ob es die Nummer schon einmal gibt. Wenn es die Nummer noch nicht gibt, kommt eine MsgBox mit dem Hinweis das es die Nummer noch nicht gibt und ob ein neues Werkzeug angelegt werden soll.
Wenn ein neues Werkzeug angelegt werden soll, kommt eine neue UserForm wo die Daten für die jeweiligen Zellen eingetragen und Übernommen wird. In der Spalte D wird auch geschaut ob es in einem bestimmten Ordne eine PFD gibt, wenn ja, dann wird der Link zu dieser PDF erstellt, wenn nein, wird die Nummer einfach übernommen.
Das alles funktioniert bis jetzt eigentlich sehr super.
Jetzt ist es nur so, wenn die Nummer in der Spalte C gefunden wird.
Wird in einer MsgBox der Hinweis ausgegeben, das die Nummer existiert und ob man diesen Eintrag bearbeiten will. Wenn man den Eintrag bearbeiten will, kommt man zu eine anderen UserForm, in der alle Daten aus den jeweiligen Zellen ausgelesen und in UserForm übernommen werden. Es gibt auch eine Neues TextFeld um weitere Daten einzutragen.
Im Grunde soll alles genauso funktionieren, wie wenn ich, ein neues Werkzeug anlege, nur das keine neue Zeile erstellt wird, sondern die gefundene Zeile, soll überschrieben werden.
Und wenn möglich die gefundene Zeile auf dem Tabellenblatt hervorgehoben werden, falls die Tabelle irgendwann länger ist, gleich die Richtige Zeile sieht, um den Link zur Rechnung zu benutzen.
Im Anhang die Datei, wie ich diese bis jetzt erstellt habe.
Ich muss aber auch sagen, ich habe diese Datei mit Hilfe von YouTube und ChatGPT erstellt. Da ich in VBA genau Null Erfahrung.
Ich würde mich sehr freuen, wenn es hier jemanden gibt, der mir sagen kann, was ich falsch gemacht habe.

Danke im Voraus für eure Hilfe.

MFG
Rene

 

Hi Rene,

willst du meine ehrliche Meinung hören? Vergiss die ganzen Userformen. Arbeite einfach direkt in der Tabelle und gut ist's. Was soll an den Userformen einfacher / effizienter / besser sein als wenn du direkt in der Tabelle arbeitest? Du musst doch nur eine Menge zusätzlicher Maus-Klicks auf OK etc. machen statt einfach alles mit der Tastatur und Enter zu erledigen.

Zu deinem Problem: Du musst der Variablen p_aktuelleZeile in der Userform UserFormBearbeiten1 auch irgendwo einen Wert zuweisen.

Ich hoffe dir ist auch bewusst, dass du in Spalte B kein Datum, sondern einen Text stehen hast, der nur wie ein Dtum aussieht. Das ist einer der Effekte, die durch UserFormen kommen.. Die kennen nämlich nur Textboxen, die wie der name schon sagt Text und kein Datum beinhalten. Wenn du in die Tabelle ein Datum eintragen willst, musst du dich schon selbst drurm kümmern indem du z.B. statt

Code:

.Cells(p_aktuelleZeile, 2).Value = Kaufdatum.Value

den Code

Code:

.Cells(p_aktuelleZeile, 2).Value = CDate(Kaufdatum.Value)

verwendest. Aber auch dann musst du dich zunächst darum kümmern, dass der Text in Kaufdatum von CDate auch in ein Datum umgewandelt werden kann. Sonst landest du bei der Eingabe von z.B. "30.02.2020" wieder im Debugger.

Du siehst, es gibt viele Fallstricke bei den Userformen. Alte Hasen werden dir übrigens das selbe raten wie ich: für solche Fälle, nämlich Listen einfach zu verwalten und zu Pflegen, gibt es nichts besseres als direkt in Excel zu arbeiten.

 

Hallo HKindler

Danke für deine schnelle Antwort

Dachte ich schaffe es das ich eine Suche in einer Tabelle, eine einfache Erstellung einer neuen Zeile mit einem Link zu einer PDF und das ändern einer gefunden Zelle, so verständlicher für meine Kollegen gestalte.

Ich dachte die Aktuelle Zeile wird mit



zu gewissen. Hab das von einem YouTube Video der seine Zellen von einer anderen Userform ausliest.

Nein das mit dem Datum habe ich nicht gewusst, danke für den Hinweis.

Mfg
Rene

 

Hi,

mit Property Let aktuelleZeile hast du zwar eine Funktion generiert, die du verwenden kannst, um die Variable p_aktuelleZeile zu setzen. Aber das musst du auch tun! Sprich irgendwo vor dem Aufrauf von

Code:

UserFormBearbeiten1.Show

musst du

Code:

UserFormBearbeiten1.aktuelleZeile = finden.Row

verwenden.

Übrigens gilt das zum Datum Gesagte auch für alle andere Zellen: alles, was aus einer Textbox kommt, ist Text - auch z.B. die Rechnungsnummer. Das sollte man immer berücksichtigen.

Und nochmals:

• deine Userformen sind in meinen Augen keine Erleichterung.
• wenn ich ein Werkzeug suche, kann ich entweder die Suchfunktion von Excel verwenden oder - wesentlich komfortabler - den Autofilter. Probier es aus!
• wenn man ein neues Werkzeug braucht, fängt man einfach direkt unterhalb der Tabelle an zu schreiben.
• den Hyperlink würde ich einfach in eine neue Spalte packen und dort die Formel =WENN([@Rechnungsnummer]="";"";HYPERLINK("C:\Ordner\Ordner\"&[@Rechnungsnummer]&".pdf";"Link")) verwenden.

 

Hallo Rene,

so ganz teile ich die Meinung von Helmut nicht, bei längeren Listen kann die Arbeit damit schon eine Erleichterung sein. Nur muss man eben wissen, dass die Objekte in den UserForms Texte in die Listen schreiben, da muss man dann eben gegensteuern, was aber kein Problem ist. Warum das so ist, wird wohl das Geheimnis von Microsoft bleiben, zumal das bei Access besser gelöst ist. Viel mehr stört es mich, dass du gleich drei UserForms "geschaffen" hast. Das lässt sich alles gut in einem unter bringen.

 

Zum Einwand von Klaus-Dieter,

lange Listen sind genau der Grund, warum ich für so etwas auch gerne Userforms verwende. Denn ohne diese erst mal ans Ende der Spalte zu scrollen, kostet mir zu viel Zeit.

Nach dem Userforms auf macs leider nicht zur Verfügung stehen, habe ich mir dazu einen BottomUp-Workaround gebastelt:

• als auslösenden Event z.B. WorkSheet-Activate or whatever
• Prüfung ob in Zeile 2 (unterhalb einer vermutlich vorhandenen Überschrift) Werte vorhanden sind
• Falls ja, wird einfach eine neue Zeile eingefügt, in die man dann das neue Werkzeug eintragen kann.
• Falls nein, ist ja schon Platz dafür.
• Per Doppelklick auf die neue Zeile kann man die neue Liste bei Bedarf noch sortieren und wieder eine leere Zeile einfügen.

Dieser BottomUp-Gedanke hilft auch bei Berechnung von ständig wachsende Spalten. Anders als auf der Kneipenrechnung stehen die Summen nicht unten, sondern oben.

Grüße

 

Öhmmm …
Strg + ↓

 

Moin

Gesegnet sind die die durch lange Listen scrollen.
Wir in Nichtskönnerhausen verwenden STRG+F oder den Filter.

 

Dann sind wir ja Nachbarn, Detlef!
Amateurkirchen ist doch gleich nebenan!

 

Danke Ralf für den Tipp mit Strg + ↓.
Mit 'ner Userform oder meinen Workaround kann ich ganz ohne Hotkey und Zeilenwechsel sofort neue Daten eingeben. Bin halt 'nen fauler Bastler.

 

Hallo Helmut

Danke für deine Hilfe bzw. deine Codezeile zum ansprechen der Zeile. Jetzt funktioniert es so wie ich mir das vorgestellt habe.
Ich muss dir sagen, ich finde es schon als eine Art Erleichterung für meinen Kollegen. Da es ihm mit nur einen Button, gleich sagt ob es das Werkzeug schon gibt oder nicht. Es wird auch noch etwas mehr dazukommen, als jetzt vorhanden. Nur will ich mal das alles, was vorhanden ist, funktioniert, bevor ich weiter baue.

Die Formate der Zellen, werde ich mir noch genauer anschauen und überarbeiten/überdenken.

Den Hyperlink, wollte ich extra nicht über eine Formel in eine neue Zelle lösen, da mir diese Lösung nicht gefällt.

MfG
Rene

 

Hallo Klaus-Dieter

Ich habe mehrere UserFormen gewählt, aus mehreren Gründen.
Weil ich es von einem YouTube Video nachgebaut habe und für meine Bedürfnisse angepasst habe.
Weil ich die Möglichkeiten der Eingabe variieren wollte und
weil es mir optisch eigentlich sehr gut gefällt.

Mfg
Rene

 

Moin Rene,

das Ganze in eine Userform zu packen, hat durchaus seine Vorteile: Variablen, die Du jetzt in jeder USF neu füllen musst, behalten ihren Wert, wenn Du das Layout der USF lediglich pro Arbeitsschritt umbaust, sie aber nicht schließt (hide).

Dabei sind Frames und die Eigenschaft Visible eine gute Hilfe. Im Kopf der Userform eine Combibox mit den Arbeitsschritten und je nach Auswahl werden dann die entsprechenden Frames und Controls ein/ausgeblendet.

Grüße

 

Hier noch ein eine kleine Visualisierung:




Dies ist ein Schnellschuss ohne Funktion, und auf die überall verfügbaren Werte habe ich daher noh verzichtet. Aber vielleicht hilft's dennoch.

Grüße

 

Hallo d'r Bastler

Danke für deine Anregung, werde überdenken ob ich das nicht noch mit einbauen werde bzw. umbauen werden

LG
Rene