Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
252to256
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
252to256
252to256
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

suchen und kopieren

suchen und kopieren
07.05.2003 16:26:55
Lucien
Guten Tag

Ich braeuchte einmal eure Hilfe

Ich moechte von verschiedenen tabellenblaettern jedesmal den eintrag NEIN suchen und dann die ganze zeile wo dieses NEIN steht in ein blatt X untereinander kopieren.
Dies sollte automatisch geschehen ohne rueckfrage

Vielen dank fuer einen Ansatz
gruss lucien

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: suchen und kopieren
07.05.2003 17:02:13
Frank R

for i = 1 to Worksheets.count

for each.z in ActiveSheet.range(cells(1,1)cells(3,6).select
for Zeile_zae = 1 To 3
if z ="Nein" Then

copy Zeile
cells(4,1).Activate.insert zeile
end if
next Zeile_zae
next z

So ungefähr, einiges passt noch nicht aber ein Ansatz




Re: suchen und kopieren
07.05.2003 17:14:16
chris b

versuchs hiermit !
Sub suchenein()
Sheets("test").Select
Set zelle = Worksheets("test").Cells().Find("NEIN", LookIn:=xlValues)
If Not zelle Is Nothing Then
zeile = zelle.Address

Do

Rows(zelle.Row).Copy
Sheets("neintabelle").Select
zz = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(zz, 1).Select
Sheets("neintabelle").Paste
Cells(zz + 1, 1).Select
Set zelle = Worksheets("test").Cells().FindNext(zelle)

Sheets("test").Select
Loop While Not zelle Is Nothing And zelle.Address <> zeile


End If
Application.CutCopyMode = False
End Sub

Anzeige
Re: suchen und kopieren
07.05.2003 21:23:42
Lucien

Hallo

Danke für eure Mühe
Ich versuche damit
Gruss Lucien

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige