Leere Zeile einfügen
Tobson
Habe den folgenden VBA Code, bei Übereinstimmung der If Abfrage wird eine Tabelle mit Werten beschrieben, trifft die Übereinstimmung nicht zu, soll eine Zeile frei gelassen werden und die Schleife das nächste mal durchlaufen... . Ich suche ja immer die nächste frei Zeile in der If-Abfrage, daher kann ich ja keine Zeile frei lassen, da ja im nächsten Durchlauf wieder die freie zeile suche.... . Finde keine andere Möglichkeit, vielleicht kann mir jemand helfen. Hoffentlich ist meine Erklärung halbwegs verständlich...
die Spalte sollte dann beispielsweise so aussehen:
fsdggf
sfdgss
sdgsg
sgsdfg
sfgsgg
sdfgsd
sgsdgf
usw.
der Code:
For a = 17 To Worksheets("Tabelle1").UsedRange.Rows.Count Step 17
If ActiveCell.Offset(a, 0) = ActiveCell.Offset(0, -16) Then
ActiveCell.Offset(a, -16).Copy
ActiveSheet.Paste Destination:=Worksheets("Assets").Cells(65000, 3).End(xlUp). _
Offset(1, 0)
Else
Exit For
End If
Next a
Anzeige