Feldaktualisierung klappt nur mit Zahl ...........

habe ein Makro, welches beim ausführen einen Inhalt von Tabelle1 auf Tabelle2 platziert, dies klappt aber nur, wenn es mit einer Zahl anfängt .. was mache ich falsch, muss das Dim ein Integer sein, oder wie ..?

Hier der Code:

----------------------------------------------------------------

Sub UmfrageErgebniszaehler()

Dim org

org = Val(Left(Sheets("Tabelle1").Cells(11, 3), 2))
If org Then
Select Case Sheets("Tabelle1").Cells(11, 3).Value

Case " Testuser"
Sheets("Tabelle2").Cells(6, 2).Value = Sheets("Tabelle2").Cells(6, 2).Value + 1
.
.
Case Else

End Select
End If
End Sub
----------------------------------------------------------------

Danke schoneinmal
F.ekt