title image


Smiley Re: poste doch mal was du angepasst hast!__ot
hiho



Public lastStr

Sub Worksheet_Change(ByVal Target As Range)

Dim mesIn

ActiveSheet.Protect UserInterfaceOnly:=True



If Target.Count > 1 Then Exit Sub



If Not Intersect(Target, Range("D11:D18")) Is Nothing Then



If Target.Value "" And lastStr "" Then



mesIn = InputBox("in dieser Zelle ist ein Wert" & Chr(10) _

& "um diesen zu ändern müssen sie ein PW eingeben", "Passwortabfrage")



If mesIn "pass" Then

MsgBox "nenenenene"

Application.EnableEvents = False

Target.Value = lastStr

Application.EnableEvents = True

End If

End If

End If

End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)



If Not Intersect(Target, Range("D11:D18")) Is Nothing Then



lastStr = Target.Value

End If



End Sub



hier lag der fehler Public lastStrPrivate



und das liegt nicht in einem Modul sondern in der Tabelle!



der Bereich von D11:D18 darf keinen Blattschutz haben



dann geht es



ist die Zelle leer kann ein Eintrag vorgenommen werden

steht schon etwas in der zelle kommt PW abfrage



:-)


Feedback nicht vergessen ! Gutes gelingen wünscht Chris

I didn't write this; a very complex macro did.

0110110001101001011001010110001001100101001000000110011101110010111111001101111101100101001000000110001101101000011100100110100101110011

geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: