kopieren
07.10.2002 16:33:23
andre
ich habe mit folgendem Code noch ein Problem.
ich möchte das bei einer Auswahl in Spalte K nicht nur die aktuelle Zelle kopiert und gelöscht wierd sondern die ganze Zeile und wie rufe ich das Makro auf sobald eine Auswahl erfolgt?
Option Explicit
Sub übertragen()
Dim Z As Long, lZ As Long
lZ = [k65536].End(xlUp).Row
For Z = 4 To lZ
If UCase(Cells(Z, 11)) = "JA" Then
Rows(Z).Copy Sheets("erteilt").[a65536].End(xlUp).Offset(1, 0)
Else
Rows(Z).Copy Sheets("nicht erteilt").[a65536].End(xlUp).Offset(1, 0)
End If
Cells(Z, 11).ClearContents
Next
End Sub
mfG Andre