Datum

Titel

19.04.2024 17:05:40

Zählen von Zeilen, in denen in bestimmten Bereich Daten sind

19.04.2024 16:34:52

gemeinsamer Filter über drei Spalten

19.04.2024 15:39:42

Exceltabelle daten per combobox zu word Datei

19.04.2024 14:04:05

PDF per VBA ausgeben - Seitenskalierung

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

348to352

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Daten suchen und in Worksheet einfügen

Forumthread: Daten suchen und in Worksheet einfügen
5 Beiträge zu diesem Forumthread
Anzeige
303 Threads zu ähnlichen Themen
Top 100 Forumthreads

08.12.2003 18:02:19

Marcel

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?

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Daten suchen und in Worksheet einfügen

08.12.2003 18:15:41

Karl-Otto Reimann
AW: Daten suchen und in Worksheet einfügen

08.12.2003 18:24:44

Marcel
AW: Daten suchen und in Worksheet einfügen

08.12.2003 18:26:26

Karl-Otto Reimann
AW: Daten suchen und in Worksheet einfügen

08.12.2003 18:37:07

Marcel
Alle haben mal so angefangen

08.12.2003 18:40:25

Karl-Otto Reimann

AW: Daten suchen und in Worksheet einfügen

08.12.2003 18:15:41

Karl-Otto Reimann

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

AW: Daten suchen und in Worksheet einfügen

08.12.2003 18:24:44

Marcel

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?

AW: Daten suchen und in Worksheet einfügen

08.12.2003 18:26:26

Karl-Otto Reimann

Ist eigentlich schon einfach, wo drückt der Schuh?

AW: Daten suchen und in Worksheet einfügen

08.12.2003 18:37:07

Marcel

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

Alle haben mal so angefangen

08.12.2003 18:40:25

Karl-Otto Reimann