Hallo an Alle,

kurz zur Erklärung: Ich füge Daten (immer 4 Zeilen) in eine "Datenbank" ein, allerdings, wenn nicht alles ausgefüllt wird, erscheint als Platzhalter "leer". Diese möchte ich gleich im Anschluss löschen, dass es keine weiteren Formeln durcheinander bringt bzw. weil er mir dann bei der nächsten Suche von einer leeren Zeile immer unterhalb der 4 Zeilen springt (wenn ich nicht mit "leer" fülle). :(

Ich habe jetzt schon mehreres probiert, aber entweder es löscht mir die Zeilen nicht oder es löscht auch Zeilen die eingefügt bleiben sollen... Bitte um fachmännische Hilfe. Bitte, DANKE!

Gerne umgehe ich auch "leer", wenn ich dann zumindest wirklich immer in der letzten freien Zeile bin...

Hier der momentan Code:

  Range("N3:AE6").Select

  Selection.Copy

  Sheets("Datenbank").Select

  Range("A520").Select

  Cells(65000, 1).End(xlUp).Offset(1, 0).Select

  Dim last As Integer

  last = Cells(Rows.Count, 1).End(xlUp).Row + 1

  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

    :=False, Transpose:=False

  If Cells(last).Value = "leer" Then

  Rows(last).Delete Shift:=xlUp

  End If

  Sheets("BestandsKunde").Select

  Range("H43").Select

End Sub

Lg, B