Tabelle1.Cells(Target.Row, "G:Q")

Hallo zusammen,

ich habe hier ein Script, welches mir erlaubt einen kleinen Fuhrpark und die TÜV Fälligkeiten zu managen.
Besonders dabei ist, dass man bei Fälligkeit einen Termin zugleich in Outlook eingetragen bekommt und auch als Kommentar in der Zelle verbleibt.

Jetzt ist es so, dass jedes Jahr die Ziel-Spalte, welche dafür maßgeblich ist, händisch geändert werden muss (---->Tabelle1.Cells(Target.Row, "O")
Ich wollte das nun auf mehre Spalten (=Jahre) mittels Anpassung wie folgt erweitern, so dass man nicht das immer jährlich manuell machen muss.

So funktionierts mit einer Spalte:
Tabelle1.Cells(Target.Row, "Q")

Hier kommt dabei ein Fehler:
Tabelle1.Cells(Target.Row, "G:Q")

Ich komme nicht drauf, wie man das anders lösen kann. hat jemand einen Tipp?

Userbild

Danke & Gruß,
Juergen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Rudi,

vielen Dank für die schnelle Antwort.

Ich habe den Code wie folgt ergänzt, erhalte aber wieder einen Fehler:

Tabelle1.Cells(Target.Row, 7).Resize(, 11).AddComment Text:="Termin in Outlook eingetragen am " & Now

Interpretiere ich es richtig, dass bei Spalte 7(G) es beginnt und bei Spalte 11 (K) es endet? Wenn ich den Bereich von G bis Q abdecken möchte, wäre der Code dann so?

Tabelle1.Cells(Target.Row, 7).Resize(, 17).AddComment Text:="Termin in Outlook eingetragen am " & Now

Falls das richtig ist, muss ich irgendeinen Fehler beim einkopieren gemacht haben. Kannst du da helfen?


Sub erstelleOutlookTermin(Target As Range)
    If Target.Value > "" Then
        If MsgBox("Neuen Termin für " & Tabelle1.Cells(Target.Row, "C") & " (" & Tabelle1.Cells(Target.Row, "B") & ") erstellen?", vbOKCancel, "Outlook Termin") = vbOK Then
            Set OutApp = CreateObject("Outlook.Application")
            Set apptOutApp = OutApp.CreateItem(1)
            With apptOutApp
                'Kategorie
                .Categories = "TÜV Termin"
                'Start- & Enddatum
                .Start = DateSerial(Year(Tabelle1.Cells(Target.Row, "E")), Month(Tabelle1.Cells(Target.Row, "E")) + Tabelle1.Cells(Target.Row, "D"), 1)
                .End = DateSerial(Year(Tabelle1.Cells(Target.Row, "E")), Month(Tabelle1.Cells(Target.Row, "E")) + Tabelle1.Cells(Target.Row, "D"), 31)
                'Zusätzlicher Text
                .Body = "Letzter TÜV: " & Tabelle1.Cells(Target.Row, "E")
                'Betreff
                .Subject = Tabelle1.Cells(Target.Row, "C") & " (" & Tabelle1.Cells(Target.Row, "B") & ") | TÜV"
                'Ganztägiges Ereignis
                .AllDayEvent = True
                'Termin speichern
                .Save
                'Anzeigen
                '.Display
                Application.DisplayCommentIndicator = xlCommentIndicatorOnly
                Tabelle1.Cells(Target.Row, 7).Resize(, 17).AddComment Text:="Termin in Outlook eingetragen am " & Now
                'Kommentar einfügen
              End With
        End If
    End If
End Sub

Danke & Gruss,
Juergen

Sub erstelleOutlookTermin(Target As Range) Dim dteStart As Date, dteEnde As Date If Target.Value > "" Then If MsgBox("Neuen Termin für " & Tabelle1.Cells(Target.Row, "C") & " (" _ & Tabelle1.Cells(Target.Row, "B") & ") erstellen?", vbOKCancel, "Outlook Termin") = vbOK Then With Tabelle1 dteStart = DateSerial(Year(.Cells(Target.Row, "E")), Month(.Cells(Target.Row, "E")) + .Cells(Target.Row, "D"), 1) dteEnde = DateSerial(Year(.Cells(Target.Row, "E")), Month(.Cells(Target.Row, "E")) + .Cells(Target.Row, "D"), 31) End With Set OutApp = CreateObject("Outlook.Application") Set apptOutApp = OutApp.CreateItem(1) With apptOutApp 'Kategorie .Categories = "TÜV Termin" 'Start- & Enddatum .Start = dteStart .End = dteEnde 'Zusätzlicher Text .Body = "Letzter TÜV: " & Tabelle1.Cells(Target.Row, "E") 'Betreff .Subject = Tabelle1.Cells(Target.Row, "C") & " (" & Tabelle1.Cells(Target.Row, "B") & ") | TÜV" 'Ganztägiges Ereignis .AllDayEvent = True 'Termin speichern .Save 'Anzeigen '.Display 'Kommentar einfügen End With Application.DisplayCommentIndicator = xlCommentIndicatorOnly With Tabelle1 .Cells(Target.Row, Application.Match(Year(dteStart), .Rows(2), 0)).AddComment Text:="Termin in Outlook eingetragen am " & Now End With End If End If End Sub

Dim C As Range Application.DisplayCommentIndicator = xlCommentIndicatorOnly With Tabelle1.Cells(Target.Row, "G").Resize(1, 11) .ClearComments For Each C In .Cells C.AddComment Text:="hallo" Next End With

Beliebteste Forumthreads (12 Monate)

Tabelle1.Cells(Target.Row, "G:Q")

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabelle1.Cells(Target.Row, "G:Q")

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread