Range aus Zelle auslesen

Hallo, ich benötige Hilfe!

Ich habe einen Code der den Wirkungsbereich eines Makros einschränkt.
Dieser Wirkungsbereich ändert sich durch hinzufügen bzw. löschen einzelner Zeilen.
Der Wirkungbereich hier im Beispiel Range("B15:B37") ist fix und äandert sich nicht.
Jedoch habe ich in Zelle AA1 den Bereich angegeben der sich dynamisch anpasst.

Dim rngBereich As Range

Set rngBereich = Range("B15:B37") 'Hier den Bereich angeben !

If Intersect(ActiveCell, rngBereich) Is Nothing Then

....

Nun wollte ich durch...

Adresse = Cells(19, 27)

...

.Set rngBereich = Range("Adresse")

den dynamischen Bereich der Zelle AA1 steht in Range steht einfügen. Doch das geht so nicht.

Bitte um Hilfe
Gruß Christian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hab ich gemacht, hat den Effekt, dass das Makro wieder überall wirkt.

Ich schick dir mal den ganzen Code.



Sub Worksheet_SelectionChange(ByVal Target As Range)

'nachstehend die Angaben fürs Diagramm 

Dim Title As String

   

Title = Range("AB1").Value

With ThisWorkbook.ActiveSheet

.ChartObjects(1).Chart.HasTitle = True

.ChartObjects(1).Chart.ChartTitle.Text = Title

End With

  

Range("AB1").Value = Cells(ActiveCell.Row, 2).Value 'Nahrungsmittel

Range("AC2").Value = Cells(ActiveCell.Row, 12).Value 'Gewicht

Range("AD2").Value = Cells(ActiveCell.Row, 15).Value 'Kalorien

Range("AC3").Value = Cells(ActiveCell.Row, 18).Value 'Fett

Range("AC4").Value = Cells(ActiveCell.Row, 21).Value 'Kohlenhydrate

Range("AC5").Value = Cells(ActiveCell.Row, 24).Value 'Eiweiß



End Sub

Und wie gesagt hab ich in Zelle AA1 = B15:B32 stehen. Die Anzahl der Zeilen verändert sich, die Spalten nicht.
Wenn ich nun in Spalte B auf ein Nahrungsmittel klicke das im Bereich B15:B32 steht, wird mir dieses im Diagramm angezeigt.
Wenn ich aber außerhalb irgendwohin klicke, z.B. oberhalb in einer Liste auf Büroarbeit, kommt das auch im Diagram.
Deshalb die dynamische Beschränkung auf B15:B32 die ist Zelle AA1 steht.

Wenn du also einen Code hast, der die Wirkung auf den Bereich beschränkt der in AA1 steht, dann bitte ich darum.

Gruß Christian

Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rngBereich As Range Set rngBereich = Cells(1, 27) 'Zelle AA1 If Intersect(ActiveCell, rngBereich) Is Nothing Then Else Dim Title As String Title = Range("AB1").Value With ThisWorkbook.ActiveSheet .ChartObjects(1).Chart.HasTitle = True .ChartObjects(1).Chart.ChartTitle.Text = Title End With Range("AB1").Value = Cells(ActiveCell.Row, 2).Value 'Nahrungsmittel Range("AC2").Value = Cells(ActiveCell.Row, 12).Value 'Gewicht Range("AD2").Value = Cells(ActiveCell.Row, 15).Value 'Kalorien Range("AC3").Value = Cells(ActiveCell.Row, 18).Value 'Fett Range("AC4").Value = Cells(ActiveCell.Row, 21).Value 'Kohlehydrate Range("AC5").Value = Cells(ActiveCell.Row, 24).Value 'Eiweiß End If End Sub

Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Target.Address = "$AA$1" Then 'Reagiert auf alle Zellen ausser AA1 Application.EnableEvents = False With ThisWorkbook.ActiveSheet.ChartObjects(1).Chart .HasTitle = True .ChartTitle.Text = Range("AB1").Value End With With ActiveCell.EntireRow 'wenn nur eine Zeile ("EntireRow" auf eine einzige Zelle), dann ist die zweite Zelle ("Cells(2)") die Spalte 2 dieser Zeile Range("AB1").Value = .Cells(2).Value 'Nahrungsmittel Range("AC2").Value = .Cells(12).Value 'Gewicht Range("AD2").Value = .Cells(15).Value 'Kalorien Range("AC3").Value = .Cells(18).Value 'Fett Range("AC4").Value = .Cells(21).Value 'Kohlehydrate Range("AC5").Value = .Cells(24).Value 'Eiweiß End With Application.EnableEvents = True End If End Sub

Beliebteste Forumthreads (12 Monate)

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread