Überprüfen, ob best. Spalt. letzte Zeile identisc
19.11.2014 10:33:26
Peter
Mein Makro soll nur ablaufen, wenn der letzte Eintrag in den Spalten A, B, C, E, F und G in der gleichen Zeile steht. Das ist hier der Fall. Wenn ich die Teilargumente (z.B. Me.Cells(Rows.Count, 1).End(xlUp).Row) im Direktbereich auswerte, erhalte ich bei allen relevanten Spalten 453, ich sollte also die MsgBox nicht erhalten.
Was mache ich falsch?
Gruss, Peter
Sub XXX()
If Me.Cells(Rows.Count, 1).End(xlUp).Row = _
Me.Cells(Rows.Count, 2).End(xlUp).Row = _
Me.Cells(Rows.Count, 3).End(xlUp).Row = _
Me.Cells(Rows.Count, 5).End(xlUp).Row = _
Me.Cells(Rows.Count, 6).End(xlUp).Row = _
Me.Cells(Rows.Count, 7).End(xlUp).Row Then
Else
MsgBox "Letzter Eintrag der Spalten A, B, C, E, F und G müssen in der gleichen Zeile stehen"
Exit Sub
End If
''' Mein Code
End Sub
Anzeige