Microsoft Excel

Herbers Excel/VBA-Archiv

Nach Veränderung Wert kopieren

Betrifft: Nach Veränderung Wert kopieren von: Stefan
Geschrieben am: 19.08.2004 13:51:30

Hi,

möchte gerne bei Veränderung eines Zellwertes oder einer neuen Eintragung, diese in ein anderes Blatt kopieren.
Kann mir jemand sagen, wie man so etwas anstellt?

Gruß Stefan

  


Betrifft: AW: Nach Veränderung Wert kopieren von: nighty
Geschrieben am: 21.08.2004 19:38:27

hi stefan :)

spielraum zum experimentieren :)

reagiert auf zellenwechsel,bei abschluss einer eingabe in a1 wird zeile 1 nach tabelle2 kopiert,automatische abtastung auf ende bzw. anschluss an der letzten zeile.

gruss nighty

einzufuegen alt f11(vbeditor)/projektexplorer/DeineTabelle

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Row = 1 And Target.Column = 1 Then
With Worksheets(1)
.Rows(1 & ":" & 1).Copy Sheets(2).Rows(Sheets(2).UsedRange.SpecialCells(xlCellTypeLastCell) _
.Row + 1 & ":" & Sheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
End With
End If
End Sub



 

Beiträge aus den Excel-Beispielen zum Thema "Nach Veränderung Wert kopieren"