title image


Smiley Ich habs teilweise (wo anders her!!!)
Für alle die es interessiertzu 2)Private Sub TextBox30_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 65 To 90, 196, 214, 220 Case 97 To 122, 228, 246, 252: KeyAscii = KeyAscii - 32 Case Else: KeyAscii = 0 End SelectEnd Sub(von Günter Wimmer)wandelt in Großbuchstaben um (es werden auch nur Buchstaben akzeptiert)zu 3)Private Sub CommandButton2_Click() 'Datei Schließen Dim Mappe As Workbook Dateiname = ActiveWorkbook.Name For Each Mappe In Workbooks If Mappe.Name Dateiname Then Mappe.Close SaveChanges:=True Next Application.DisplayAlerts = False Application.QuitEnd Sub(von Jörg)Grüße UwePS: Ungleichheitszeichen werden hier als html.. angesehen (deshalb dazwischen den Blank rauslöschen)

 

Gruß UweD

Über Rückmeldungen würde ich mich freuen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: