Anzeige
Archiv - Navigation
348to352
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
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Frage an Josef Ehrensberger-Zwei Suchbegriffe

Frage an Josef Ehrensberger-Zwei Suchbegriffe
08.12.2003 17:47:21
Erwin
Hallo Sepp,
zuerst einmal vielen Dank für deine Antwort, es funktioniert einwandfrei!
Ich habe gestern nur noch vergessen, dass wenn VBA die zwei Suchbegriffe findet nicht die ganze Zeile kopieren soll, sondern erst von der dritten Spalte weg vier Zellen nach rechts, also von Spalte C bis F.
Kannst du mir bei deinem Code noch zeigen wie ich mit Offset o.ä. das hinbekomme, ich habs die ganze Zeit probiert, es gelingt mir einfach nicht.

Dein Code von gestern:


Sub Kopieren()
Dim rng As Range
Dim lngEnd As Long
Dim strS1 As String
Dim strS2 As String
strS1 = "Meier"     'hier die Suchbegriffe übergeben!
strS2 = "Peter"
lngEnd = Sheets("TB3").Range("A65536").End(xlUp).Row + 1
For Each rng In Sheets("TB2").Range("A1:A500")
If rng = strS1 And rng.Offset(0, 1) = strS2 Then
rng.EntireRow.Copy Sheets("TB3").Range("A" & lngEnd)
lngEnd = lngEnd + 1
End If
Next
End Sub


Wäre schön, wenn du mir das noch zeigen könntest!
Danke dir im voraus.
Erwin


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

Betreff
Datum
Anwender
Anzeige
AW: Frage an Josef Ehrensberger-Zwei Suchbegriffe
08.12.2003 18:00:18
Josef Ehrensberger
Hallo Erwin,

freud mich, das es funktioniert.

Hier der geänderte Code.


Sub Kopieren()
Dim rng As Range
Dim lngEnd As Long
Dim strS1 As String
Dim strS2 As String
strS1 = "test"     'hier die Suchbegriffe übergeben!
strS2 = ""
lngEnd = Sheets("TB3").Range("A65536").End(xlUp).Row + 1
For Each rng In Sheets("TB2").Range("A1:A500")
If rng = strS1 And rng.Offset(0, 1) = strS2 Then
Sheets("TB2").Range(Cells(rng.Row, 3), Cells(rng.Row, 6)).Copy Sheets("TB3").Range("A" & lngEnd)
'# hier die gewünschten Spalten (3 - 6) eintragen
lngEnd = lngEnd + 1
End If
Next
End Sub


Gruß Sepp
Anzeige
AW: Frage an Josef Ehrensberger-Zwei Suchbegriffe
08.12.2003 19:07:57
Erwin
Hallo Sepp,
du bist einfach Spitze!!!! Funktioniert s u p e r!
Danke dir nochmal und einen schönen Abend wünscht dir
Erwin aus Bayern
Danke für die Rückmeldung (o.T.)
08.12.2003 19:32:29
Josef Ehrensberger
/

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige