Code verknüpfen
09.10.2017 14:47:37
Berndt
ein vermeindlich kleineres Problem, welches ich trotzdem nicht lösen kann.
Vielleicht könnt ihr mir behilflich sein.
Ich habe 2 Codestellen:
ActiveSheet.Range("$A$1:$C" & lnglastRowbi).AutoFilter Field:=2, Criteria1:="=*Mustermann*", _
&
Left(Application.UserName, InStr(Application.UserName, ",") - 1)
Code 2 liest den Excel Benutzernamen aus (davon aber nur den 1.Teil, was den Nachnamen entpricht)
Ich möchte gern den ersten Code dynamisch machen und Mustermann rauslöschen und dafür den Code 2 einsetzen (würde im Bsp. auch Mustermann entsprechen)
Habt ihr eine Idee wie ich das verknüpfen kann.
ActiveSheet.Range("$A$1:$C" & lnglastRowbi).AutoFilter Field:=2, Criteria1:="=*Left(Application.UserName, InStr(Application.UserName, ",") - 1)*",
Vielen Dank im Voraus.
VG Berndt
Anzeige