Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
248to252
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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é

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

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

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

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige