Guten Morgen,
ich versuche mich gerade an der Erweiterung ExcelDNA und möchte gerne ein zweites Argument, wie auf dem Bild erzeugen. Hat jemand Erfahrung damit und kann mir einen Hinweis geben?
Freue mich über Rückmeldungen.
ich versuche mich gerade an der Erweiterung ExcelDNA und möchte gerne ein zweites Argument, wie auf dem Bild erzeugen. Hat jemand Erfahrung damit und kann mir einen Hinweis geben?
Freue mich über Rückmeldungen.
VB.NET-Quellcode
- Option Strict On
- Option Explicit On
- Imports ExcelDNA.Integration
- Public Module MyFunctions
- <ExcelFunction(Name:="Quartal", Description:="Ermittelt das Quartal aus einem Datumswert.")>
- Public Function Quartal(
- <ExcelArgument(Name:="Datum", Description:="Datum auswählen oder eintragen.")> Datum As Date,
- <ExcelArgument(Name:="Auswahl", Description:="Zwischen 1=Short und 2=Long wählen.")> Auswahl As Integer
- ) As String
- Select Case Auswahl
- Case 1
- Select Case Month(Datum)
- Case 1 To 3
- Quartal = "Q1"
- Case 4 To 6
- Quartal = "Q2"
- Case 7 To 9
- Quartal = "Q3"
- Case 10 To 12
- Quartal = "Q4"
- End Select
- Case 2
- Select Case Month(Datum)
- Case 1 To 3
- Quartal = "1. Quartal"
- Case 4 To 6
- Quartal = "2. Quartal"
- Case 7 To 9
- Quartal = "3. Quartal"
- Case 10 To 12
- Quartal = "4. Quartal"
- End Select
- End Select
- End Function
- End Module
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Sam85“ ()