Suchen und kopieren von bestimmten Zelleninhalten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub test() Dim Anzahl As Long, A As Long Dim SZelle As Range Dim Suchwert As String Suchwert = "Haus" 'Suchbegriff Anzahl = Application.WorksheetFunction.CountIf(Tabelle1.Range("A:A"), Suchwert) For A = 1 To Anzahl If A = 1 Then Set SZelle = Tabelle1.Range("A:A").Find(Suchwert) Rows(SZelle.Row).Copy Tabelle2.Cells(A, 1) 'ganze Zeile Kopieren Else Set SZelle = Tabelle1.Range("A:A").FindNext(SZelle) Rows(SZelle.Row).Copy Tabelle2.Cells(A, 1) 'ganze Zeile Kopieren End If Next A End Sub

Option Explicit Public Loletzte As Long Sub ml() Dim Loletzte As Long Dim RngZ As Range For Each RngZ In Worksheets("Tabelle1").Range("A1:E20") Loletzte = Worksheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row + 1 If RngZ Like "*Hallo*" Then Worksheets("Tabelle2").Cells(Loletzte, 1) = RngZ Next End Sub

Option Explicit Sub Lauf2() Dim RngZ As Range, x As Long x = 0 Worksheets("Tabelle2").Columns(1).ClearContents 'hier wird Ziel erst geleert For Each RngZ In Worksheets("Tabelle1").Range("A1:E20") If RngZ Like "*Hallo*" Then x = x + 1: Worksheets("Tabelle2").Cells(x, 1) = RngZ Next End Sub

hallo Mathias!
Vielen dank.
Nun möchte ich das ganze Verbinden.
Heißt erst in einer Spalte nach einem Wert suchen. (


Sub test)


Sub test()
Dim Anzahl1 As Long, A As Long
Dim SZelle1 As Range
Dim Suchwert1 As String
Dim C As Variant
Suchwert1 = "hallo"  'Suchbegriff
Anzahl1 = Application.WorksheetFunction.CountIf(Tabelle1.Range("A1:A10"), Suchwert1)
For A = 1 To Anzahl1
If A = 1 Then
Set SZelle1 = Tabelle1.Range("A1:A10").Find(Suchwert1)
Test2(SZelle1)
Else
Set SZelle1 = Tabelle1.Range("A1:A10").FindNext(SZelle1)
End If
Next A
End Sub


---------------------------------------

Den Range merken (z.B. hallo steht in A3) und in eine anderen Prozedur oder Funktion übergeben und mit dem ab dem Range mit bis zu einem gesetzem Ende einen anderen Wert (oder Menge von Werten) suchen. Diesen dann kopieren.

------------------------------------------------------



Function Test2(eineZelle As Range)
Dim Anzahl As Long, A As Long
Dim Suchwert As String
Suchwert = "Haus" 'Suchbegriff
Anzahl = Application.WorksheetFunction.CountIf(Tabelle1.Range(eineZelle), Suchwert)
For A = 1 To Anzahl
If A = 1 Then
Set SZelle = Tabelle1.Range("eineZelle.Rows:D1").Find(Suchwert)
Columns(SZelle.Column).Copy Tabelle2.Cells(SZelle.Row, SZelle.Column) 'ganze Zeile Kopieren
Else
Set SZelle = Tabelle1.Range("A1:D1").FindNext(SZelle)
Columns(SZelle.Column).Copy Tabelle2.Cells(SZelle.Row, SZelle.Column) 'ganze Zeile Kopieren
End If
Next A
End Function


-----------------------------------------------------

Da bekomme ich aber bei Zeile Test2(SZelle1) eine Fehlermeldung  warum?

Laufzeit 424 Object erforderlich

Was mache ich verkehrt?

Gruss

horst

Hallo,
habe jetzt erst gesehen, dass du mit meinem Beispiel arbeitest aber mit Matias gesprochen hasst.
Hier sind Fehler enthalten, ohne dies weiter zu testen.
In Test2
Anzahl = Application.WorksheetFunction.CountIf(Tabelle1.Range(eineZelle), Suchwert)
eineZelle ist Bereits ein Range- Objekt, von genau einer Zelle.
Also Du suchst in der Zelle wo hallo gefunden wurde Haus kann niemals funktionieren.
Tabelle1.Range("eineZelle.Rows:D1")
Geht so auch nicht, du schreibst einen fertigen String.
So müsste es ohne zu testen aussehen.
Tabelle1.Range("D1:" & "D" & eineZelle.Row)
SZelle ist in dieser Funktion nicht Deklariert
Dim SZelle As Range
Wahrscheinlich sind noch mehr Fehler drin.
Könntest Du genauer beschreiben was Du eigentlich vor hast, könnte man besser helfen.
Gruß Tino

Sub test1() Dim Anzahl1 As Long, A As Long Dim SZelle1 As Range Dim Suchwert1 As String Dim C As Variant Suchwert1 = "hallo" 'Suchbegriff Anzahl1 = Application.WorksheetFunction.CountIf(Tabelle1.Range("A1:A10"), Suchwert1) For A = 1 To Anzahl1 If A = 1 Then Set SZelle1 = Tabelle1.Range("A1:A10").Find(Suchwert1) Test2 SZelle1 Else Set SZelle1 = Tabelle1.Range("A1:A10").FindNext(SZelle1) End If Next A End Sub

Sub Test2(eineZelle As Range) Dim Anzahl As Long, A As Long Dim SZelle3 As Range Dim testzelle As Range Dim Suchwert As String Dim Anzahl1 As Long Dim abc As Range Suchwert = "Haus" 'Suchbegriff Anzahl1 = Application.WorksheetFunction.CountIf(Tabelle1.Range(eineZelle.Address, "D6"), _ Suchwert) ab = Tabelle1.Range(Cells(eineZelle.Column, eineZelle.Row), Cells(eineZelle.Column, 4)) dc = Tabelle1.Range(eineZelle.Address, "D6") ef = Tabelle1.Range("A6:d6") For A = 1 To Anzahl1 If A = 1 Then Set SZelle3 = Tabelle1.Range(eineZelle.Address, "D6").Find(Suchwert) Rows(SZelle3.Row).Copy Tabelle2.Cells(2, 1) 'ganze Zeile Kopieren Else Set SZelle3 = Tabelle1.Range(eineZelle.Address, "D6").FindNext(SZelle3) End If Next A Habe erstmal das Option Explicit raus genommen. Er sucht nun in test1() in der angebenen Spalte nach "hallo" wenn haus gefunden wurde ruft _ test1() test2(eine Zelle) auf nun sucht Test2 in der Zeile wo test1 hallo gefunden hat nach _ haus und kopiert die Werte nach Tabellenblatt2. Geht aber nicht mit Datum warum? Gruß Horst

Beliebteste Forumthreads (12 Monate)

Suchen und kopieren von bestimmten Zelleninhalten

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Suchen und kopieren von bestimmten Zelleninhalten

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread