Hallo,
Mit dem u.g VBA-Code versuche ich Werte die ich in Blatt DplWoche-1 eingegeben habe auf andere Zellen zu übertragen. Dies funktioniert auch innerhalb des Blattes DplWoche-1. Allerdings brauche ich einen Teil der Werte im Blatt DplWoche-2 und einen weiteren Teil in DplWoche-3 usw.
Dies habe ich probiert indem ich nach Worksheets das Tabellenblatt angegeben habe, aber ab einer bestimmten Anzahl von Zeilen macht er dicht (Prozedur zu groß)
Vielleicht kann mir jemand helfen, ich bin allerdings ein VBA Laie und benötige genaue Angaben.
Vielen Dank Stefan
Private Sub Worksheet_Change(ByVal Target As Range)
' MA-1 *** DplWoche-1
If Target.Address = "$AH$3" Then
Select Case Target.Value
Case "O"
Worksheets("DplWoche-1").[C8] = 0
Case "U"
Worksheets("DplWoche-1").[C10] = "U"
Case "FB"
Worksheets("DplWoche-1").[C10] = "FB"
Case "S"
Worksheets("DplWoche-1").[C8] = "7:42"
Worksheets("DplWoche-1").[C10] = "S"
Case "FP"
Worksheets("DplWoche-1").[C10] = "FP"
Case "DB"
Worksheets("DplWoche-1").[C10] = "DB"
Case "AB"
Worksheets("DplWoche-1").[C10] = "AB"
Case "MS"
Worksheets("DplWoche-1").[C10] = "MS"
Case "AZK"
Worksheets("DplWoche-1").[C10] = "AZK"
Case ""
Worksheets("DplWoche-1").[C10] = ""
Worksheets("DplWoche-1").[C8] = ""
Case Else
Worksheets("DplWoche-1").[C8] = ""
End Select
End If