Office: Datum

möchte Inhalt von Zellen aus einer Spalte übertragen, die teilweise Datum aber auch Text oder 6-stellige Zahlen enthalten, möchte aber nur das Datum übernehmen, wenn text oder etwas anderes, dann bitte 0, ich habe es mit Wenn Funktion versucht, finde aber nicht die Lösung, die Zahl erscheint immer als Datum

 

Hallo!

Leider bietet excel von haus aus eine solche funktion nicht an. Mit VBA lässt sich soetwas aber leicht realisieren.

1. Öffne Excel gehe mit ALT+F11 in den VBA Modus gehe auf einfügen-> Modul füge in diesem Modul nun folgenden Code ein.

Code:

Function Prüfdatum(bereich As Range) As String
For Each zellen In bereich
If IsDate(zellen) = True Then
Prüfdatum = "Datum"
Else
Prüfdatum = 0
End If
Next
End Function

Somit hast du nun die Benutzerdefinierte Funktion PRÜFDATUM die Synaxe ist =Prüfdatum(nun hier deine Zelle).

Mit dieser Formel kannst du nun Zellen auf Datum prüfen

 

Hallo Manuel

Danke erstmal für die Hilfe, die Funktion einzugeben hat geklappt, wenn ich sie aber benutze, erhalte ich immer wieder eine fehlermeldung über Visual basic -Fehler beim kompilieren;ungültiges Zeichen- und im Ergebnis steht in der Zelle nur Datum als Wort

Sasti

 

Hallo!

versuch ers mal so! Was soll den dastehen wen ein Datum in der Zelle steht?

Code:

Function Pruefdatum(bereich As Range) As String 
For Each zellen In bereich 
If IsDate(zellen) = True Then 
Pruefdatum = "Datum" 
Else 
Pruefdatum = 0 
End If 
Next 
End Function 

 

Hallo,

ich werde es mal so versuchen,

wenn ein datum in der Zelle ist, soll es übernommen werden, wenn etwas anderes drin steht, dann entweder 0 oder nichts.

Das größte Problem bestand darin, dass manche Zellen 5-stellige Ziffern enthalten, die kein Datum sind, excel mir aber daraus ein Datum errechnet

Danke