Thema Datum  Von Nutzer Rating
Antwort
03.05.2011 08:39:50 Minako
NotSolved
Blau In Datum umwandeln und Wert addieren
 04.05.2011 21:13:05 vbMichel
NotSolved

Ansicht des Beitrags:
Von:
vbMichel		 Datum:
04.05.2011 21:13:05		 Views:
770		 Rating:
     
Antwort:
  Ja
Thema:
In Datum umwandeln und Wert addieren

'Versuch's mal damit....

Private Sub CalcDate()
    Dim rngDatas As Range
    Dim rngOneData As Range
    Dim intValue As Integer
    
    Set rngDatas = Worksheets("Datum").Range("M1", Sheets(1).Range("M1").End(xlDown))
    
    For Each rngOneData In rngDatas
        If rngOneData <> "" Then
            intValue = GetNumValue(rngOneData.Text)
            
            If UCase(rngOneData.Text) Like "*MONAT*" Or UCase(rngOneData.Text) Like "*MONTH*" Then
                rngOneData.Offset(0, 1) = DateAdd("m", intValue, Date)
            ElseIf UCase(rngOneData.Text) Like "*TAG*" Or UCase(rngOneData.Text) Like "*DAY*" Then
                rngOneData.Offset(0, 1) = DateAdd("d", intValue, Date)
            ElseIf UCase(rngOneData.Text) Like "*WOCHE*" Or UCase(rngOneData.Text) Like "*WEEK*" Then
                rngOneData.Offset(0, 1) = DateAdd("ww", intValue, Date)
            Else
                rngOneData.Offset(0, 1) = Date
            End If
        Else
            Exit For
        End If
    Next rngOneData
        
    Set rngDatas = Nothing
    
End Sub

Private Function GetNumValue(strText As String) As Integer
    Dim intCounter As Integer
    Dim strNimeric As String
    
    For intCounter = 1 To Len(strText)
        If IsNumeric(Mid(strText, intCounter, 1)) Then
            strNimeric = strNimeric & Mid(strText, intCounter, 1)
        End If
    Next intCounter
    
    If strNimeric <> "" Then
        GetNumValue = strNimeric
    Else
        GetNumValue = 0
    End If
    
End Function

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
03.05.2011 08:39:50 Minako
NotSolved
Blau In Datum umwandeln und Wert addieren
 04.05.2011 21:13:05 vbMichel
NotSolved