Suchen und kopieren von bestimmten Zelleninhalten

bestimmten · 2008-08-28T07:41:27+00:00

Hey! Ich möchte gerne per Makro in einem bestimmten Bereich nach einen bestimmten Inhalt einer Zelle suchen. Dieser Wert (Inhalt) kann auch durchaus mehrmals vorkommen. Wenn ich einen gefunden habe kopiere diesen Wert (Inhalt) in eine andere Zelle oder in eine Zelle eines anderen Tabellenblattes und dann suche weiter, bis der nächte Wert (Inhalt) gefunden wurde oder der Suchbereich am Ende angelangt ist. Die Frage kann ich ssoetwas mit VBA erschlagen? Und wenn ja wie? Wer weis hier weiter? Gruß Horst

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

Hey tino !
Ich habe das jetzt so gemacht:
(scheint zu funktionieren)
--------------------------------------------------------------------------------


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

Suchen und kopieren von bestimmten Zelleninhalten

Forumthread: Suchen und kopieren von bestimmten Zelleninhalten

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial