Freigeben über

Excel Zeile oberhalb einer bestimmten Zeile einfügen

Anonym
2019-06-07T13:44:31+00:00

Hallo Zusammen,

Ich bin am erstellen einer Zeitkarte für mein Unternehmen.

 

Nun möchte ich ein Marko programmieren, wo ich mit einem Button eine Zeile Kopieren und einfügen kann. Diese soll immer oberhalb der Zeile "Krank / Unfall" eingefügt werden. Das Makro konnte ich soweit erstellen, jedoch erreiche ich nicht, dass diese immer Oberhalb der Zeile "Krank / Unfall" eingefügt wird. 

Hier mein Makro:

Sub NächsteZeile()

'

' NächsteZeile Makro

'

' Tastenkombination: Strg+n

'

    Rows("15:16").Select

    Range("J15").Activate

    Selection.Copy

    Rows("17:17").Select

    Selection.Insert Shift:=xlDown

    Range("A17:K18").Select

    Application.CutCopyMode = False

    Selection.ClearContents

End Sub

Kann mir dabei jemand helfen?

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

  1. Anonym
    2019-06-07T14:34:35+00:00

    Hallo,

    da sich beim Einfügen der Zeilen die Tabelle erweitert, kannst du nicht mit festen Werten arbeiten. Du musst vor dem Einfügen ermitteln in welcher Zelle "Krank / Unfall" steht.

    Probiere es mal so:

    Dim myRow As Long

myRow = Application.Match("Krank / Unfall", Range("A:A"), 0)
Rows(myRow).Resize(2).Insert xlShiftDown
Range(Cells(myRow - 4, 1), Cells(myRow - 3, 11)).Copy
Range("A" & myRow).PasteSpecial xlPasteFormats

    Claus

    3 Personen fanden diese Antwort hilfreich.
    0 Kommentare

1 zusätzliche Antwort

Sortieren nach: Am hilfreichsten
Am hilfreichsten Neueste Älteste
  1. Anonym
    2019-06-07T14:47:21+00:00

    Hallo Claus

    Hat besten funktioniert danke dir vielmals für deine schnelle Hilfe;-)

    0 Kommentare