Makro innerhalb Grenzen ausführen
13.11.2015 07:57:55
matthias
ich habe den nachfolgend Code in meiner Tabelle
Public Sub DatensatzLöschen()
Dim lngRow5 As Long, lngRow6 As Long
If TypeOf Selection Is Range Then
lngRow5 = ThisWorkbook.Names("Anfang").RefersToRange.Row
lngRow6 = ThisWorkbook.Names("Ende").RefersToRange.Row
Selection.Cells(1, 1).Select
If Selection.Row > lngRow5 And Selection.Row Nun habe ich jedoch ein Problem festgestellt es kann sein, dass alle Zeilen zwischen den beiden Grenzen gelöscht werden und dadurch es nicht mehr möglich ist neue dazwischen einfügen zu lassen über einen anderen Code.
Bsp.
Zeile 3 obere Grenze
Zeile 4 leere zeile
Zeile 5 untere Grenze
Wird nun Zeile 4 gelöscht, wandert die untere Grenze nach oben, und dadurch kann ich das Einfügemakro nicht mehr ausführen.
Deshalb möchte ich es so haben, dass das Lösch-Makro zum einem nur zwischen den Grenzen funktioniert so wie es bisher ist und zusätzlich muss immer mindestens eine Zeile zwischen den Grenzen sein.
Kann mir hierzu wer helfen?
Gruß
Anzeige