der folgende Makro wird über eine Erweiterung des Kontextmenue´s angesteuert
Sub Hintergrund_gelb()
If ActiveCell.Column = 11 Then _
ActiveCell.Interior.ColorIndex = 6
'Zeile kopieren
Rows(ActiveCell.Row).Cut
Sheets("Probleme").Select
Range("A10").Select
ActiveSheet.Paste
Range("A1").Select
End Sub
das ausschneiden der aktiven Zeile im aktiven Blatt (ich arbeite mit 4 Blättern) klappt, genauso das einfügen im Blatt Probleme. Was ich nicht "hinkriege", die Zeile die ich in einem Blatt mit Cut ausgeschnitten habe bekomme ich nicht gelöscht, es bleibt immer die leere Zeile. Wenn ich nach
Rows(ActiveCell.Row).Cut
sage das die leere Zeile gelöscht werden soll, fügt er nichts mehr im Blatt "Probleme" ein.
ich weiß nicht was ich verkehrt mache ... ? ! ? !
Gruß Peter