Makro-Schleife 2.Versuch
01.07.2005 10:31:39
Lars
wie gestern schon beschrieben, suche ich ein Makro, das folgendes bewirkt:
Die erste Spalte einer Tabelle wird nach dem string "Contentedness" durchsucht.
Jede Zeile in der dieses Wort auftaucht, soll in eine neue bereichts vorher angelegte Tabelle kopiert werden. Die neue Tabellenseite heisst ebenfalls Contentedness.
Als Antwort habe ich folgendes bekommen:
Sub CopyLines()
Dim SuchSheet As Worksheet
Dim Contentedness As Worksheet
Dim ContentRow As Long
Set SuchSheet = ThisWorkbook.Worksheets("Tabelle1")
Set Contentedness = ThisWorkbook.Worksheets("Contentedness")
ContentRow = 1
For i = 1 To SuchSheet.Rows.Count
If SuchSheet.Cells(i, 1) = "Contentedness" Then
SuchSheet.Rows(i).Copy
Contentedness.Rows(ContentRow).Paste
ContentRow = ContentRow + 1
End If
Next i
End Sub
Beim Aufruf wird nun gesagt, dass das Objekt die Eigenschaft oder Methode nicht unterstützt:
Contentedness.Rows(ContentRow).Paste
Kann mir vielleicht jemand helfen?
Danke im Vorraus
Lars