Makro zum Zeilen einfügen erweitern auf Übernahme der Zellenformate

[Calafati]

Hallo zusammen bei diesem heißen Wetter,

Ihr habt mir mal ein Makro gebastelt, welches mir unterhalb der aktuellen Zeile eine neue Zeile einfügt und die Daten mit übernimmt:

Sub InsertRow()
With ActiveCell
     Set Rng = .EntireRow
     .Offset(1).EntireRow.Insert xlDown
     .Offset(1).EntireRow.Value = Rng.Value
End With
End Sub

Ich habe eine Bitte. Könntet Ihr mir dieses Makro so erweitern, daß in der betreffend neuen Zeile auch verbundene Zellen 1:1 übernommen werden? Momentan ist es so, daß, wenn ich das Makro in einer Zeile aktiviere, in der bspw. 5 Zellen in der horizontalen mit einander verbunden sind, in der neuen Zeile darunter immer noch 5 einzelne Zellen stehen.

Das wäre ganz toll - vielen Dank vorab.
Allen ein virtuelles kühles Bier!!!
Gruß
Klaus

[MisterBurns]

Hallo,

das geht zB so

Code:

Sub Zeile_einfuegen()

Dim iRow As Integer
iRow = ActiveCell.Row

Application.ScreenUpdating = False

   Rows(iRow).Copy
   Rows(iRow + 1).Insert Shift:=xlDown
   Application.CutCopyMode = False
 
Application.ScreenUpdating = True
   
End Sub

[Calafati]

Bestens, Berni,
funktioniert!!
DANKE!!!

[Calafati]

Sorry, ich nochmal.
Das Makro funktioniert, aber nicht mehr, nachdem ich die Tabelle freigegeben habe.
Die Zeile wird zwar dupliziert, aber die Zellen sind nicht mehr verbunden, muß ja mit der Freigabe zu tun haben, oder?

Sorry, daß ich das vergessen hatte zu erwähnen, die Tabelle ist neu und es war nicht von Beginn angeplant, sie freizugeben.
Bei meinen anderen Pappenheimern weiß ich das mittlerweile

Gibt es auch für die freigegebene eine Lösung?

Besten Dank nochmal
Klaus

[MisterBurns]

Boah, mit freigegebenen Mappen kenne ich mich so gar nicht aus. Aber wenn man mal Tante Gugl bemüht, erfährt man:
https://www.tabellenexperte.de/das-kreuz...-in-excel/

Formatierungen und Arbeit mit Zellen

• Neue bedingte Formatierungen lassen sich nicht einrichten. Bereits vorhandene bedingte Formatierung werden aber korrekt angezeigt
  
  
• Einzelne Zellen bzw. Zellblöcke lassen sich weder einfügen noch löschen. Ganze Zeilen oder Spalten hingegen können eingefügt oder gelöscht werden
  
  
• Das verbinden von mehreren Zellen ist ebenfalls nicht möglich
  

Also haben wir mal wieder den Beweis, dass verbundene Zellen hauptsächlich Probleme verursachen. Versuche, darauf zu verzichten.

[Calafati]

Werde es mir merken und die Tabelle nochmal umstricken.
Danke Dir trotzdem!!
Viele Grüße
Klaus