Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
20.12.2010 08:39:26 |
Stephan |
|
|
Aw:Erweiterung Code |
20.12.2010 09:55:49 |
Severus |
|
|
|
20.12.2010 10:24:19 |
Severus |
|
|
|
20.12.2010 10:57:24 |
Stephan |
|
|
|
20.12.2010 11:20:55 |
Severus |
|
|
Von:
Severus |
Datum:
20.12.2010 09:55:49 |
Views:
819 |
Rating:
|
Antwort:
|
Thema:
Aw:Erweiterung Code |
Stephan schrieb am 20.12.2010 08:39:26:
If Target.Column = 16 Then
Set ClpObj = New DataObject
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.Subject = Target.Offset(0, -4) & "; Netzplan: " & Target.Offset(0, -3) & "; Termin: "
.Body = "Hallo ," & Target.Offset(0, -2) & Chr(10) & ""
.To = "Ralph.Bauer@firma.com; Alexandra.Berg@firma.com"
.CC = "Michaela.Jasper@firma.com"
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
Application.Wait (Now + TimeValue("0:00:05"))
End If
Hallo, ich habe einen Ausschnitt eines Codes angefügt, der soweit funktioniert, nur noch erweitert werden muss:
Bei .Body: Nach dem „Hallo“ soll ein Zeilenumbruch sowie der Text “Bitte die Gruppe „ eingefügt werden.
Anschließend soll es 2 Möglichkeiten geben, welche Gruppe ausgewählt werden soll:
Wenn in Spalte O die Namen „Huber“, „Meier“, „Schmitt“ oder „Maurer“ stehen, soll die Gruppe „92142“ eingefügt werden für alle anderen Namen „92144“. Ist die Gruppennr. eingefügt, soll es weiter gehen mit dem Text „einen Termin anlegen.“
Anschließend wieder Zeilenumbruch und „Aufwand: „
Zeilenumbruch „Bearbeitungsstart: “
Zeilenumbruch „Bearbeitungsende: “
Zum Schluß folgt die schon oben stehende Zeile: Target.Offset(0, -2) & Chr(10) & ""
Damit man sich das ungefähr vorstellen kann ein Bsp.:
Hallo ,
Bitte für die Gruppe 92144 (bzw. 92142, ja nach Wert in Spalte O)) einen Termin anlegen.
Aufwand:
Bearbeitungsstart:
Bearbeitungsende:
Danke schon mal im Voraus!
Variable strGruppe als String deklarieren
strGruppe = Target.EntireRow.Columns("O")
Select Case UCase(trGruppe)
Case "HUBER", "MEIER", "SCHMITT", "MAURER"
strGruppe = "92142"
Case Else
strGruppe = "92144"
End Select
.Body = "Hallo ," & Chr(10) & "Bitte für die Gruppe " & strGruppe & " einen Termin anlegen." & Chr(10) & "Aufwand: " & Chr(10)& "Bearbeitungsstart: " & Chr(10) & "Bearbeitungsende: " & Chr(10) & Target.Offset(0, -2) & Chr(10) & ""
Severus |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
20.12.2010 08:39:26 |
Stephan |
|
|
Aw:Erweiterung Code |
20.12.2010 09:55:49 |
Severus |
|
|
|
20.12.2010 10:24:19 |
Severus |
|
|
|
20.12.2010 10:57:24 |
Stephan |
|
|
|
20.12.2010 11:20:55 |
Severus |
|
|