Username in erster Zelle einer bearbeiteten Zeile

Guten Morgen ins Forum
Ich heiße Manuel und bin hier neu.
Erstemal vorneweg: Ich hab als Gast hier schon so einiges an Nützlichkeiten gefunden und möchte allen die hier so rumgeistern einen Dank aussprechen!
Nun zu meinen zwei Problemen. Das erste konnte ich zumindest durch diesen Beitrag


https://www.herber.de/forum/archiv/708to712/710469_Aktuelles_Datum_plus_Username_in_Zelle.html

halbwegs lösen konnte...
Ich möchte dass in einer Mappe (von Januar bis Dezember einzelne Blätter) immer in der ersten Zelle einer Zeile der Username eingetragen wird. Diese Zelle wird dann ausgeblendet, soll nur eine Hilfsspalte werden. Also wenn Kollege 1 in Zeile 5 seine Eintragungen macht, soll in A5 der Username stehen. Kollege 2 macht in Zeile 6 seine Eintragung, dann also in A6 der nächste Username...usw usw.
Der nächste Knackpunkt ist dann folgender:
Anhand vom Usernamen in der Hilfsspalte soll im selben Blatt in Zelle "Sowieso" eine Vermittlernummer eingetragen werden. Die Nummern habe ich in einem Hilfsblatt eingetragen.
Ich bin gespannt und VIELEN DANK vorab!!!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo, :-)
es gibt unter "DieseArbeitsmappe" das "Private Sub Workbook_SheetChange". Dieses Ereignis greift für alle Tabellenblätter - auch neu hinzugefügte:

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
' Dein Code...
End Sub

Soll es nur auf bestimmten Tabellenblättern greifen, dann kannst Du es z. B. so einschränken:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Select Case Sh.Name
Case "Tabelle1", "Tabelle2", "Tabelle3"
MsgBox "Los!"
End Select
End Sub

Bzw. mit dem Codenamen der Tabellenblätter:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Select Case Sh.CodeName
Case "Tabelle1", "Tabelle2", "Tabelle3"
MsgBox "Los!"
End Select
End Sub

Wie gesagt - Code gehört unter "DieseArbeitsmappe".
Servus
Case

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Select Case Sh.Name Case "Tabelle1" '--erweiterbar durch ,"Tabelle2" immer durch Komma getrennt '--bei Blattname "Tabelle1" tu nix Case Else '-- bei allen anderen Blaettern If Target.Column > 1 And Target.Column

Beliebteste Forumthreads (12 Monate)

Username in erster Zelle einer bearbeiteten Zeile

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

331 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Username in erster Zelle einer bearbeiteten Zeile

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

331 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread