Sub Ersetzenanderex()
Dim Bereich As Object, Wertebereich As Object, Wertebereich2 As Object
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
Zelle3.Value = Wertebereich2.Cells(8, 3).Value & "_in_" & Wertebereich2.Cells(9, 3).Value
Range("C33:V33").Value = Zelle3
Next
Set Wertebereich = ActiveSheet.Range("C10:V29")
For Each Zelle In Wertebereich
If Zelle.Value = "" Then
Zelle.Value = 0
End If
Next Zelle
End Sub