Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
29.05.2017 13:10:41 |
Julia |
|
|
|
13.06.2017 20:09:14 |
BigBen |
|
|
|
04.07.2017 13:08:09 |
Julia |
|
|
Mit Macro Zeile kopieren und unterhalb einfügen |
04.07.2017 16:58:30 |
Ben |
|
|
|
04.07.2017 17:18:36 |
Ben |
|
|
|
02.08.2017 16:24:45 |
Julia |
|
|
Von:
Ben |
Datum:
04.07.2017 16:58:30 |
Views:
2888 |
Rating:
|
Antwort:
|
Thema:
Mit Macro Zeile kopieren und unterhalb einfügen |
Hallo Julia,
ich habe Deinen VBA-Code etwas ergänzt bzw. umgeschrieben:
Sub Schrittfelder()
Rows("7:7").Copy
With GetNextEmptyRow(Rows("11:11"))
.Insert Shift:=xlDown
With .Offset(RowOffset:=-1).Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
.Delete ' Heruntergeschobene Zeile löschen
End With
Rows("7:7").ClearContents
End Sub
Function GetNextEmptyRow(rngRow As Range) As Range
Dim lngChkRow As Long, rngEmpty As Range
Dim bEmptyRow As Boolean
With rngRow.Worksheet
For lngChkRow = rngRow.Row To .UsedRange.Row + .UsedRange.Rows.CountLarge - 1
bEmptyRow = True
For Each rngEmpty In Intersect(.Rows(lngChkRow), .UsedRange).Cells
If Not IsEmpty(rngEmpty) Then
bEmptyRow = False
Exit For
End If
Next
If bEmptyRow Then
Set GetNextEmptyRow = .Rows(lngChkRow)
Exit For
End If
Next
End With
End Function
Die Select-Befehle sind unnötig.
Mit der Funktion GetNextEmptyRow wird die nächste leere Zeile ermittelt. Anschließend wird diese gefüllt.
Beim Einfügen der Inhalte werden nach wie vor alle Inhalte um eine Zeile nach unten verschoben. Die neue Zeile wird allerdings gleich wieder gelöscht.
die Variable rng zeigt nach dem einfügen auf die Leere Zeile unterhalb der eingefügten Zeile.
LG, Ben
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
29.05.2017 13:10:41 |
Julia |
|
|
|
13.06.2017 20:09:14 |
BigBen |
|
|
|
04.07.2017 13:08:09 |
Julia |
|
|
Mit Macro Zeile kopieren und unterhalb einfügen |
04.07.2017 16:58:30 |
Ben |
|
|
|
04.07.2017 17:18:36 |
Ben |
|
|
|
02.08.2017 16:24:45 |
Julia |
|
|