wie begrenze ich den eine Sub auf einen bestimmten Bereich.
Im Moment sieht es so aus:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim strKommentartext As String
If Target.Count > 1 Then Exit Sub
If Not IsEmpty(Target.Cells) = True Then
With Target.Cells
If .Comment Is Nothing Then Else strKommentartext = .Comment.Text
On Error Resume Next
.Comment.Delete
On Error GoTo 0
.AddComment
.Comment.Visible = False
.Comment.Text Text:=strKommentartext & Chr(10) & _
"-------------------------------------------" & Chr(10) & _
"Änderung: " & Now & Chr(10) & _
"geändert durch: " & WindowsBenutzerName() & Chr(10) & _
_
"letzter Eintrag vor Änderung: " & gesicherter_Wert
.Comment.Shape.ScaleWidth 1.75, msoFalse, msoScaleFromTopLeft
.Comment.Shape.TextFrame.AutoSize = True
End With
End If
End Sub
Nun habe ich versucht folgendes zu ändern.Ich möchte den Bereich festlegen wo die Sub zur Anwendung kommen soll.
Worksheets("Tabelle1").B3:C5;H2;J2:K4
aber irgendwie bekomme ich es nicht gebacken.
Mag jemand zur Hand gehen?
Gruß
Stefan