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