Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Frame
BildScreenshot zu Frame Frame-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema RefEdit
BildScreenshot zu RefEdit RefEdit-Seite mit Beispielarbeitsmappe aufrufen

Sub nur im Bestimmten Bereich

Betrifft: Sub nur im Bestimmten Bereich von: Stefan Glander
Geschrieben am: 18.11.2014 15:29:14

Hallo Forum,
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

  

Betrifft: AW: Sub nur im Bestimmten Bereich von: Crazy Tom
Geschrieben am: 18.11.2014 15:36:33

Hallo Stefan

dann baue das hier um deinen Code

    Dim rngBereich As Range
    Set rngBereich = Worksheets("Tabelle1").Range("B3:C5,H2,J2:K4")
    If Not Intersect(Target, rngBereich) Is Nothing Then
        'hier dein Code
    End If

MfG Tom


  

Betrifft: AW: Danke von: Stefan Glander
Geschrieben am: 18.11.2014 16:11:00

Hallo Tom,
nicht nur das ich mal wieder einen Teil meiner Datei aufgebessert habe, nun weiß ich auch wie ich einen Bereich definiere.
Danke Dir.
Lieben Gruß
Stefan


 

Beiträge aus den Excel-Beispielen zum Thema "Sub nur im Bestimmten Bereich"