Makro neue Zeilen einfügen in Excel

Anonym
2014-08-16T19:48:50+00:00

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

Microsoft 365 und Office | Excel | Für Zuhause | Windows

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
2014-08-21T12:45:57+00:00

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

      Do

         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

War diese Antwort hilfreich?

0 Kommentare

52 zusätzliche Antworten

Sortieren nach: Am hilfreichsten
Am hilfreichsten Neueste Älteste
  1. Anonym
    2014-09-13T11:03:18+00:00

    Hallo Steffi,

    was sind denn die Voraussetzungen? Muss jeder zur gleichen Zeit daran arbeiten? Wie und von wem werden Konflikte gelöst, wenn jeder gleichzeitig unterschiedliche Werte speichern will?

    Was ist, wenn jeder seine eigene Mappe hat und der "Konfliktlöser" diese in gewissen Zeitabständen konsolidiert und wieder verteilt?

    Oder jeder hat seine eigene Mappe und die Änderungen werden anderweitig (z.B. durch Kommentare) hervorgehoben?

    Und wie schon geschrieben: Wenn du auf den Blattschutz verzichtest, läuft es besser.

    Mit freundlichen Grüßen

    Claus

    War diese Antwort hilfreich?

    0 Kommentare
  2. Anonym
    2014-09-13T10:09:48+00:00

    Hi Claus

    ja, das wusste ich vorher leider auch schon,

    ich wollte es aber mal versuchen eine vernünftige Lösung zu finden,

    die alternativen sind:

    • Google Docs (Excel Online)
    • das selbe bei GMX
    • das sind aber eben alles keine vollwertigen Excel Programme,

    oder kennst Du noch eine andere Lösung

    für alle deine Bemühungen vielen Danke

    BG

    Steffi

    War diese Antwort hilfreich?

    0 Kommentare
  3. Anonym
    2014-09-13T08:58:41+00:00

    Hallo Steffi,

    Excel ist nicht ideal, wenn es darum geht, dass mehrere Bearbeiter zur gleichen Zeit daran arbeiten. Und schon gar nicht, wenn auch noch Blattschutz im Spiel ist.

    Um den Blattschutz zu entfernen, musst du zuerst den Mappenschutz entfernen, dann die Freigabe. Dann den Code ausführen und dann alles nochmals in der umgekehrten Reihenfolge setzen.

    Normal wäre, dass jeder Zugriff hat, aber nur einer kann daran arbeiten. Alle Anderen öffnen die Mappe schreibgeschützt. Oder du kannst dich entschließen, den Blattschutz zu entfernen, damit man nicht immer wieder die Freigabe aufheben und wieder setzen muss.

    Mit freundlichen Grüßen

    Claus

    War diese Antwort hilfreich?

    0 Kommentare
  4. Anonym
    2014-09-13T08:05:41+00:00

    Hallo Claus

    ich habe mal einige Sachen getestet,

    wenn ich das Blatt schütze, dann Arbeitsmappe freigeben und auch den "Klicke" Speichern setze kann ich die neue Zeile einfügen und diese auch beschreiben,

    wenn meine Arbeitskollege diese dann öffnet sieht er auch diese Veränderung,

    wenn er dann aber auch eine neue Zeile einfügen will und dieses speichert kann ich das bei mir nicht sehen,

    bei mir erscheint dann sogar die Meldung "diese Datei ist nicht mehr freigegeben"

    meine Überlegung:

    das Makro hebelt die "Arbeitsmappe freigeben" auf, wird aber danach nicht wieder gesetzt?

    Danke für deine Hilfe

    BG

    Steffi

    War diese Antwort hilfreich?

    0 Kommentare