Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

.value like "####"

Betrifft: .value like "####" von: Andy
Geschrieben am: 10.09.2004 14:03:14

Hallo!
ich will überprüfen ob in einer zelle eine vierstellige zahl steht.
als ansatz habe ich gefunden, dass man .value Like "####" schreiben kann.
wie kann ich das umschreiben dass etwas passiert wenn es eben nicht "####" ist- gibt es etwas wie unlike?
ich habe auch schon versucht:
If Sheets("neue").Cells(15, 1).Value <> "####" Then MsgBox...
aber das geht irgendwie nicht obwohl eine vierstellig zahl in der zelle steht erscheint die messagebox.

Gruß
Andy

  


Betrifft: AW: .value like "####" von: WernerB.
Geschrieben am: 10.09.2004 14:07:45

Hallo Andy,

wie wäre es damit?

If Len(Sheets("neue").Cells(15, 1).Text) <> 4 Then MsgBox...


Gruß
WernerB.


  


Betrifft: AW: .value like "####" von: ransi
Geschrieben am: 10.09.2004 14:11:29

hallo andi

versuch mal so:
ist aber nicht getestet.

Public
Sub t()
If IsNumeric(Sheets("neue").Cells(15, 1).value) Then If Len(Sheets("neue").Cells(15, 1).value) = 4 Then MsgBox "4 stellige zahl"
End Sub


ransi


  


Betrifft: AW: .value like "####" von: Andy
Geschrieben am: 10.09.2004 14:21:02

Der code funktioniert auch gut, nur lässt auch er eine kombination von zahlen und buchstaben zu..

danke trotzdem

Andy


  


Betrifft: AW: .value like "####" von: Andy
Geschrieben am: 10.09.2004 14:13:48

Hallo werner.

dein code funktioniert, jedoch lässt er buchstaben zu. es sollen aber nur 4 ziffern sein.

Andy


  


Betrifft: AW: .value like "####" von: WernerB
Geschrieben am: 10.09.2004 14:36:17

Hallo Andy,

dann eben so:

If Len(Sheets("neue").Cells(15, 1).Text) <> 4 Or _
Not IsNumeric(Sheets("neue").Cells(15, 1).Value) Then MsgBox...


Gruß
WernerB.


  


Betrifft: AW: .value like "####" von: ransi
Geschrieben am: 10.09.2004 14:31:58

hallo


Sub t()
If Not IsNumeric(Sheets("neue").Cells(15, 1).Value) Or Len(Sheets("neue").Cells(15, 1).Value) <> 4 Then MsgBox " keine 4 stellige zahl"
End Sub

ransi


  


Betrifft: Danke von: Andy
Geschrieben am: 10.09.2004 14:35:21

Danke ransi

dieser code funktionier so wie es mir vorgestellt habe.

Gruß
Andy


  


Betrifft: gern geschehen o.T von: ransi
Geschrieben am: 10.09.2004 14:42:19