Hallo,
hab mal wieder ein Problem, das ich selbst nicht lösen kann.
Hab 2 Makros in einem Sheet.
Das 1. Makro ist eine Funktion in der Spalte J für K. Das funktioniert auch reibungslos.
Das 2. Makro soll eine Zeile ausschneiden, wenn in Spalte M eine Zahl größer 1 steht, in einem anderen Sheet an letzter stelle einfügen und die die Zeile in Sheet 1 löschen. Das funktioniert, jedoch nur, wenn ich im Code bin und dort mit dem Cursor IM Makrotext bin.
Es steht alles in [Tabelle1] mit Abschnittsteilern zwischen den Subs. Makro sieht so aus:
Option Explicit
Option Compare Text
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim vntV As Variant, intIndex As Integer ....
End Sub
Private Sub Workbook_Open()
Dim lngLetzte As Long
Dim lngZeile As Long
With Worksheets("Erledigt")
lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 2)), .Cells(.Rows.Count, 2).End(xlUp).Row, .Rows.Count) + 1
End With
With Worksheets("Übersicht")
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) >= 1 Then
.Range(.Cells(lngZeile, 1), .Cells(lngZeile, 21)).Cut Worksheets("Erledigt").Cells(lngLetzte, 1)
.Rows(lngZeile).Delete
lngLetzte = lngLetzte + 1
End If
Next lngZeile
End With
End Sub
