For Each ... Next" ?
Djalil
Kann mir jemand bitte helfen? Der folgende Code funktioniert nicht:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rBereich_1, rBereich_2 As Range
Dim rZelle1, rZelle2 As Range
Set rBereich_1 = Range("B4:B34")
Set rBereich_2 = Range("C4:C34")
For Each rZelle2 In rBereich_2
For Each rZelle1 In rBereich_1
If Range("B35").Value = "X" Then
Sheets("Stundennachweis").Range("C10:C40") = Mid(rZelle1, 1, 5)
Sheets("Stundennachweis").Range("D10:D40") = Mid(rZelle1, 9, 5)
Sheets("Stundennachweis").Range("E10:E40") = Mid(rZelle1, 15, 100)
If Range("C35").Value = "X" Then
Sheets("Stundennachweis").Range("C10:C40") = Mid(rZelle2, 1, 5)
Sheets("Stundennachweis").Range("D10:D40") = Mid(rZelle2, 9, 5)
Sheets("Stundennachweis").Range("E10:E40") = Mid(rZelle2, 15, 100)
End If
End If
Next rZelle1
Next rZelle2
End Sub
Vielen Dank für die Hilfe
VG
Ahmadian