Live-Forum - Die aktuellen Beiträge
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
Anzeige
Archiv - Navigation
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen/kopieren

Suchen/kopieren
24.09.2003 17:34:15
Frank
Hallo
kann mir jemand helfen?
ich möchte gern in die Tabelle 0 nur die Zeilen aus den Tabellen 1 bis 25 hineinkopieren, die in einer Zelle den Suchbegriff enthalten (z.B.ein bestimmtes Datum),ist dies möglich?
Danke
Frank

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen/kopieren
24.09.2003 18:57:05
andre
hallo frank,

voraussetzung:
- tabelle 0 ist in der Blettliste die erste
- tabellen 1-25 stehen in geordneter reihenfolge nacheinander in der liste,
- der Suchbegriff steht in jeweils derselben spalte, im beispiel in A
dann in etwa so:

Sub Kopieren()
Dim iCounter As Integer
Dim rngAct As Range
Dim suchWert As String
Application.ScreenUpdating = False
suchWert = InputBox("Suche nach: ", "Suche")
For iCounter = 2 To 26
With Worksheets(iCounter)
.Columns("A:A").AutoFilter Field:=1, Criteria1:=suchWert
Set rngAct = .Range("A2").CurrentRegion.SpecialCells(xlCellTypeVisible)
rngAct.Copy Worksheets(1).Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
End With
Next iCounter
Application.ScreenUpdating = True
End Sub


gruss andre
Anzeige
AW: Suchen/kopieren
25.09.2003 10:19:10
Frank
besten Dank

ich werde es gleich probieren

Frank

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige