title image


246 228


Jo.. nu ist alles klar...probier das mal :Private Sub Text1_KeyPress(KeyAscii As Integer)'Buchstaben zwischen a und z If KeyAscii > 96 And KeyAscii KeyAscii = KeyAscii - 32 End If'umlaute (ö,a,ü) If KeyAscii =  246  Or KeyAscii =  228  O... Weiterlesen


Hallo, versuch´s mal so: Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii > 96 And KeyAscii < 123 Then ' A-Z KeyAscii = KeyAscii - 32 End If If KeyAscii = 252 Then KeyAscii = KeyAscii - 32 ' Ü If KeyAsc... Weiterlesen