|
Unigraphics : Excel
JoeG am 24.05.2006 um 07:36 Uhr (0)
Hallo schorschl, Variante 1 ist die genaue ÜbersetzungPublic Sub Variante1() If Range("A1").Value = 10101 Or Range("A1").Value = 10102 Then MsgBox "Ist richtig!!" Else MsgBox "Ist falsch!!" End IfEnd SubMit Variante 2 kannst du auf beide Zahlen unterschiedlich reagierenPublic Sub Variante2() Select Case Range("A1").Value Case Is = 10101 MsgBox "Zahl 10101 gefunden!!" Case Is = 10102 MsgBox "Zahl 10102 gefunden!!" Case Else MsgBox "keins gefunden!!" End SelectEn ...
|
| In das Form Unigraphics wechseln |
|
Unigraphics : Excel
JoeG am 18.05.2006 um 07:15 Uhr (0)
Hallomit Reset wird alles zurückgesetztEs wird die Default-Einstellung der Toolbar geladenmfgJoe
|
| In das Form Unigraphics wechseln |
|
Unigraphics : Excel
JoeG am 17.05.2006 um 07:21 Uhr (0)
Hallo SchorschWenn du den folgenden Code in VBA einfügst kannst du auf Speichern drücken bis du Schwarz wirst,gespeichert wird erst wenn in Zelle A1 der Text Ja steht!Viel Spaß damit!JoePrivate Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Sheets("Tabelle1").Range("A1").Value "Ja" Then Cancel = TrueEnd Sub
|
| In das Form Unigraphics wechseln |
|
Unigraphics : Excel
JoeG am 17.05.2006 um 15:37 Uhr (0)
Hallo schorschldas sieht dann so aus Application.CommandBars("File").Controls("Speichern").Enabled = False Application.CommandBars("File").Controls("Speichern unter...").Enabled = False Application.CommandBars("File").ResetmfgJoe
|
| In das Form Unigraphics wechseln |
|
Unigraphics : Excel
JoeG am 17.05.2006 um 13:42 Uhr (0)
Hallo schorschl1) Das ausschalten bzw. ausblenden der Schaltfläche Visible und Enabled gemacht. Application.CommandBars("Standard").Controls("Speichern").Visible = True Application.CommandBars("Standard").Controls("Speichern").Enabled = False2) Das ändern der Aktion ist da schon eine andere Sache Mit OnAction kann man eine Sub angeben die dann ausgeführt wird, mit Reset werden alle Änderungen an der Toolbar wieder gelöscht. Das Icon ändern hab ich leider auf die schnelle nicht gefunden, den Infotext ...
|
| In das Form Unigraphics wechseln |
