Zellen nur über userform verändern

Hallo Freunde,
ich habe eine 0815 User - Form erstellt, in der Daten eingegeben und in jeweilige Zellen geschrieben werden. Jetzt habe ich 2 Fragen:
1.
Ich hätte gerne, dass die Daten nicht zeitgleich in die Zellen eingefügt werden sondern erst nach bestätigen in der User - Form. Wenn ich also z.B. in ein TExtfeld irgend etwas eingebe soll das nicht gleich in der Zelle erscheinen sondern erst wenn ich alle Textfelder ausgefüllt und auf dem Command-Button den Vorgang abgeschlossen habe. Wie bekomme ich das denn hin?
2.
Ich möchte verhindern, dass Benutzer des Sheets die Werte direkt in der Excel-Tabelle eingeben / verändern können. Ich möchte, dass man die Werte nur eingeben kann, wenn man das Makro aufruft und die Werte in der dafür vorgesehenen User-Form eingibt.
Ich hoffe ihr versteht was ich meine. Vielen DAnk schonmal für evtl. Ideen.
Tristan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Dim sW(5) As Single Dim rz As Integer rz = Cells(2, 30).End(xlToLeft).Column + 1 'Cells anpassen Cells(2, rz).SelectOn Error GoTo Schutz: ActiveSheet.Unprotect "Passwort" For i = 1 To 5 ' Anzahl der Eingaben, die untereinander stehen While sW(i) < Range("b54") Or sW(i) > Range("a44") 'Schleife wiederholt sich, bis Eingabe innerhalb Grenzen, in A44 bzw. B54 stehen die Ober- und Untergrenzen sW(i) = CSng(InputBox(i & ". Wert eingeben" & vbCrLf & vbCrLf & _ "Werte kleiner " & Range("b54") & " und größer " & Range("a44") & _ " werden abgewiesen !", "Eingabe")) Wend ActiveCell.Offset(i - 1, 0) = sW(i) Next Schutz: MsgBox "Schützen ?" ActiveSheet.Protect "Passwort" End Sub

Zu 1. und 2.
Um das schreiben der Daten erst nach betätigen des Commandbuttons auszuführen gehst du so vor. Denn Blattschutz mußt du vorher per Hand (Unter EXTRAS - SCHUTZ) aktivieren und dann kann man nur noch per VBA oder von dir weil du das Passwort kennst das Blatt geändert werden.


Private Sub CommandButton1_Click()
ActiveSheet.Unprotect ("passwort")
ActiveSheet.Range("A1").Value = ComboBox1.Value
ActiveSheet.Range("A2").Value = ComboBox2.Value
ActiveSheet.Range("A3").Value = TextBox1.Value
ActiveSheet.Protect ("passwort")
End Sub

Wenn du viele Zellen zu beschrieben hast kanst du auch eine With Funktion einbauen, um weniger zu tippen.
passwort sollte natürlich von dir mit einem bessern Passwort ersetzt werden.
Damit keiner dein Passwort lesen kann solltest du unter VBA EXTRAS - EIGENSCHAFTEN VOM VBAProjekt - SCHUTZ - Projekt für Anzeige sperren und ein Passwort eingeben.

Das ganze ist ungetestet müßte aber so in der Form laufen.
Gruß Heiko
PS: Das Forum lebt auch von den Rückmeldungen der Frager!

Beliebteste Forumthreads (12 Monate)

Zellen nur über userform verändern

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellen nur über userform verändern

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

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread