Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1604to1608
1604to1608
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wie beim Öffnen Formular-Zellen bereits befüllen?

Forumthread: Wie beim Öffnen Formular-Zellen bereits befüllen?

Wie beim Öffnen Formular-Zellen bereits befüllen?
03.02.2018 15:13:05
Juergen
Hallo zusammen,
ich habe vor Kurzem ein Script bekommen, welches mir beim Öffnen über Formularfelder Projekt-Nr. und Kunden-Nr. abfrägt. Klappt auch einwandfrei.
Jetzt ist es aber so, dass wenn ein bereits gespeichertes Sheet wieder geöffnet wird, dies geschützt werden soll nicht versehentlich vom User mit falschen Daten für Pj-Nr + Kd-Nr. wieder verändert zu werden?
Wenn nun das gleiche Sheet wieder geöffnet wird, könnte man die beiden Formularfelder gleich vor befüllen mit den Daten aus den Zellen C1 + F1 ausfüllen? Das wäre schon mal eine Vertipp-Hürde. Hätte jemand eine andere Idee?
Aufgrund meiner schmalen VBA Kenntnis leider nicht zu lösen für mich :/
Hier mein Beispiel (Blattschutz im Code vermerkt):
https://www.herber.de/bbs/user/119506.xlsm
Danke & Gruss,
Juergen
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: ..das ist elegant. Danke!
04.02.2018 14:26:51
Jürgen
Hallo onur,
hatte viel zu kompliziert gedacht.
Das ist einfach und genial. Vielen Dank für den Ausbau!
Eine Frage noch:
Wenn die Felder leer sind, erscheint das Formular zur Abfrage.
Es wird ja solange nichts oder falsch eingegeben an der Stelle blockiert.
Wie kann man den "Blockierschutz" auch auf das "Schliessen-Kreuz" der Message-Box ausdehnen, also auch wenn das jemand klickt, gleicher Hinweis kommt wie bei allem anderen?
Danke & Gruss,
Juergen
Anzeige
AW: ..das ist elegant. Danke!
04.02.2018 16:26:10
onur 

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If Cells(1, 3) = "" Then
MsgBox "Das bearbeiten dieser Datei ist erst nach Eingabe der Daten möglich!",  _
vbOKOnly, "!ACHTUNG!"
Cancel = True
End If
SheetProtection True
End Sub

Anzeige
AW: herzlichen Dank, klappt jetzt super!
04.02.2018 17:03:25
Jürgen
Hallo Onur,
herzlichen Dank, klappt jetzt super!
Schönen Sonntag noch,
Gruss, Juergen
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige