Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
412to416
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
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

schleifige sache

schleifige sache
11.04.2004 21: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
Anzeige
AW: schleifige sache
11.04.2004 23: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)


Anzeige
perfekt, dank dir es läuft, gruss (o.T.)
11.04.2004 23:59:05
mehmet
.

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige