If target geht nicht

Private Sub Worksheet_Activate() If Target.Column = 13 Then 'Änderung in Spalte M If Target.Interior.ColorIndex = 3 Then 'rot markiert in spalte M lrow = Sheets("Erfassen").Range("A65536").End(xlUp).Row + 1 '1. freie Zeile wird ermittelt Range("A" & Target.Row & ":O" & Target.Row).Cut Sheets("Abgelaufen").Range("A" & lrow & ":O" _ _ & lrow) 'spalte ausschneiden und in anderem Register einfügen End If End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Activate() Sheets("Erfassen").Select Cells.Select Selection.AutoFilter ActiveWorkbook.Worksheets("Erfassen").AutoFilter.Sort.SortFields.Clear ActiveWorkbook.Worksheets("Erfassen").AutoFilter.Sort.SortFields.Add(Range( _ "M1:M300"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = _ RGB(255, 0, 0) With ActiveWorkbook.Worksheets("Erfassen").AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Rows("2:2").Select Selection.Copy Sheets("Abgelaufen").Select ActiveSheet.Paste Sheets("Erfassen").Select Application.EnableEvents = True Application.ScreenUpdating = False Worksheets("Abgelaufen").Activate Dim last As Integer last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 Application.CutCopyMode = False Selection.Delete Shift:=xlUp Selection.AutoFilter End Sub

HI
momentan machst du zwei Schritte:
1. Wähle Objekt XY aus (Select: Rows("2:2").Select)
2. Führe eine Aktion mit dem ausgewählten Objekt aus (Selection: Selection.Copy)
das lässt sich in der Regel zu einem Schritt zusammenfassen in dem man direkt sagt:
"Führe mit Objekt XY eine Aktion aus.
sieht dann so aus dass aus


Rows("2:2").Select
Selection.Copy

die Zeile wird


Rows("2:2").Copy

der Recorder muss das in dieser umständlichen Forml aufzeichnen, weil wir Mausschubser so arbeiten, aber in VBA kann man die Objekte immer direkt ansprechen.
Daher sollte mit dem Recorder aufgezeichneter Code immer nach diesem Schema überarbeitet werden.
Der Code wird dadurch
- kürzer
- besser lesbar
- weniger Fehleranfällig
- schneller in der Abarbeitung
beim Einfügen sollte man aber nicht das normale Einfügen aufzeichnen (STRG+V), sondern das Excelspezifische, das man über das Kontextmenü - Inhalte Einfügen erreicht.
beim normalen Einfügen (ActiveSheet.Paste) kann man das oben genannte Prinzip nicht anwenden sondern nur beim Inhalte einfügen.
wenn du dann noch bei jedem Range-Objekt das Tabellenblatt dazu schreibst, musst du auch nicht mehr das Blatt aktivieren und der Code bearbeitet auch Blätter die nicht aktiv sind.

Sheets("Erfassen").Rows(2).Copy

auch das kürzt den Code, der Bildschirm flackert nicht mehr und das Application.ScreenUpdating = False wird in den meisten fällen überflüssig, bzw der Code wird dann so schnell, das zusätzliche Ausschalten der Bildschirmaktualisierung keinen merkbaren Effekt mehr hat.
Gruß Daniel

Sub Schaltfläche2_Klicken() Dim lngLetzte As Long Dim lngZeile As Long With Worksheets("Abgelaufen") lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 2)), .Cells(.Rows.Count, 2).End(xlUp).Row, .Rows. _ Count) + 1 End With With Worksheets("Erfassen") For lngZeile = IIf(IsEmpty(.Cells(.Rows.Count, 2)), .Cells(.Rows.Count, 2).End(xlUp).Row, . _ Rows.Count) To 2 Step -1 If .Cells(lngZeile, 13)

Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
änderrn.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
Grußformel

Beliebteste Forumthreads (12 Monate)

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread