Daten an Anfang Tabelle einfügen

Sub Übertragen2() If (Range("A2", Range("G2").End(xlDown)).Count) = 6291450 Then 'Used Range Befehl?' Range("A2", Range("G2")).Cut Else Range("A2", Range("G2").End(xlDown)).Cut End If Sheets("Datenbank").Rows("2:2").Insert Shift:=xlDown End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Übertragen2() Dim lz1 As Long 'Mit xlDown nach unten suchen!! '** landet ggf. am Tabellen Ende!! +1 NICHT möglich!! lz1 = Range("G2").End(xlDown).Row If lz1 > 5 Then lz1 = Range("A2").End(xlDown).Row If lz1 > 5 Then MsgBox "Spalte A + G sind leer": Exit Sub 'Oder mit xlUp von unten suchen!! '** ist sicherer, landet bei leeren Zeilen bei 1! lz1 = Range("G100").End(xlUp).Row If lz1 > 5 Then lz1 = Range("A100").End(xlUp).Row If lz1 = 1 Then MsgBox "Spalte A + G sind leer": Exit Sub If (Range("A2", Range("G" & lz1)).Count) = 6291450 Then 'Used Range Befehl?' Range("A2", Range("G2")).Cut Else Range("A2", Range("G" & lz1)).Cut End If Sheets("Datenbank").Rows("2:2").Insert Shift:=xlDown End Sub

Hallo zusammen,
ich fand die Erklärung von Tristan nicht schlüssig und der Code-Beispiel (copy-paste aus i-net?) überhaupt nicht passend (Daher mein etwa barschen Urteil. Sorry dafür, es hilft nicht weiter)
Aber die Erklärung von Piet ist echt.. verwirrend (wenn auch gut gemeint). Das Coding zeigt mehrere Möglichkeiten, aber jenseits von Tristans -aktuellen- VBA-Kompetenz.
Richtig: letzte Zelle "von unten" suchen, also mit xlUp. Sonst hast Du das Risiko, dass deine Tabelle eine Leerzelle in Spalte G hat, und dann erwischst Du nicht alles.
Aber wie auch immer, das hilft nich zur Lösung des Problems: Du willst eine neue Zeile zwischen Zeile 1 und 2 einfügen. Mehr nicht.
Es kommt die komische Fehler, dass es nicht geht, weil angeblich alle Zeile bereit befüllt sind. Und daher eine neue dazwischen einzufügen die letzte Zeile rauswerfen würde...
Lösung 1: untere Bereich löchen
Normalerweise reicht es, die erste Zeile nach der letzte Zeile zu markieren, mit Shift+Strg+Pfreil nach unten um alles zu markieren und Strg+Minus um diese Zeile zu löschen (nicht nur Inhalt, sondern komplett löschen. Es fügen sich neue ein).
Lösung 2: alles neu macht ein neues Blatt
Du markierst den Bereich A1:G..letzte Zeile kopierst und fügst in eine neue leeres Blatt.
Danach sollte

Sheets("Datenbank").Range("A2").EntireRow.Insert Shift:=xlDown

reichen um eine neue Zeile ohne Fehlermeldung einzufügen.
VG
Yal
(versucht trotzdem den Code zu lesen. Übung macht den Meister. Ein Frage mit einem Coding, das eindeutig nicht dazu passt, zu stellen, führt nicht selten zur Ablehnung)

Beliebteste Forumthreads (12 Monate)

Daten an Anfang Tabelle einfügen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread