Private Sub Worksheet_Change(ByVal Target As Range)
Dim loLetzte As Long
If Target.Column <> 3 Then Exit Sub
With Worksheets("Tabelle2")
loLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
Target.EntireRow.Copy .Cells(loLetzte + 1, 1)
Cells(Target.Row, 1).EntireRow.Delete
End With
End Sub
symbolleisten in excel
luisa 14.01.2007 - 253 Hits - 4 Antworten
Excel - Symbolleiste speichern - Datei excel*.xlb fehlt
a_wurm 07.08.2007 - 237 Hits - 2 Antworten
Import von Excel nach Excel ohne Öffnen der Quelldatei
JamesBrown 29.10.2007 - 434 Hits - 3 Antworten
Excel 2002 Dateien in Excel 2007 für MS Vista Home Premium
1tiggy 09.11.2007 - 180 Hits - 5 Antworten
Absturz von Powerpoint UND Excel
RalfH 22.11.2007 - 144 Hits -