M

Problem Makro
Wieviele Tage hat der Monat Sub tage()
    x = now
    MsgBox DateSerial(Year(x), Month(x) + 1, 1) _
    - DateSerial(Year(x), Month(x), 1)
End Sub
wenn ich in einer Tabelle die in der Spalte A das Datum des laufenden
Monats führt über Extras-> Maske die Eingabemaske öffne, ist die Datumsformatierung so wie in Spalte A (z.B. 01.12.01). Rufe ich jedoch die Maske
über Makro bzw. UserForm auf, ist das Datum "englisch" formatiert.
z.B. 12/01/01
von Hans W. Herber:

'zeigt das Datum in der Maske falsch an:
Sub ShowDataFormUSFormats()
Range("A1").Select
ActiveSheet.ShowDataForm
End Sub

'zeigt das Datum in der Maske richtig (Deutsch) an:
Sub ShowDataFormLocalFormats()
Range("A1").Select
CommandBars.FindControl(ID:=860).Execute
End Sub
Alle Modulblätter löschen

(Die Makros in DieseArbeitsmappe und in den Tabellen bleiben erhalten)

'von Bernd Held:

Sub mdlDelete()
Dim Mdl As VBComponent
With Application.VBE.ActiveVBProject
For Each Mdl In .VBComponents
If Mdl.Type = 1 Then .VBComponents.Remove Mdl
Next Mdl
End With
End Sub

'Sollte das Makro nicht laufen musst Du unter Menü Extras Verweise die Bibo
'Visual Basic for Application Extensions einbinden.
in Multipage per Makro die Seite wechseln Private Sub UserForm_Initialize()
MultiPage1.Value = 1 'Zweite Seite!
End Sub

Info: Page1 ist Null und Page2 ist 1 .....


 

Letzte Änderungen auf dieser Seite am 29.10.2006

Valid XHTML 1.0 Transitional    Valid CSS!

Berti's ExcelABC mit vielen Tipps und Tricks rund um Excel und die Makros bzw. VBA

Seitenanfang

A B C D E F G H i J K L M N O P Q R S T U V W X Y Z
Excel: 39  |  Formeln: 1  |  Funktionen: 8  |  Makro / VBA: 40  |  Hintergrundinfos: 7  |  Beispieldateien: 11  |  Komplettlösungen: 1