Hej hej

Sjäkv hade jag nog löst detta med ett formulär skapat i vba. Du lägger till formulär på samma sätt som du lägger till en modul om du inte gjort detta.
För att koden nedan ska fungera behöver du lägga till en textbox i formuläret. Dubbelkolla att din textbox blev döpt till textbox1. Lösningen kräver såklart en del jobb extra från din sida, men det är en bra början :).

Det går naturligtvis att lyssna på tangentbordet med, men detta är ganska mycket mer pyssligt eftersom det saknas stöd för detta och du behöver mängder med kodsnuttar som hämtar lösning från windows api.

Nedan kod ska ligga under formulärmappen
Option Explicit
Private Pwd As String
Private DontRun As Boolean


Private Sub Textbox1_Change()
If Not DontRun Then
DontRun = True
If Right(Textbox1.Text, 1) <> "*" Then
Textbox1.Text = Left(Textbox1.Text, Len(Textbox1.Text) - 1)
End If
DontRun = False
End If
End Sub

Private Sub textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not DontRun Then
DontRun = True
Textbox1.Text = Textbox1.Text & Chr(42)
Pwd = Pwd & Chr(KeyAscii)
DontRun = False
End If
End Sub
¨
'Denna kod ska ligga i en modul:
sub loadform()
userform1.show
end sub

Ja men hej igen, nu har jag gjort någonting som i alla fall liknar det du beskriver men jag vet inte hur jag kommer vidare...

Jag har gjort en skärmdump och tänkte bifoga en word-bilaga med skärmdumpen, men hur 17 gör jag då ??


Nä'häpp det gick ju inte men ok.


Var någonstans skall jag skriva den text som skall inspekteras ?? I Userform1 går det inte att skriva någonting ? Så jag provade med det vanliga Excelarket men det hände ju ingenting ändå ? Sen skapade jag en MsgBox men ingen respons då heller så jag vet inte hur...

Jag har inte använt Userform tidigare så jag kan nog behöva lite mer guidning där tidigare...


/fleXcel