Schleife
22.08.2014 09:46:41
Claudia
im Forum habe ich folgenden Code gefunden.
Sub Schleife()
Dim RaZelle As Range
For Each RaZelle In Range("C2:C19")
If RaZelle = Environ("UserName ") Then
Spalte1 = ActiveCell.Offset(0, 2).Value
Spalte2 = ActiveCell.Offset(0, 3).Value
End If
Next
End Sub
Das fettmarkierte ist meine Erfinung, die natürlich nicht klappt. Ich möchte, wenn im Bereich C2:C19 der User gefunden wird, dass dann aus E2:E19 bzw. F2:F19 der jeweils in der gleichen Zeile stehende Wert ausgelesen wird.
Beispiel:
User wird in C5 gefunden.
Spalte1 = Wert aus E5
Spalte2 = Wert aus F5
Wie mache ich das?
Vielen Dank und LG
Claudia