Office: (Office 2010) Sterne als statt Text

Hallo!
ich Habe folgende Problemm

ich will in Spalte "E" Passwort Einfügen!
und statt text und zahlen will ich das Sterne Einzeigt

DAnke*biggrin.gif*

:)

 

die Anzeige in der Bearbeitungsleiste kann nicht verhindert werden. Warum nicht UserForm?

 

Ach shade

ich will nicht das ist in tabelle nicht passwort zeigt

steiter will ich das in Userform mit Button passwort anzeigt

gibt andere möglichkeit passwort in tabelle verschleirn*grins

 

Format ;;;

 

Ok ich hab ziele "E" Ausgeblendet funktioniert auch!*biggrin.gif*

Jetzt hab ich noch Kleine Problem

wie Krieg ich Sterne in ListBox1

ich habe bei Suche So

PHP:

         Private Sub SuchenButton_Click()
ListBox Suchen
Dim rngCell As Range
Dim strFirstAddress As String
With Worksheets("ZugDat").Range("A:A")
Me.ListBox1.Clear
Set rngCell = .Find(Me.Suchbox.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not rngCell Is Nothing Then
strFirstAddress = rngCell.Address
Do
With Me.ListBox1
.ColumnCount = 7
.AddItem
.List(.ListCount - 1, 0) = rngCell.Value
.List(.ListCount - 1, 1) = rngCell.Offset(0, 1).Value
.List(.ListCount - 1, 2) = rngCell.Offset(0, 3).Value
.List(.ListCount - 1, 3) = rngCell.Offset(0, 4).Value  <--- Dierser soll Sterne als statt text
.List(.ListCount - 1, 4) = rngCell.Offset(0, 5).Value
.List(.ListCount - 1, 5) = rngCell.Offset(0, 6).Value
.List(.ListCount - 1, 6) = rngCell.Offset(0, 7).Value
.ColumnWidths = "4cm;2,8cm;3,8cm;3,5cm;3,8cm;2,2cm"
End With
Set rngCell = .FindNext(rngCell)
Loop While Not rngCell Is Nothing And rngCell.Address <> strFirstAddress
Else
MsgBox "nicht gefunden", 48
End If
End With
End Sub


 

warum müssen Sterne angezeigt werden?
Ich bin dann raus UserForm wurde ja gleich im zweiten Beitrag abgelehnt.

 

Sorry ich hab nicht abgelengt ich hab gesagt "spaiter" wenn ich so weit bin

weil ich will dann in einzähln blatten (Userform) Passwort enzeigen lassen bei auswahl