über VBA: Formel/Text /Zahl in einer Zelle?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() If ActiveCell.HasFormula Then MsgBox "Hier ist eine Formel!" Exit Sub End If If ActiveCell = "" Then MsgBox "Hier steht nichts!" Exit Sub End If If IsNumeric(ActiveCell) = True Then MsgBox "Hier ist eine Zahl!" Exit Sub End If If Not IsNumeric(ActiveCell) = True Then MsgBox "Hier ist ein Text!" Exit Sub End If End Sub

Hallo!

Vielen Dank für die wunderbaren Antworten, das war genau das, was ich gebraucht habe.

Ich habe jetzt folgenden Testmakro geschrieben:

=========================


Sub Inhalte()
Dim Ausgabetext(6)
Ausgabetext(1) = "eine Formel"
Ausgabetext(2) = "ein Datum"
Ausgabetext(3) = "nichts"
Ausgabetext(4) = "eine Zahl"
Ausgabetext(5) = "Text"
Ausgabetext(6) = "nicht erkanntes"
For I = 4 To 8
If Range("c" + CStr(I)).HasFormula = True Then
j = 1
MsgBox ("Die Zelle C" + CStr(I) + " enthält " + Ausgabetext(j))
ElseIf IsDate(Range("c" + CStr(I))) = True Then
j = 2
MsgBox ("Die Zelle C" + CStr(I) + " enthält " + Ausgabetext(j))
ElseIf Range("c" + CStr(I)) = "" Then
j = 3
MsgBox ("Die Zelle C" + CStr(I) + " enthält " + Ausgabetext(j))
ElseIf IsNumeric(Range("c" + CStr(I))) = True Then
j = 4
MsgBox ("Die Zelle C" + CStr(I) + " enthält " + Ausgabetext(j))
ElseIf Not IsNumeric(Range("c" + CStr(I))) = True Then
j = 5
MsgBox ("Die Zelle C" + CStr(I) + " enthält " + Ausgabetext(j))
Else: j = 6: MsgBox ("Die Zelle C" + CStr(I) + "enthält ")
End If
Next I
End Sub

=========================

Die Cellen C4:C8 enthalten:

C4: =A1*A2
C5: 100
C6: 18.09.03
C7: xyz
C8: (nichts)

Frage:

Kann ein Benutzer etwas eingegeben haben, das dann nicht den Bedingungen von J=1 bis j=5 entspricht? Kann es jemals dazukommen, dass J=6 wird? Was können irgendwelche Benutzer eingegeben haben, damit J=6 wird?

Vielen Dank fürs Lesen und Antworten!

liebe e-Grüße

Elmar

Sub Elmar() Dim Inhalt As String If Range("A1") <> "" Then Inhalt = Range("A1") Do While Len(Inhalt) > 1 If Left(Inhalt, 1) <> " " Then MsgBox "Zelle enthält Text" Exit Sub Else Inhalt = Mid(Inhalt, 2, Len(Inhalt) - 1) End If Loop MsgBox "Zelle enthält nur Leerzeichen." End If End Sub

Beliebteste Forumthreads (12 Monate)

über VBA: Formel/Text /Zahl in einer Zelle?

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

357 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

über VBA: Formel/Text /Zahl in einer Zelle?

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

357 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread