Datenbereich automatisch um eine Zeile erweitern.

Forumthread: Datenbereich automatisch um eine Zeile erweitern.

05.01.2016 10:51:29

Sascha

Hallo,
in meiner Arbeitsmappe habe ich in einem Tabellenblatt Daten im Bereich (AT62:CG117).
Nun möchte ich eine automatische Erweiterung des Datenbereichs erzeugen mit Hilfe eines VBA-Codes.
Ziel dabei ist es, dass dabei der Datenbereich immer um die erste freie, darunterliegende Zeile erweitert wird.
Wenn also das Makro ausgeführt wird, soll eine Zeile mit gleicher Formatierung im Bereich (AT118:CG118) eingefügt werden. Bei erneutem Ausführen dann im Bereich (AT119:CG119) usw.
Ich probiere das nun schon eine Zeit lang, komme aber zu keinem vernünftigen Ergebnis. Über Hilfe wäre ich sehr Dankbar.
Gruß
Sascha

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datenbereich automatisch um eine Zeile erweitern.

07.01.2016 12:06:09

fcs

Hallo Sascha,
hier mein Vorschlag.
Eine weitere Leerzeile mit Formaten wird dann angefügt, wenn in der vorherigen Zeile Inhalte vorhanden sind.
Gruß
Franz

Sub Bereich_erweitern()
Dim rng_0 As Range, rngCopy As Range, rngUsed As Range
Dim wks As Worksheet
Dim Zeile As Long
Set wks = ActiveSheet 'Blatt ggf. genauer festlegen
With wks
'1. Datenzeile des Zellbereichs mit Basis-Formaten
Set rng_0 = .Range("AT62:CG62")
'Zellbereich vom Basis-Zellbereich bis zum Ende des Tabellenblatts
Set rngUsed = .Range(.Cells(rng_0.Row, rng_0.Column), _
.Cells(.Rows.Count, rng_0.Column + rng_0.Columns.Count - 1))
'letzte Zelle mit Inhalt im Bereich
Set rngUsed = rngUsed.Find(what:="*", After:=rngUsed.Range("A1"), _
LookIn:=xlFormulas, lookat:=xlWhole, Searchorder:=xlByRows, _
searchdirection:=xlPrevious)
If rngUsed Is Nothing Then
'noch keine Daten in der 1. Zeile
Else
Zeile = rngUsed.Row
Set rngCopy = rng_0.Offset(Zeile - rng_0.Row + 1)
rng_0.Copy
rngCopy.PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
'            rngCopy.Range("A1").Select
End If
End With
End Sub

AW: Datenbereich automatisch um eine Zeile erweitern.

07.01.2016 13:03:23

Sascha

Hallo Franz,
danke für Deinen Vorschlag.
Ich werde es gleich mal ausprobieren.
Beste Grüße
Sascha

Beliebteste Forumthreads (12 Monate)

Datenbereich automatisch um eine Zeile erweitern.

Forumthread: Datenbereich automatisch um eine Zeile erweitern.

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Datenbereich automatisch um eine Zeile erweitern.

Forumthread: Datenbereich automatisch um eine Zeile erweitern.

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread