schwierige VBA Aufgabe, Environ
10.12.2005 04:10:18
MathiasW
ich habe mal wieder einkleines Problem das es zu lösen gilt.
Zur Zeit siehts bei mir so aus, ich habe eine Excel Datei, dort gibt es mehrere Tabellenblätter, zur Zeit 10 Stück.
Jedes TB, das in Betracht kommt, hat als Namen, den Vornahmen eines Benutzers.
Auf TB3 in Spalte A ab Reihe 30 stehen die UserIDs der einzelnen Anwender.
In Spalte B ab Reihe 30 stehen die Vornamen der Anwender.
In Spalte C ab Reihe 30 steht das Datum und die Zeit, wo der letzte Anwender die Datei geöffnet hat.
Bsp. A30=TAK2BM B30=Mathias C30=10.12.2005 7:30
A31=21CH68F B31=Thorsten C31= 8.12.2005 23:12
Tabelle2 heisst Mathias, Tabelle4 heisst Thortsen usw.
Die Aufgabe lautet:
1)Beim öffnen soll die UserID überprüft werden ich denke so:
Private Sub Workbook_Open()
Dim U
U = Environ("username")
End Sub
Als Ergebnis würde z.B. TAK2BM rauskommen.
Nun soll auf TB3 in Spalte A ab Zelle A30 geschaut werden, wo steht das Ergebnis?
Dann soll der Name aus der Zelle daneben genommen werden, hier also Mathias und das TB mit dem Namen Mathias selektiert werden, weiterhin soll in der nächsten Zelle hier C30 die aktuelle Zeit und das Datum geschrieben werden.
Zusatz: gibt es den Benutzer noch nicht soll in der nächsten freien Zelle (Spalte A) die User ID eingetragen werden, das Datum und die Uhrzeit wieder 2 daneben in Spalte C geschrieben und logischerweise keine Selektierung vorgenommen werden.
Vielleicht mit einem Errorhandler?
Danach soll eine Msgbox erscheinen mit z.B. Hallo und dem Vornamen.
Als letztes müsste das Ganze ohne Bestätigung gespeichert werden.
Ich weiss es ist eine ganze Menge, aber alleine kriege ich das nicht hin.
Könnt Ihr mir da weiterhelfen? Währe ein tolles Weihnachtsgeschenk ;-)
Vielen Dank und Gruss aus Toulouse
Mathias