For Each Schleife
08.11.2016 10:23:33
Gabi
ich habe wieder einmal ein kleines Problemchen und komme einfach nicht selbst drauf.
Meine For Each Schleife funktioniert soweit. Allerdings ist die Ausgabe komisch. Es wird zwar die Zelle mit dem richtigen Wert ausgegeben, aber zusätlich noch ein Leerzeichen vor und ein Leerzeichen nach dem Wert sowie 3 Leere Absätze unter dem Wert. Könnt ihr mir sagen, wo mein Denkfehler ist bzw. woran liegt?
Hier mein Code (es ist nur ein Auszug aus meiner Sub):
wb1ws1.Activate
For Each searchCell1 In Range("A3:A" & Cells(Rows.Count, "A").End(xlUp).Row)
If searchCell1.Value = strVorname Then
If searchCell1.Offset(1, 0).Value = strName Then
Set Telefonzelle = searchCell1.Offset(9, 21)
Debug.Print Telefonzelle
End If
End If
Next
Vielen Dank schon mal.
Liebe Grüße
Gabi