schleifige sache

Forumthread: schleifige sache

schleifige sache

11.04.2004 23:03:22

mehmet

hallo zusammen und frohe ostern
folgendes problem liegt vor:
sheet "WEB_IN" spalte "f" soll nach string "Sch In" gesucht werden
wenn gefunden, dann eine zelle tiefer gehen und zellen b:k kopieren
und ins sheet "WEB_IN_Crew" ab spalte p einfügen
diese schleifen soll bis sheet "WEN_IN" f500 laufen
dank und gruss
mehmet

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: schleifige sache

12.04.2004 01:47:57

Josef Ehrensberger
perfekt, dank dir es läuft, gruss (o.T.)

12.04.2004 01:59:05

mehmet

AW: schleifige sache

12.04.2004 01:47:57

Josef Ehrensberger

Hallo Mehmet!
Versuch mal diesen Code.
Option Explicit

Sub SuchenUndUEbertragen()
Dim rng As Range
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim lnge As Long
Dim sFind As String
Dim sFirst As String
sFind = "Sch In" 'Suchbegriff
Set wksQ = Sheets("WEB_IN") 'Tabelle in der gesucht wird
Set wksZ = Sheets("WEB_IN_Crew") 'Tabelle in die die Daten kopiert werden
lnge = IIf(IsEmpty(wksZ.Range("P65536")), _
wksZ.Range("P65536").End(xlUp).Row + 1, 65536)
'erste frei Zeile in wksZ Spalte "P" ermitteln
With wksQ
Set rng = .Range("F1:F500").Find(What:=sFind, LookIn:=xlValues, _
LookAt:=xlPart, After:=.Range("F500"))
If Not rng Is Nothing Then
sFirst = rng.Address
.Range(.Cells(rng.Row + 1, 2), .Cells(rng.Row + 1, 11)).Copy wksZ.Cells(lnge, 16)
lnge = lnge + 1
Do
Set rng = .Range("F1:F500").FindNext(After:=rng)
If rng.Address = sFirst Then Exit Do
.Range(.Cells(rng.Row + 1, 2), .Cells(rng.Row + 1, 11)).Copy wksZ.Cells(lnge, 16)
lnge = lnge + 1
Loop
End If
End With
End Sub

Code eingefügt mit: Excel Code Jeanie

Gruß Sepp

Ein kluger Mann macht nicht alle Fehler selbst.
Er lässt auch anderen eine Chance.
(Sir Winston Churchill)

perfekt, dank dir es läuft, gruss (o.T.)

12.04.2004 01:59:05

mehmet

Forumthread: schleifige sache

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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread