Makro neue Zeilen einfügen in Excel

Anonym

Hallo,

ich hoffe von euch Ihr könnt mir helfen.

Wir haben eine Excel Tabellen mit vielen Datensätzen (Zeilen).

Dort müssen wir ständig neue Zeilen einfügen für neue Datensätze.

In der Zeile sind 2 Formel hinterlegt.

Nun bin auf der suche nach einem Makro das mir die Zeilen neu einfügt, den Inhalt (Schrift Farbe usw.) löscht aber die Formel mit kopiert.

Die Anzahl der neuen Zeile variiert. 1 oder 2 oder 3 oder....

Ich habe da ein Makro gefunden das mir aber immer nur 1 Zeile einfügt und bei Zeilen mit Inhalt diesen Inhalt nicht löscht

1. Makro

Sub Zeilen_einfügen()

Application.ScreenUpdating = False

Selection.EntireRow.Insert

' ACHTUNG: Das With darf nicht 1 drüber, da sich durch das Insert die Selection ändert

With Selection.EntireRow

.FormulaR1C1 = .Offset(-1, 0).Resize(1).FormulaR1C1

End With

Application.ScreenUpdating = True

End Sub

dann habe ich noch ein 2 Makro gefunden,

hier kann ich zwar mehrere Zeile markieren und dann neue Zeilen einfügen aber wieder rum das Problem, wenn ich eine beschriebene Zeile markiere wird der Inhalt nicht gelöscht

2. Makro

Sub zelleneinfügen()

' Zeilen_einfügen Makro

' Makro am 16.09.2010 von Privat aufgezeichnet

If Selection.Areas.Count > 1 Then

MsgBox ("Bitte nicht mehrere Bereiche auswählen!")

Exit Sub

End If

Application.ScreenUpdating = False

Selection.EntireRow.Insert

' ACHTUNG: Das With darf nicht 1 drüber, da sich durch das Insert die Selection ändert

With Selection.EntireRow

.Offset(-1, 0).Resize(1).Copy

.PasteSpecial Paste:=xlPasteFormulas

' Wenn in der Zeile unter den eingefügten Zeilen eine Formel in

' Spalte B steht, dann muss die korrigiert werden

If .Resize(1, 1).Offset(.Rows.Count, 1).HasFormula Then

.Resize(1, 1).Offset(.Rows.Count, 1).FormulaR1C1 = _

.Resize(1, 1).Offset(-1, 1).FormulaR1C1

End If

End With

Application.ScreenUpdating = True

End Sub

und ab hier hätte ich gerne eure Hilfe

Ein Makro das das alles kann

mehrere Zeile einfügt
beschriebene Zeilen löscht
aber alle Formeln kopiert

ist das irgendwie möglich

ich Danke euch

BG und noch schönes WE

Gesperrte Frage. Diese Frage wurde aus der Microsoft-Support-Community migriert. Sie können darüber abstimmen, ob sie hilfreich ist, aber Sie können keine Kommentare oder Antworten hinzufügen oder der Frage folgen.

0 Kommentare

Antwort, die vom Frageautor angenommen wurde

Anonym

Hallo Steffi,

probiers mal mit Schraffur:

Sub FindenFaerben()

Dim Such As Variant

Dim arrSuch As Variant

Dim c As Range, rngC As Range

Dim FirstAddress As String

Such = Application.InputBox("Gib hier deinen Suchbegriff ein" _

& Chr(10) & " und semikolongetrennt" & Chr(10) & _

"eine 0 für Suche in ganzer Zelle" _

& Chr(10) & "eine 1 für Suche in Teil der Zelle", _

"Suchbegriff", Type:=3)

arrSuch = Split(Such, ";")

Application.ScreenUpdating = False

With ActiveSheet

With .UsedRange.Interior

.Pattern = xlNone

.TintAndShade = 0

.PatternTintAndShade = 0

End With

Set c = .UsedRange.Find(arrSuch(0), LookIn:=xlValues, _

lookat:=IIf(arrSuch(1) = 0, xlWhole, xlPart))

If Not c Is Nothing Then

FirstAddress = c.Address

With c.Interior

.Pattern = xlLightUp

.PatternColorIndex = xlAutomatic

.ColorIndex = xlAutomatic

End With

Set c = .UsedRange.FindNext(c)

Loop While Not c Is Nothing And c.Address <> FirstAddress

End If

End With

Application.ScreenUpdating = True

End Sub

Mit freundlichen Grüßen

Claus

0 Kommentare

52 zusätzliche Antworten

Anonym

2014-09-07T14:35:55+00:00

Hallo Steffi,

hast du das Blatt geschützt und dann Arbeitsmappe schützen und freigeben gewählt?

Dann probiere es mal mit folgendem Code. Wenn du ein Passwort vergeben hast, musst du das im Code beim Entsperren und dem Setzen des Schutzes noch eingeben:

Sub Test()

Dim adr As Variant

Dim rngC As Range

Dim LCol As Long

Application.ScreenUpdating = False

Application.DisplayAlerts = False

With ActiveWorkbook

   .UnprotectSharing

   If .MultiUserEditing Then

      .ExclusiveAccess

   End If

End With

If Selection.Cells.Count < 16384 Then Exit Sub

ActiveSheet.Unprotect

With Selection

   .Copy

   LCol = Cells(.Row, Columns.Count).End(xlToLeft).Column

   adr = Split(.Address(0, 0), ":")

   Rows(adr(0)).Insert Shift:=xlDown, _

      CopyOrigin:=xlFormatFromLeftOrAbove

   For Each rngC In Range(Cells(adr(0), 1), _

      Cells(adr(1), LCol))

      If Not rngC.HasFormula Then

         rngC.ClearContents

      End If

   Next

End With

ActiveSheet.Protect

ActiveWorkbook.ProtectSharing

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub

Mit freundlichen Grüßen

Claus
War diese Antwort hilfreich?

0 Kommentare Keine Kommentare
Anonym

2014-09-07T12:34:25+00:00

Hallo Steffi,

markiere alle Zellen, auch die Formelzellen und gehe auf Eigenschaften => Schutz und entferne das Häkchen bei "Gesperrt".

Füge dir ein zweites Tabellenblatt ein, wähle Ansicht und entferne das Häkchen bei "Gitternetzlinien". Markiere nun in diesem Blatt einen Bereich der so groß ist wie der Bereich mit den Formeln im anderen Blatt => Einfügen => Als Bild => Als Grafik kopieren. Wähle dann die erste Zelle mit den Formeln und gehe auf Einfügen => Als Grafik einfügen. Damit liegt diese Grafik über den Formelzellen. Rechtsklick auf die Grafik => Größe und Eigenschaften und wähle bei Eigenschaften "Gesperrt".

Nun kannst du bei Überprüfen => "Arbeitsmappe schützen und freigeben" wählen. An die Formelzellen kommt keiner ran und die Makros laufen.

Mit freundlichen Grüßen

Claus
War diese Antwort hilfreich?

0 Kommentare Keine Kommentare
Anonym

2014-09-07T10:56:35+00:00

Hi Claus

ja, ich haben noch einmal ein wenig "rumgespielt",

ich glaube es liegt an der Sperrung der Zeilen im Makro selbst,

wenn ich diese Codes rausnehme funktioniert es,

dann aber ich aber eben das Problem das dieses Zellen wo sich Formeln befinden nicht vor z.Bsp. löschen geschützt sind

Danke

BG
War diese Antwort hilfreich?

0 Kommentare Keine Kommentare
Anonym

2014-09-07T10:22:10+00:00

Hallo Steffi,

ja, lies nochmals genau durch. Module können nicht bearbeitet werden.

Da steht nicht, Makros können nicht ausgeführt werden. Ich habe es getestet. Habe allerdings kein Netzlaufwerk. Die Makros laufen, solange sie nicht etwas machen wollen, das in freigegebenen Mappen nicht zugelassen ist.

Ich kann mir nur vorstellen, dass deine Sicherheitseinstellungen für dieses Netzlaufwerk die Ausführung sperren.

Mit freundlichen Grüßen

Claus
War diese Antwort hilfreich?

0 Kommentare Keine Kommentare