Supportnet / Forum / Tabellenkalkulation

Hallo, ich möchte bestimmte Daten in einem Tabellenblatt (2004) suchen und in ein neues Tabellenblatt kopieren. Die Daten die ich suchen möchte stehen in der Spalte "AP" auf Tabellenblatt (2004). Nun möchte ich alle Daten die mit dem Suchbegriff übereinstimmen auf eine neue Tabelle kopieren. Ich hoffe Ihr habt eine Lösung MfG Scotty

Wenn die Daten, die Du suchst, in einer Spalte stehen und rechts neben diesen Daten noch weitere, versuchs mit der SVERWEIS Funktion.
Dann eine Verknüpfung zum anderen Tabellenblatt und schon.....

sorry:

m.f.G.

Krablix

Hallo Krablix,

die Daten die ich suche stehen in keiner Tabelle.
Sie werden immer mit unterschiedlichen Suchbegriffen abgefragt.


MfG

Scotty

Also versteh ich das richtig?
Du suchst Daten in einem Tabellenblatt aber die Daten stehen in keiner Tabelle?
*verstehnixgrübelgrübel*

Krablix

Ja,
das verstehst Du richtig.

Ich habe es schon folgendermaßen probiert:

Sub liste_erstellen()
Dim zaehler1 As Long
Dim letzte As Long
Dim suche1 As Range
Dim wert As Variant
With Worksheets(2)

´´Rem hier gegebenenfalls suchbegriff aendern

wert = "1005"

For zaehler1 = 1 To Sheets("2004").UsedRange.SpecialCells(xlCellTypeLastCell).Row
Set suche1 = Worksheets("2004").Range("AP" & zaehler1 & ":AP" & Sheets("2004").UsedRange.SpecialCells(xlCellTypeLastCell).Row).Find(wert)
If Not suche1 Is Nothing Then
Sheets(1).Rows(suche1.Row).Copy
letzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
.Rows(letzte & ":" & letzte).Insert Shift:=xlDown
Sheets("Tabelle1").Application.CutCopyMode = False
zaehler1 = suche1.Row
End If
Next zaehler1
End With
End Sub
Aber irgendwie hatte keinen richtigen Erfolg damit.

Scotty

Uff, da ich mich noch nicht allzulange mit VB beschäftige, bin ich mit meinem Latein auch am Ende.

Sorry

Krablix

• Makro
• Daten kopieren - kein Speicherplatz?
• daten kopieren von festplatte zu festplatte
• Daten kopieren unter Knoppix