Private Sub CommandButton1_Click()

Dim a, b, c, d As Integer

a = 0

Do While Tabelle1.Cells(6, 3 + r) <> ""

   b = Tabelle1.Cells(6, 3 + r)

   d = Tabelle1.Cells(6, 3 + r + 1)

   If b = "A" Or "a" Or "Ä" Or "ä" Then

       c = 1

   If b = "B" Or "b" Then

       c = 2

   If b = "G" Or "g" Then

       c = 3

   If b = "D" Or "d" Then

       c = 4

   If b = "E" Or "e" Then

       c = 5

   If b = "U" Or "u" Or "Ü" Or "ü" Or "V" Or "v" Or "W" Or "w" Then

       c = 6

   If b = "Z" Or "z" Then

       c = 7

   If b = "H" Or "h" Then

       c = 8

   If b = "C" Or "c" And d = "H" Or "h" Then

       c = 8

   End If

   Tabelle1.Cells(7, 3 + r) = c

   r = r + 1

Loop

End Sub

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

Es ist nochnicht fertig aber ich wollte es testen und weiß nicht was ich falsch gemacht habe... kann mir wer helfen?