Anzeige
Archiv - Navigation
1012to1016
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

VBA - spalte nach wert durchsuchen zeile einfügen

VBA - spalte nach wert durchsuchen zeile einfügen
01.10.2008 18:03:00
Dieter
Hallo,
ich versuche schon den ganzen Tag erfolglos eine Lösung für folgendes Problem zu finden - ich hoffe hier kann mir einer der Spezialisten Rat geben:
Ich habe eine Tabelle, in der in Spalte A einzelne Zellen mit x markiert sind. Ich möchte nun ein Makro bauen, das in der Spalte A nach diesen "x" sucht und in der jeweiligen Zeile eine neue Zeile einfügt (Die Zeile mit dem x wird dabei nach unten verschoben). Diese markierten Zeilen kommen mehrmals in der Spalte A vor. bisher bin ich mit der folgenden Lösung soweit gekommen, daß das erste X gefunden wird, allerdings fügt das Makro unendlich Zeilen ein.....

Sub test()
Dim finden, Zelle As Range
Set finden = Range("A1:A600")
For Each Zelle In finden
If Zelle.Text = "x" Then
Range(Zelle.Row & ":" & Zelle.Row).Insert Shift:=xlDown
End If
Next
End Sub


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

Betreff
Datum
Anwender
Anzeige
AW: VBA - spalte nach wert durchsuchen zeile einfügen
01.10.2008 18:11:50
Tino
Hallo,
vielleicht geht es so.
Sub test()
Dim lngRow As Long, A As Long
'ab der letzten Zelle in A 
'sonst  lngRow = 600 
lngRow = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
  For A = lngRow To 1 Step -1
    If Cells(A, 1) = "x" Then
      Rows(Cells(A, 1).Row).Insert Shift:=xlDown
    End If
  Next
Application.ScreenUpdating = True
End Sub


Gruß Tino

Anzeige
AW: VBA - spalte nach wert durchsuchen zeile einfügen
01.10.2008 18:35:13
Dieter
Hallo Tino,
dein makro funktioniert einwandfrei - vielen Dank!
Gruß,
Dieter

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige