Office 2007: Benutzer markieren

[Peter Steiner]

Hallo und Guten Morgen

In meiner Exceldatei stehen in der Spalte B5 bis B70 Benutzer die Daten in diese Datei eintragen, beim öffnen der Datei frage ich mit If UCase(Environ("Username" wer gerade die Datei geöffnet hat. Nun suche ich eine Möglichkeit das der Cursor in die Zeile (Zelle) dieses Benutzers springt.

Bitte um Hilfe!! und schon mal Danke im voraus !!!

Gruß peter

[Officer]

Hallo Peter,

der folgende Code geht davon aus, dass die Liste der Benutzer auf dem ersten Tabellenblatt ab Zelle A1 stehen.

Code: Visual Basic

1. Sub benutzer_auswaehlen()
2. Dim strBenutzer As String
3.  
4. '** ausgelesener Benutzer
5. strBenutzer = "Meier"
6.  
7. '** Liste der Benutzernamen durchlaufen - im Beispiel Spalte A -  Zeile 1 bis x
8. For a = 1 To Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
9.  
10.   If Sheets(1).Cells(a, 1).Value = strBenutzer Then
11.     Sheets(1).Cells(a, 1).Select
12.   End If
13.  
14. Next a
15.  
16. End Sub
17.  

Als Benutzername wurde hier "Meier" vorgegeben. Du List Deinen Benutzernamen ja vom System aus.

Wenn sich deine Benutzerliste an einer anderen Stelle befindet, musst Du nur noch die For-Next-Schleife und die If-Abfrage anpassen.

Mit Hilfe von .Select wird die gefundene Zelle ausgewählt, also der Zellzeiger darauf positioniert.

Gruß

Officer

[Peter Steiner]

Vielen Dank