Prozedur nur für bestimmte Zelle

Forumthread: Prozedur nur für bestimmte Zelle
10 Beiträge zu diesem Forumthread
Anzeige
Top 100 Forumthreads

Forumthread: Prozedur nur für bestimmte Zelle

29.01.2004 15:10:47

Stefan Glander

Hallo Forum,
habe eine sehr gute Prozedur gefunden und würde diese nun aber nur für den Bereich "A2:A10" und "B:B" anwenden wollen.
Wie muss ich den Code umstricken?

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim str As String
   If Target.Count > 1 Then Exit Sub
   With Target
      If .Comment Is Nothing Then
         AddComment "Erstellt am: " & Date & " - " & Time & _
                     Chr(10) & "Erster Eintrag: " & .Value & _
                     " / " & Application.UserName
      Else
          str = .Comment.Text & Chr(10)
         .Comment.Text str & Chr(10) & "Geändert am: " & _
                       Date & " - " & Time & Chr(10) & _
                       "Änderung: " & .Value & " / " & _
                       Application.UserName
      End If
        .Comment.Shape.TextFrame.AutoSize = True
   End With
End Sub

Code eingefügt mit Syntaxhighlighter 2.5

Gruss
Stefan Glander

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Prozedur nur für bestimmte Zelle

29.01.2004 15:18:03

xXx
AW: Prozedur nur für bestimmte Zelle

29.01.2004 15:18:55

Mac4
AW: Prozedur nur für bestimmte Zelle

29.01.2004 15:19:30

Josef Ehrensberger
AW: Prozedur nur für bestimmte Zelle

29.01.2004 15:20:45

Mac4
AW: Danke allen für Ihre Hilfe o.T.

29.01.2004 15:23:25

Stefan Glander
AW: Danke allen für Ihre Hilfe o.T.

29.01.2004 18:21:32

LotharR
AW: Danke allen für Ihre Hilfe o.T.

29.01.2004 19:41:50

Stefan Glander
AW: Danke allen für Ihre Hilfe o.T.

30.01.2004 15:30:34

LotharR
AW: Danke allen für Ihre Hilfe o.T.

02.02.2004 08:22:30

Mac4
JO! Danke jetzt gehts o.T

02.02.2004 17:39:47

LotharR

AW: Prozedur nur für bestimmte Zelle

29.01.2004 15:18:03

xXx

Hallo,
If application.intersect(target,Range("A2:A10"))is nothing or Target.column<>2 then exit sub
Gruß aus'm Pott
Udo
http://www.excelerator.de

AW: Prozedur nur für bestimmte Zelle

29.01.2004 15:18:55

Mac4

Hi,
so gehts:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim str As String
If Intersect(Target, Range("A2:A10,B:B")) Is Nothing Then
Else
If Target.Count > 1 Then Exit Sub
With Target
If .Comment Is Nothing Then
.AddComment "Erstellt am: " & Date & " - " & Time & _
Chr(10) & "Erster Eintrag: " & .Value & _
" / " & Application.UserName
Else
str = .Comment.Text & Chr(10)
.Comment.Text str & Chr(10) & "Geändert am: " & _
Date & " - " & Time & Chr(10) & _
"Änderung: " & .Value & " / " & _
Application.UserName
End If
.Comment.Shape.TextFrame.AutoSize = True
End With
End If
End Sub

Marc

AW: Prozedur nur für bestimmte Zelle

29.01.2004 15:19:30

Josef Ehrensberger

Hallo Stefan!
So geht's.

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim str As String
   If Intersect(Target, [A2:A10,B:B]) Is Nothing Or Target.Count > 1 Then Exit Sub
   With Target
      If .Comment Is Nothing Then
         AddComment "Erstellt am: " & Date & " - " & Time & _
                     Chr(10) & "Erster Eintrag: " & .Value & _
                     " / " & Application.UserName
      Else
          str = .Comment.Text & Chr(10)
         .Comment.Text str & Chr(10) & "Geändert am: " & _
                       Date & " - " & Time & Chr(10) & _
                       "Änderung: " & .Value & " / " & _
                       Application.UserName
      End If
        .Comment.Shape.TextFrame.AutoSize = True
   End With
End Sub

Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp

AW: Prozedur nur für bestimmte Zelle

29.01.2004 15:20:45

Mac4

Sorry,
war falsch angehängt!


Private Sub Worksheet_Change(ByVal Target As Range)
Dim str As String
If Intersect(Target, Range("A2:A10,B:B")) Is Nothing Then
Else
If Target.Count > 1 Then Exit Sub
With Target
If .Comment Is Nothing Then
.AddComment "Erstellt am: " & Date & " - " & Time & _
Chr(10) & "Erster Eintrag: " & .Value & _
" / " & Application.UserName
Else
str = .Comment.Text & Chr(10)
.Comment.Text str & Chr(10) & "Geändert am: " & _
Date & " - " & Time & Chr(10) & _
"Änderung: " & .Value & " / " & _
Application.UserName
End If
.Comment.Shape.TextFrame.AutoSize = True
End With
End If
End Sub