Frage an Josef Ehrensberger-Zwei Suchbegriffe
08.12.2003 17:47:21
Erwin
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