Namen per Maske ergänzen etc.
08.06.2006 11:48:43
WalterMB
ich habe ein Makro, mit dem ich die "Freigabe" für das ändern einer
Textbox "Freischalte" und zwar entsprechend den Anwender.
Nun möchte ich aber die Namen "flexibel" ändern können, hinzufügen oder löschen,
so das das Makro darauf entsprechend geändert bzw. berücksichtigt wird.
Ich hätte eine Sheet der Name:"Typen" man könnte dort die Namen ab Zeile "S10"
bis "S100" etc. hinterlegen.
Wie kann man das anstellen.
Hier das bestehende Makro:
Private Sub TextBox1_AfterUpdate()
Dim Walter
Dim Klaus
Select Case Sheets("Test").Range("D1")
Case "Walter", "Klaus"
If TextBox1.Value = "" Then
TextBox1.Value = "000"
End If
ThisWorkbook.Worksheets("Test").Range("B1") = (TextBox1)
TextBox1 = Worksheets("Test").Range("B1").Value
TextBox1.SetFocus
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Case Else
MsgBox "Sie sind nicht berechtigt, " & Chr(13) _
& Chr(13) & "die MWST zu ändern ! " & Chr(13) _
& Chr(13), 48, " Hinweis !"
End Select
End Sub
mfg Walter