Textbox mit Excel abgleichen / E-Mail
13.07.2021 14:47:46
Anita
habe wieder mal ein kl. Problem. Ich habe eine Userform, welche durch auswählen verschiedener Checkboxen eine vordefinierte E-Mail verschicken soll (habe ich soweit hingekriegt und funktioniert auch)... jetzt soll ich dieser Userform ein "Upgrade" einbauen.
Wunsch: Die E-Mail soll in Cc an den zuständigen Vorgesetzten gehen.
Ich habe im ersten Step mal in die Userform eine Verstecke Textbox mit dem Usernamen eingebaut:
Public Sub UserForm_Initialize()
Me.Txt_User = Environ("Username")
Me.Txt_User.Visible = False
End Sub
Dim V_Txt_User As String
V_Txt_User = Txt_User.Text
With Tbl_Daten
If V_Txt_User = Range("Datentabelle[Benutzername]").Cells(1) Then
V_AdresseCc = Range("Datentabelle[E-Mailadresse]").Cells(1)
End If
End With
mh... ich vermute mal dass ich da irgendwo eine Schleife einbauen muss dass er dieses "With" immer wieder abfrägt wenn es ein anderer User ist... aber da ich ja ein VBA-Neuling bin komme ich nicht drauf... oder ist mein Denkansatz ganz falsch?
Vielen Dank schonmal für eure Hilfe :)
Lg
Anita