Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: in Spalte mit Benutzernamen springen

in Spalte mit Benutzernamen springen
11.11.2014 21:00:54
Werner
Hallo Excel-Freunde,
wir haben eine grosse Exceldatei (als Urlaubs-/Abwesenheits-Datei),
die wie folgt aussieht:
Für jede Abteilung gibt es ein Tabellenblatt
In jeden ! TAB ist in Spalte A ab A11 für jeden Tag des Jahres das Datum vom 1.1.-31.12. aufgeführt.
Ab Spalte B bis xxx (je nach Größe der Abteilung -Anz MA-) ist jeweils in Zeile 10 der Benutzername (wie aus den Excel-Optionen) eingetragen.
Jetzt möchte ich folgendes erreichen:
Beim Öffnen der Datei soll geprüft werden, welcher MA die Datei geöffnet hat,
und dann soll der Coursor in die jeweiligen Spalte! (also in der, in der der jew Benutzername in der Zeile 10 eingetragen ist) automatisch "springen".
Optimal wäre es, wenn der Coursor auch automatisch in die passenden Zeile von
=heute() aus Spalte A springt - also egal, in welchem TAB ;)
Na, eines noch: Wird der Benutzername nicht gefunden, sollte ein entsprechender Hinweis ausgegeben werden.
Hat jemand eine tolle Idee ? :)
Freu mich darauf
Besten Gruss
Werner

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: in Spalte mit Benutzernamen springen
11.11.2014 21:45:12
Crazy
Hallo Werner
das könnte so gehen
Option Explicit
Private Sub Workbook_Open()
Dim Suchergebnis As Range
Dim rngDatum As Range
Dim SuchName As String
Dim SuchDatum As Date
Dim wks As Worksheet
SuchDatum = Date
SuchName = Application.UserName
For Each wks In Worksheets
Set Suchergebnis = wks.Cells.Find(SuchName, LookIn:=xlValues, lookat:=xlWhole)
If Not Suchergebnis Is Nothing Then
Application.Goto Suchergebnis
Set rngDatum = wks.Columns(1).Find(Date, LookIn:=xlValues, lookat:=xlWhole)
If Not rngDatum Is Nothing Then
wks.Cells(rngDatum.Row, Suchergebnis.Column).Activate
End If
Exit For
End If
Next
If Suchergebnis Is Nothing Then MsgBox "Kein User gefunden"
End Sub

bei diesem Code ist es aber Voraussetzung, dass das Datum im Format 11.11.2014
vorhanden ist
MfG Tom

Anzeige
Crazy THX ;))) passt perfekt !! DANKE - OT
17.11.2014 11:47:08
Werner
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige