Office: Wert in nur einer Zelle zulassen ?

Hallo Excel Fans
folgendes Problem habe ich.
Ich habe mir eine Umrechentabelle geschrieben, in der verschiedene Werte in andere verschiedene Werte umgewandelt werden. Das klappt auch alles gut. Nun meine Frage: Kann man die Zellen B2 bis B10 so formartieren, dass eine eingegebene Zahl nur in einer Zelle möglich ist? Das heißt steht z.B. in der Zelle B3 "5" und ich gebe nun in der Zelle B8 "7" ein, dann soll die 5 verschwinden usw.
Vielen DAnk Gruß Posaune

 

Hallo!

Das könnte man so machen:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B2:B10"), Target) Is Nothing Then
Application.EnableEvents = False
Dim MerksDir
MerksDir = Target
Range("B2:B10").ClearContents
Target = MerksDir
Application.EnableEvents = True
End If
End Sub

 

Hallo Schatzi
sieht gut aus, aber wo muß ich das was Du da schreibst eingeben. Ich bin leider nur ein Laie. Sorry.
Gruß Posaune

 

Hallo!

Rechtsklicke den Tabellenreiter des Blatts und wähle "Code anzeigen".
Kopiere den Code ins Codefenster rechts.

 

Danke das klappt Astrein.
Muß mich aber mal mit der Basic beschäftigen.
Danke Gruß Posaune

 

Hallo Schatzi
Gestern hats geklappt, heute leider nicht :cry: :cry: :cry:
Ich habe die Datei mal angehängt. Bitte mal anschauen wo der Fehler liegt.
Vielen Dank Posaune

 

Läuft bei mir wunderbar...

 

Hallo Schatz
wenn man das Arbeitsblatt "Diverse öffnet und einen Wert in "B" ändert hängt das Programm sich auf. Es öffnet sich ein Warnfenster - man kann "DEBUGGEN"oder "BEENDEN" drücken und dann funktioniert die formartierung nicht mehr.
Gruß Posaune

 

Hallo!

Weil du einen Blattschutz gesetzt hast!
Diesen musst du im Makro temporär aufheben:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B2:B10"), Target) Is Nothing Then
Me.Unprotect Password:="DeinPasswort"
Application.EnableEvents = False
Dim MerksDir
MerksDir = Target
Range("B2:B10").ClearContents
Target = MerksDir
Application.EnableEvents = True
Me.Protect Password:="DeinPasswort"
End If
End Sub

 

Hallo Schatzi
leider bin ich nicht schlau genug für solche Dinge. Für Deine Geduld und Hilfe echt DANKE SCHÖN.
Die Datei ist nochmal angehängt mit dem geänderten Makro. Leider funktioniert es wieder nicht.
Gruß Posaune

 

Bei mir funktioniert's wieder...

Gib doch einfach mal im Direktbereich "Application.EnableEvents=True" ein. Danach müsste es auch bei dir klappen.
(Sollte der Direktbereich im VBA-Editor nicht sichtbar sein, dann mit Strg+g einblenden.)

 

Danke Schatzi
jetzt klappts bei mir auch - komisch.
Eine letzte Frage hab ich noch.
Wenn sich jemand auskennt kann er über den Code nun das Passwort für den Blattschutz erkennen. Kann man das verhindern ?
Danke Posaune

 

Hallo!

Einen 100%en Schutz gibt es nicht!
Aber du kannst das VBA-Projekt passwort-schützen:
Im VBA-Editor:
Menü Extras > Eigenschaften von VBA-Projekt > Schutz

 

Vielen Dank Schatzi und ein schönes Wochenende.
Gruß Posaune