Daten suchen und in Worksheet einfügen

• Daten suchen und in Worksheet einfügen von Marcel vom 08.12.2003 18:02:19
  • AW: Daten suchen und in Worksheet einfügen - von Karl-Otto Reimann am 08.12.2003 18:15:41
    • AW: Daten suchen und in Worksheet einfügen - von Marcel am 08.12.2003 18:24:44
  • AW: Daten suchen und in Worksheet einfügen - von Karl-Otto Reimann am 08.12.2003 18:26:26
    • AW: Daten suchen und in Worksheet einfügen - von Marcel am 08.12.2003 18:37:07
      • Alle haben mal so angefangen - von Karl-Otto Reimann am 08.12.2003 18:40:25

Betrifft: Daten suchen und in Worksheet einfügen
von: Marcel
Geschrieben am: 08.12.2003 18:02:19
Hallo,

ich möchte eine Such-Funktion starten. Die Daten werden in Tabellenblatt X gesucht (es handelt sich um: Stammnummer, Name, Vorname) und diese sollen in Tabellenblatt Y eingefügt werden.

If (Stammnummer= Worksheets("Personal").Range("A" & i)) Then
If (Name = Worksheets("Personal").Range("B" & i)) Then
If (Vorname= Worksheets("Personal").Range("I" & i)) Then

wie mache ich weiter?

Kann mir jemand einen Ansatz bieten?

Betrifft: AW: Daten suchen und in Worksheet einfügen
von: Karl-Otto Reimann
Geschrieben am: 08.12.2003 18:15:41
Hallo Marcel

Sub FilternUndKopieren()
Application.ScreenUpdating = False
With Range("A1")
.AutoFilter Field:=1, Criteria1:=">10"
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets ("Tab1").Range("A1")
.AutoFilter Field:=2, Criteria1:="Meier"
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Tab2").Range("A1")
.AutoFilter Field:=3, Criteria1:="Paul"
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Tab3").Range("A1")
End With
End Sub

mfG KO

Betrifft: AW: Daten suchen und in Worksheet einfügen
von: Marcel
Geschrieben am: 08.12.2003 18:24:44
Hossa, das ist ja für einen Anfänger wie mich ziemlich kompliziert, geht es nicht bißchen einfacht, so, dass ich das auch besser nachvollziehen kann?

Betrifft: AW: Daten suchen und in Worksheet einfügen
von: Karl-Otto Reimann
Geschrieben am: 08.12.2003 18:26:26
Ist eigentlich schon einfach, wo drückt der Schuh?

Betrifft: AW: Daten suchen und in Worksheet einfügen
von: Marcel
Geschrieben am: 08.12.2003 18:37:07
Ich bin nur ein VBA-Anfänger und kann mit dem Code nicht viel anfangen.

Man beachte daß ich den Code auch in geraumer Zeit mal präsentieren muss ...

Deswegen dachte ich an eine einfachere Anfänger-Variante

Betrifft: Alle haben mal so angefangen
von: Karl-Otto Reimann
Geschrieben am: 08.12.2003 18:40:25

Excel-Beispiele zum Thema " Daten suchen und in Worksheet einfügen"
Zellinhalt suchen und Zelle auswählen	Suchbegriff über mehrere Tabellenblätter suchen.
Suchen und weitersuchen	Zahl +/- 1 suchen
Ein Zeichen in einer Formel suchen	Datum suchen und Wert eintragen
Wert in Tabelle suchen und in UserForm ausgeben	Letzte Zelle mit Inhalt suchen
Textdatei nach Begriff durchsuchen und Fundzeile importieren	Wert in Array suchen, ohne jedes Datenfeld abzufragen