Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Letzter Eintrag in Spalte

Forumthread: Letzter Eintrag in Spalte

Letzter Eintrag in Spalte
29.04.2003 12:31:01
André
Hallo ich habe folgende Frage:
In meiner Exeltabelle sind z.B. in der Spalte F die Ziffern 1, 2 und 3 sowie das Zeichen "<". Das Macro soll die letzte Zeile finden in der eine 1, 2 oder 3 eingetragen ist und unter diese Zeile 2 Leerzeilen einfügen.

Vielen Dank im voraus von André

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: Letzter Eintrag in Spalte
29.04.2003 12:39:41
ChrisL

Hallo André

Versuchs mal hiermit...

Option Explicit

Sub Macro1()
Dim i As Long
On Error Resume Next

For i = Range("F65536").End(xlUp).Row To 1 Step -1
If Cells(i, 6) = "1" Or Cells(i, 6) = "2" Or Cells(i, 6) = "3" Then
Rows(i + 1 & ":" & i + 2).Insert Shift:=xlDown
Exit For
End If
Next i
End Sub


Gruss
Chris

Anzeige
Re: Letzter Eintrag in Spalte
29.04.2003 13:19:16
André

Hallo Chris,
danke für Deine flotte Hilfe.
André

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige