Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Peter Steiner am November 26, 2013, 06:58:16 Vormittag

Titel: Office 2007: Benutzer markieren
Beitrag von: Peter Steiner am November 26, 2013, 06:58:16 Vormittag
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
Titel: Antw:Office 2007: Benutzer markieren
Beitrag von: Officer am November 26, 2013, 07:17:05 Vormittag
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
Titel: Antw:Office 2007: Benutzer markieren
Beitrag von: Peter Steiner am November 26, 2013, 07:37:51 Vormittag
Vielen Dank