Microsoft Excel

Herbers Excel/VBA-Archiv

Probleme mit Worksheet_Change

Betrifft: Probleme mit Worksheet_Change von: Sebastian
Geschrieben am: 20.08.2004 09:15:25

Hallo,

will ein Makro erstellen, welches die Spalten F:J auf Änderungen überprüft und bei Auftreten dieser den Bereich AM9:CN9 in die betreffende Zeile kopiert, wo sich was geändert hat. Also auch AM.target:CN.target

Danach werden die kopierten Formeln in feste Werte umgewandelt.

Soweit bin ich gekommen, aber makro wird abgebrochen:

Sub Worksheet_Change(ByVal Target As Range) 
If Target.Column = "F:J" Then 
Range("AM9:CN9").Select 
Selection.Copy 
Cells(Target.Row, Range("AM:CN")).Select 
Selection.PasteSpecial 

With ActiveSheet.Range("AM11:CN300") 
.Value = .Value 
End With 

End If 
End 
Sub 


Danke schonmal. 


  


Betrifft: AW: Probleme mit Worksheet_Change von: harry
Geschrieben am: 20.08.2004 11:01:03

hi,
versteh zwar nicht alles, was dein code so machen soll, aber so funkts bei mir:

Sub Worksheet_Change(ByVal Target As Range)
Dim zeiLe As Long

If Target.Column > 5 And Target.Column < 11 Then
    zeiLe = Target.Row
    Range("AM9:CN9").Select
    
    Selection.Copy
    
    ActiveSheet.Cells(zeiLe, 39).Select
    Selection.PasteSpecial
    
    With ActiveSheet.Range("AM11:CN300")
    .Value = .Value
    End With
    
End If
End Sub



liebe grüße,
harry