title image


Smiley Re: Funktion in VBA erstellen
Hi!



Public Sub MonDiff()

Dim Datum1, Datum2 As Date

Dim Md, TL As String

Md = "Bitte geben Sie ein gültiges Datum ein!"

TL = "Datumsabfrage"

Datum1 = InputBox(Md, TL, Date)

Datum2 = InputBox(Md, TL, Date)



If Datum1 >= Datum2 Then

MonDiff = Datum1 - Datum2

Else

MonDiff = Datum2 - Datum1

End If

End Sub





So kannst du dir die Textboxenmalerei ersparen.



Code ausführen - fertig



Grüße



LXus

Grüße

 

LXus

 

Win7 x64

Office 2013 x64



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: