Excel - Makro Zeilen löschen und hinzufügen

Hi,

ich habe folgende Problemstellung.

Ich habe in einem Sheet die Zellen B2 bis F2 mit dem Namen "Beginn" definiert.
Ferner habe ich die Zellen B7 bis F7 mit dem Namen "Ende" definiert.

Ich möchte nun ein Makro erstellen welches im ersten Schritt die Zeilen dazwischen löscht und dann eine vordefinierte Anzahl von Zeilen, die Zahl wird in A1 angegeben, einfügt.

Bitte um eure Hilfe!

Vielen Dank!

LG
elviz111

 

Ööööhh?!
Von Welchen Zeilen spricht der Herr, 2 bis 7 bzw. 3 bis 6? Und woher weiß das Makro wo die Grenzen des Löschbereichs sind; muss es die Ranges der Namen erfassen und mittenmang löschen? Ich sehe gerade nicht was ein Makro da nützt da das alles recht statisch aussieht.

Mal diese Prämisse (mittenmang rauslöschen) angenommen:

Code:

Sub Makro1()
Dim BeutzterName As String
Dim OberZeile As Integer
Dim UnterZeile As Integer
Dim BenutzteSpalte As Integer
Dim I As Integer
Dim NeueZeilen As Integer
 BeutzterName = "C_Spalte"
 NeueZeilen = Cells(1, 1).Value
 BenutzteSpalte = Range(BeutzterName).Column
 OberZeile = Range(benutztername).Row + 1
 UnterZeile = OberZeile + Range("C_Spalte").Rows.Count - 1 - 2
 For I = OberZeile To UnterZeile
  Rows(OberZeile).Delete
 Next
 For I = 1 To NeueZeilen
  Rows(OberZeile).Insert
 Next
 Range(Cells(OberZeile - 1, BenutzteSpalte), Cells(OberZeile + NeueZeilen, BenutzteSpalte)).Name = BeutzterName
End Sub

Hier wird nur eine einzige Spalte angenommen, und komfortabel der alte Name auf den neuen Bereich angewandt.
Wenn du andere Schnittgrenzen brauchst dürfte sich das leicht anpassen lassen.

Eric March

 

Hallo Eric,

super dein Code hat toll funktioniert. Genau das habe ich gesucht!

Vielen herzlichen Dank!

LG

 

Gern geschehen, dafür dass ich das relativ zügig hingestippselt habe - richtig schön ist das nämlich nicht
Eric March