|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
13.02.2021 18:57:48 |
Matthias |
|
|
|
13.02.2021 21:02:43 |
Gast8903 |
|
|
|
13.02.2021 21:39:37 |
Matthias |
|
|
|
13.02.2021 22:14:30 |
Gast18223 |
|
|
|
13.02.2021 22:20:16 |
Matthias |
|
|
|
13.02.2021 22:30:19 |
Gast61022 |
|
|
|
13.02.2021 22:37:07 |
Gast26378 |
|
|
|
14.02.2021 13:45:18 |
Gast26097 |
|
|
|
14.02.2021 14:40:23 |
Matthias |
|
|
 Eine Sache leuchtet mir allerdings nicht ein ... |
14.02.2021 19:09:32 |
Gast20436 |
|
|
|
14.02.2021 19:21:45 |
Matthias |
|
|
|
14.02.2021 19:38:21 |
Gast62163 |
|
|
|
14.02.2021 19:42:46 |
Gast22521 |
|
|
Von:
Gast20436 |
Datum:
14.02.2021 19:09:32 |
Views:
603 |
Rating:
|
Antwort:
|
Thema:
Eine Sache leuchtet mir allerdings nicht ein ... |
Was müsste ich tun um in diesem Fall mehrere Target.Values gleichzeitig zu definieren (momentan funktioniert die Änderung für den Titel alleine, nicht zB jedoch für Ort, Anfangsdatum und Enddatum.
'Name des Blattes muss mit 'MA' beginnen
If Left$(Sh.Name, 2) = "MA" Then
If Target.Cells.Count > 1 Then
'falls Target mehrere Zellen darstellt,
'dann reduzieren wir das auf die erste Zelle
Set Target = Target.Cells(1)
End If
'mind. in Zeile 2 oder darunter
If Target.Row >= 2 Then
'Target.Column liegt einschließlich
' zwischen Spalte 2 (B: Thema) und 5 (E: Ort)
If 2 <= Target.Column And Target.Column <= 5 Then
Dim rngResult As Excel.Range
Dim strID As String
Dim strThema As String
Dim strBuddy As String
Dim strVerantwk As String
Dim Ort As String
With Target.Worksheet
strID = .Cells(Target.Row, "A").Value
strThema = .Cells(Target.Row, "B").Value
strBuddy = .Cells(Target.Row, "C").Value
strVerantwk = .Cells(Target.Row, "D").Value
Ort = .Cells(Target.Row, "E").Value
End With
'Thema kann/muss nur übertragen werden, wenn
' * ein Buddy verhanden ist
' * die ID bekannt ist
If strBuddy <> "" And strID <> "" Then
|
- 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
|
|
13.02.2021 18:57:48 |
Matthias |
|
|
|
13.02.2021 21:02:43 |
Gast8903 |
|
|
|
13.02.2021 21:39:37 |
Matthias |
|
|
|
13.02.2021 22:14:30 |
Gast18223 |
|
|
|
13.02.2021 22:20:16 |
Matthias |
|
|
|
13.02.2021 22:30:19 |
Gast61022 |
|
|
|
13.02.2021 22:37:07 |
Gast26378 |
|
|
|
14.02.2021 13:45:18 |
Gast26097 |
|
|
|
14.02.2021 14:40:23 |
Matthias |
|
|
Eine Sache leuchtet mir allerdings nicht ein ... |
14.02.2021 19:09:32 |
Gast20436 |
|
|
|
14.02.2021 19:21:45 |
Matthias |
|
|
|
14.02.2021 19:38:21 |
Gast62163 |
|
|
|
14.02.2021 19:42:46 |
Gast22521 |
|
|