Problem mit VBA-Code
13.05.2009 17:09:49
JVLennox
ich bin bescheidener VBA-Anfänger und habe ein Problem mit einem selbstgebastelten Code - er tut nicht vollständig.
Was er tun soll ist, dass er in einer Tabelle in der Spalte B nach einer URL sucht. Findet er diese, soll die gesamte Zeile ausgeschnitten werden und in ein anderes Tabellenblatt kopiert werden. In dem neuen Tabellenblatt sollen die ganzen URL schön untereinander sein.
Leider klappt's nicht - kann mir dabei mal jemand helfen? Danke!
Folgenden Code habe ich:
Sub kopieren()
x = Cells(Rows.Count, 2).End(xlUp).Row
y = 2
For i = 1 To x
Dim a As Variant
a = 0
If Cells(i, 2) = "http://www.123-esistvorbei.com" _
Then
a = Rows(i)
Rows(i).Select
Selection.Delete Shift:=xlUp
Workbooks("Mappe1.xls").Sheets(3).Rows(y) = a
y = y + 1
End If
Next i
End Sub