functions überall verfügbar machen, XLSTART
10.02.2006 13:50:42
Chri´stian
ich muss oftin verschiedene Tabellen, die Werktage eines Monats einfügen; dazu habe ich mir auch ein Makro geschrieben.
Da ich dieses Makro praktisch immer gebrauche, habe ich eine Datei mit dem Makro in XLSTART gelegt um IMMER darauf zugreifen zu können.
Aber bei jedem Start von einer Excel-Datei wird diese Arbeitsmappe mitgeöffnet, was recht nervig ist.
Zudem habe ich mir mehrere functions geschrieben, die mir das Leben im Allgemeinen mit vba einfacher machen. Auch diese
Function wollen immer aufrufbar sein.
Wer kennt einen Weg, um Makros praktisch überall verfügbar zu machen?
Hier der COde um nur Werktage einzufügen!
Sub Werktage_einfügen()
' dieses Makro fügt nur die werktage (mo - fr) wie gewünscht ein;
Dim temp As String
Dim monat As Integer
Dim heute As Date
Dim monatvgl As Integer
Dim jahr As Integer
z = MsgBox("Sollen die Werte HORIZONTAL eingefügt werden", vbYesNo, "Horizontal?")
If (z = vbYes) Then align = "hor" Else align = "ver"
z = MsgBox("Sollen die Werte von DIESEM MONAT eingefügt werden?", vbYesNo, "Diesen Monat?")
If z = vbYes Then heute = DateSerial(Year(Date), Month(Date), 1) Else temp = InputBox("Bitte Datum im Format MM.JJJJ (ohne Tag) eingeben, Zb. 02.2006 für Feb 06"): heute = "01." & temp
monat = Month(heute)
jahr = Year(heute)
monatvgl = monat
Dim wochentag
Do
wochentag = Weekday(heute, vbMonday)
If (wochentag > 5) Then 'do nothing
Else
ActiveCell.Value = heute
If (align = "ver") Then ActiveCell.Offset(1, 0).Select Else ActiveCell.Offset(0, 1).Select
End If
heute = heute + 1
monat = Month(heute)
Loop While monat = monatvgl
End Sub