Ich habe es mit Mühe hin bekommen eine vorgefertigte Funktion im VBA Editor einzufügen und auf Tabelle 2 anzuwenden.
Nun habe ich das Problem das ich die Funktion (automatische Kommentarfunktion) nur auf folgende Spalten anwenden möchte:
C D E F X Y Z AA AB AF AJ AK AO AP AQ AR AS
Ich habe schon ein wenig probiert, aber da ich im Grunde gar keine Ahnung davon habe was ist da tue, bekomme ich es einfach nicht hin.
Könnt ihr mir dabei helfen?
Private Sub Worksheet_Change(ByVal Target As Range)
'** Dimensionierung der Variablen
Dim strAlt As String
Dim strNeu2 As String
'** Errorhandling
On Error Resume Next
'** Alten Kommentar auslesen
strAlt = Target.Comment.Text
'** Neuen Kommentar hinzufügen
If strAlt = "" Then Target.AddComment
'** Alten Kommentar um neuen Eintrag erweitern
strNeu2 = vbLf & Application.UserName & " " & Date & " " & Target.Value & strAlt
Target.Comment.Text strNeu2
'** Errorhandling zurücksetzen
On Error Resume Next
End Sub
LG Christina