Moin Experten
Bin schon länger auf der Suche nach einer Lösung aber habe noch keine gefunden.
Das Problem, ich möchte ganze Zeilen die entweder über den Filter oder per Hand
ausgewählt sind Kopieren. Und dann noch mit einer Fehlermeldung wenn keine
Zeile markiert ist.
Was ich habe geht leider nur mit einer Zeile.
'Prüfen ob ganze Zeilen markiert wurden
Dim sRow As String
sRow = Right(Selection.Rows(1).Address, 5)
While (Val(sRow) = 0)
sRow = Right(sRow, Len(sRow) - 1)
Wend
If ActiveSheet.Rows(Val(sRow)).Cells.Count <> Selection.Cells.Count Then
MsgBox "keine komplette Zeile markiert"
Exit Sub
End If
Könnt Ihr mir dabei Helfen.
Gruß
Michael
|