AW: Wert von drei Zellen in 4 Zelle ausgeben
19.05.2020 12:01:43
drei
Danke vielmals,
Problem ist aber das sich der Wert ändert.
Also die Zellen sind immer die gleichen aber die Werte ändern sich.
Habe dies weiter unten geschrieben in einem anderen Thread.
Habe dafür versucht folgenden Code zu verwenden:
Bekomme aber einen Fehler bei der class oder syntax Fehler.
Sub Test()
Dim strMarks1 As String, strMarks2 As String, strSuch As String, class As String
strMarks1 = Sheets("Marks").Cells(2, 3).Value
strMarks2 = Sheets("Marks").Cells(2, 4).Value
strSuch = strMarks1 & " " & strMarks2
'Alternativ geht auch
'strSuch = Sheets("Marks").Cells(2, 3).Value & " " & Sheets("Marks").Cells(2, 4).Value
' check the marks using if and ElseIf
If strSuch = "Sonnen König" Then
class = "Frankreich"
ElseIf strSuch = "Frosch König" Then
class = "Taucher"
Else
' All other marks
class = "Fail"
End If
Sheets("Marks").Cells(2, 5).Value = class
End Sub