Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Aus einem String mit Datumsangabe das Jahr auslesen

Gruppe

Datum

Problem

Aus dem ein Datum enthaltenden String soll das Jahr ausgefiltert werden.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

StandardModule: Modul1

Function GebJahr(txt As String) As Integer
   Dim intCounter As Integer
   txt = txt & " "
   For intCounter = 1 To Len(txt) - 4
      If Mid(txt, intCounter, 5) Like "*#### *" Then
         GebJahr = Mid(txt, intCounter, 4)
         Exit Function
      End If
   Next intCounter
End Function

Sub Aufruf()
   Dim x As Integer
   x = GebJahr("Freiburg am 22. Juli 1955")
   MsgBox x
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen DatumZeit und Datum