Option Explicit
Sub Ersetzenanderex()
Dim Bereich As Range, Wertebereich As Range, Wertebereich2 As Range
Dim Zelle As Range
Dim Zelle2 As Range
Dim Zelle3 As Range
Set Bereich = ActiveSheet.Range("B8:V8")
For Each Zelle In Bereich
Zelle.Value = Replace(Zelle.Value, " ", "_")
Zelle.Value = Replace(Zelle.Value, "-", "_")
Next Zelle
Set Wertebereich2 = ActiveSheet.Range("C8:V9")
For Each Zelle2 In Wertebereich2
Next Zelle2
Set Wertebereich = ActiveSheet.Range("C10:V29")
For Each Zelle In Wertebereich
If Zelle.Value = "" Then Zelle.Value = 0
Next Zelle
End Sub
Sub NurMalSo()
Dim c As Range, str As String
For Each c In Range("B8:V8")
str = Replace(c.Value, " ", "_"): str = Replace(str, "-", "_")
c.Offset(2, 0).Value = str & " in " & c.Offset(1, 0).Value
Next c
End Sub