Ich lese mittels Prozedur einige Zellen aus und gehe dann zu einem anderen Tabellenblatt:
Sub CommandButton1_Click()
Dim Pat_Name_GebDat As String
Dim Hauptdiagnose As String
Dim Fall_Nr As String
'Variablen füllen:
Pat_Name_GebDat = ActiveCell.Value
Hauptdiagnose = ActiveCell.Offset(0, 5).Value
Fall_Nr = "FID: " & ActiveCell.Offset(0, 3).Value
Unload UserForm8
Sheets("Handchirurgie").Activate 'geht zum Handchirurgieblatt
End Sub
- SO, jetzt gehe ich zu einem anderen Tabellenblatt (Handchirurgieblatt) Dort würde ich gerne mit den Variablen Pat_Name_GebDat, Hauptdiagnose und Fall_Nr weiterarbeiten.
Der Tabellenblattcode geht:
Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim E_Mail_Handchirurg As String
Set changeRange = Target
'If Not Application.Intersect(changeRange, Target) Is Nothing Then
If Target.Interior.Color = RGB(0, 255, 128) Then
Target.Interior.Color = RGB(255, 0, 0)
If Target.Value = "V. Köhler" Then
E_Mail_Handchirurg = "mail@Beispielspital; mail@Beispielspital"
End If
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = E_Mail_Handchirurg
.Subject = Pat_Name_GebDat
.Body = Hauptdiagnose & Fall_Nr
.Display
'Oder direkt senden
'.Send
End With
Leider werden meine Variablen (Pat_Name_GebDat, Hauptdiagnose, Fall_Nr) im Tabellenblatt " _
Handchirurgie" nicht gefüllt. Was mache ich da falsch?
Wäre sehr froh, wenn mir jemand helfen könnte.