Bereich erweitern
06.09.2014 22:16:48
werner
Hallo zusammen,
ich habe folgendes Makro,das soweit gut funktioniert.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("W:W")) Is Nothing Then Exit Sub
If Intersect(Target, Range("3:16")) Is Nothing Then Exit Sub
Dim s$, i%, j% Integer (%)
Dim varBereich As Variant
varBereich = Range("W3:W16")
For i = 1 To UBound(varBereich, 1)
'Innere Schleife über die Spalten des Bereichs
For j = 1 To UBound(varBereich, 2)
If Not IsEmpty(varBereich(i, j)) Then
s = s & varBereich(i, j) & " "
End If
Next j
s = Left(s, Len(s) - 1) & vbLf
Next i
On Error Resume Next fortfahren. ( _
ist das so gewollt?)
With Sheets("Tabelle1").Cells(1, 12) stehen soll
.Comment.Delete
If s = "" Then Exit Sub
.AddComment
.Comment.Text Text:=s
.Comment.Shape.TextFrame.AutoSize = True automatisch anpassen
End With
End Sub
Nun möchte ich den Auswahlbereich erweitern:
Bisher geht es um den Bereich W3:W16
Nun möchte ich den Bereich X3:X9 hinzufügen.
Meine Frage ich, wie müsste ich den Bereich in das Makro einsetzen.
Über eine Lösung würde ich mich freuen.
Gruß
Werner