Frage von Lorehei, 13

Wie bringe ich einen Hinweis, der besagt, dass erst ab Zeile 13 eine neue Zeile eingefügt werden kann?

Hallo, 

ich habe hier ein VBA-Programm, um eine Zeile einzufügen. Ich würde gerne in einem Meldungsfenster anzeigen können, dass dies erst ab Zeile 13 möglich ist.

Sub Einfügen()
  r = ActiveCell.Row 
  If r >= 13 Then 
    ActiveSheet.Unprotect ("PE") 
    Range(Cells(r + 1, 1), Cells(r + 1, 25)).Insert Shift:=xlDown 
    Range(Cells(r, 1), Cells(r, 25)).Copy Cells(r + 1, 1)
    Cells(r, 1).Select ActiveSheet.Protect Password:="PE", DrawingObjects:=True, Contents:=True, Scenarios:=True
  End If
End Sub
Expertenantwort
von Suboptimierer, Community-Experte für Excel, 9
If r >= 13 Then
  '...
Else
  MsgBox "Neue Zeilen lassen sich erst ab Zeile 13 einfügen."
End If

Keine passende Antwort gefunden?

Fragen Sie die Community

Weitere Fragen mit Antworten