Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1588to1592
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
Inhaltsverzeichnis

Suchen einer Bestimmten Zeile

Suchen einer Bestimmten Zeile
09.11.2017 15:48:15
Max
Hallo liebe Excel Pros,
ich habe folgendes Problem :
Ich habe folgende Liste (auch nochmal als Excel Datei:https://www.herber.de/bbs/user/117568.xlsx)
BF 1
Projects 1
Projects 2
Projects 3
BF 2
Projects 1
Projects 2
(Hier Zeile einfügen)
Projects 3
BF 3
Projects 1
Projects 2
Projects 3
Ich möchte unter BF2 - Projects 2 eine Zeile über VBA einfügen.
Hierfür habe ich diesen einfachen Code geschrieben

Sub Suchalgtest()
Dim i, j, lRow As Long
lRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lRow
If Cells(i, 1).Value = "BF 1" Then
For j = i To lRow
If Cells(j, 1) = "Projects 2" Then
Rows("j:j").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Exit For
Next j
End If
Exit For
Next i
End Sub

Ich wollte mit der Ersten Schleife das BF2 suchen und mit der 2. Schleife das Projekt 2 und dort dann eine Zeile einfügen.
Mit der ersten Schleife klappt das, aber die zweite Schleife funktioniert leider nicht mehr.
Kann mir jemand sagen woran das liegt ?
Vielen Dank schonmal im Vorraus :)
Liebe Grüße
Max

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

Betreff
Datum
Anwender
Anzeige
AW: Suchen einer Bestimmten Zeile
09.11.2017 17:30:07
ChrisL
Hi Max
Sub t()
Dim lngZ As Long, strBF As String
With ActiveSheet
For lngZ = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(lngZ - 1, 1) = "Projects 2" And strBF = "BF 2" Then
.Rows(lngZ).Insert
Exit Sub
End If
If Left(.Cells(lngZ, 1), 2) = "BF" Then strBF = .Cells(lngZ, 1)
Next lngZ
End With
End Sub
cu
Chris
AW: Suchen einer Bestimmten Zeile
15.11.2017 09:50:33
Max
Vielen Lieben dank!
Klappt alles!
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige