Tabelllenblattangabe in VBA
12.01.2004 11:52:03
Stefan
ich bräucht mal wieder einen Tip von Euch.
ICh hbae folgende VBA-Formel:
Private Sub Worksheet_Change(ByVal Target As Range)
' MA-2 *** DplWoche-1
If Target.Address = "$AH$4" Then
Select Case Target.Value
Case "O"
Worksheets("DplWoche-1").[C12] = 0
Case "U"
Worksheets("DplWoche-1").[C14] = "U"
Case "FB"
Worksheets("DplWoche-1").[C14] = "FB"
Case "S"
Worksheets("DplWoche-1").[C12] = "7:42"
Worksheets("DplWoche-1").[C14] = "S"
Case "FP"
Worksheets("DplWoche-1").[C14] = "FP"
Case "DB"
Worksheets("DplWoche-1").[C14] = "DB"
Case "AB"
Worksheets("DplWoche-1").[C14] = "AB"
Case "MS"
Worksheets("DplWoche-1").[C14] = "MS"
Case "AZK"
Worksheets("DplWoche-1").[C14] = "AZK"
Case ""
Worksheets("DplWoche-1").[C14] = ""
Worksheets("DplWoche-1").[C12] = ""
Case Else
Worksheets("DplWoche-1").[C12] = ""
End Select
End If
End Sub
Nun möchte ich dass er bei
If Target.Address = "$AH$4" Then
dies nicht aus dem aktuellen Blatt aus AH4 holt sondern aus einem anderen. Bsp. DplWoche-2 AH4
Vielen Dank schon mal
MfG Stefan
Anzeige