Office: Excel VBA - IsText

Guten Tag zusammen,

Ich hätte eine Frage zu Excel VBA

Wie schreibe ich es am besten wenn ich folgendes möchte:

Wenn in der Zelle A1 ein Text ist dann soll in Zelle B1 ein "x" gemacht werden.
Wenn Zelle A2 Text ist dann B2 "x" usw usw.

Ich hab das schon für Zahlen hinbekommen, aber mit Text funktioniert das nicht...

If IsNumeric([c5].Value) Then
Range("i5").Value = "x"
End If
If IsNumeric([c6].Value) Then
Range("i6").Value = "x"
End If


Danke schonmal für die Hilfe

Grüße

 

Hi,

schon mal versucht mit

Code:

If Not IsNumeric([c5].Value) Then

---

 

Danke... :)

 

Eine Frage hätt ich noch dazu :)

Momentan hab ich das so stehen. Was gut Funktioniert.
"
If IsNumeric([Q9].Value) Then
Range("v9").Value = "x"
End If
If IsNumeric([Q10].Value) Then
Range("v10").Value = "x"
End If
If IsNumeric([Q11].Value) Then
Range("v11").Value = "x"
End If
If IsNumeric([Q12].Value) Then
Range("v12").Value = "x"
End If
If IsNumeric([Q13].Value) Then
Range("v13").Value = "x"
End If
.
.
.
"

Gibt es eine "schönere, einfachere" Lösung damit ich nicht für jede Zeile diesen if-end if brauche?
Also z.b. eine Bereichs Auswahl?

"Überprüfe ob von Zelle A1 abwärts -z.b. bis Zelle A100- eine Zahl drinnen steht dann mache folgendes...."

Danke schonmal

Grüße

Silver

 

Hallo Silver,
probier doch mal:
Public Sub Test()

Dim Zeile As Integer

For Zeile = 9 To 100
If IsNumeric(Cells(Zeile, 17).Value) Then
Cells(Zeile, 22).Value = "x"
End If
Next Zeile

End Sub

Allerdings gibt der auch ein x aus, wenn die Zelle leer ist.
@Karin, weißt Du warum?

Gruß,
Lutz

 

Hi Lutz,

eine leere Zelle automatisch als numerisch mit dem Inhalt 0 (Null) angenommen - deshalb reicht nicht, nur auf numerisch zu prüfen, man muss auch prüfen ob sie nicht leer ist

Code:

If IsNumeric(Cells(Zeile, 17).Value) And Cells(Zeile, 17) <> "" Then

---

 

Hallo Karin,

wieder was gelernt.

Vielen Dank,
Lutz

 

Danke euch Zwei für die Hilfe