Wert in falsche zeile übertragen...
21.01.2005 18:01:10
Tommy
das funktioniert ja alles das im code 1 der wert in a1 geschrieben wird....ABER im code 2 soll der wert in B1 geschrieben werden....aber nach dem code wird der wert von code 2 in B2 geschrieben!!!! was muss ich verändern?
die tabelle müsste auf server sein.....bitte anschaun
https://www.herber.de/bbs/user/16573.xls
code 1:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$7" Then
With Sheets("Tabelle2")
lz = .UsedRange.Rows.Count + 1
If .Cells(1, 1) = "" Then lz = 1
Range("$C$7").Copy .Cells(lz, 1)
End With
End If
Code 2
If Target.Address = "$D$7" Then
With Sheets("Tabelle2")
lz = .UsedRange.Rows.Count + 1
If .Cells(1, 1) = "" Then lz = 12
Range("$D$7").Copy .Cells(lz, 1)
End With
End If
End Sub
Anzeige