Diagramm mit bestimmten Daten Speisen
Black
Ich habe mir sagen lassen ihr seit die besten, nun ja, folgendes Problem:
habe Eine Tabelle wo auf Spalte 6 Tätigkeiten sind und auf Zeile A9 bis A60 Maschienen.
Nun Soll mit einem Steuerfeld kontroliert werden können welche Tätigkeiten in welches Diagramm Geschrieben werden. ganz einfach mit 1= Diagramm1 und 0= Diagramm 0
Dabei sollen jedoch immer alle Maschienen ins Diagramm kommen.
Nun ist mein Problem das sich die Anzahl der maschienen und Tätigkeiten ändert.
Das Makro sollte eigentlich immer alle Maschienen die zu finden sind und alle tätigkeiten(die eine 1 oder eine 0haben) abbbilden.
Mein Vorschöag sieht so aus.:
Sub test()
Dim Zelle As Range, rng As Range, strNull$, strEins$
With ActiveSheet
For Each Zelle In .Range(.Cells(9, 27), .Cells(22, 27))
Set rng = .Rows(6).Find(what:=Zelle, lookat:=xlWhole)
If Zelle.Offset(0, 1) = 0 Then
strNull = strNull & "," & rng.Address & ":" & rng.Offset(15, 0).Address
ElseIf Zelle.Offset(0, 1) = 1 Then
strEins = strEins & "," & rng.Address & ":" & rng.Offset(15, 0).Address
End If
Next Zelle
End With
Sheets("Diagramm_0").SetSourceData Source:=Sheets("Daten-").Range("A6:A60" & strNull)
Sheets("Diagramm_1").SetSourceData Source:=Sheets("Daten-").Range("A6:A60" & strEins)
End Sub
Ich hoffe dies ist bisschen verständlich, ich habe sonst mal noch eine Beispiel Datei hochgeladen.
https://www.herber.de/bbs/user/80081.xlsx
Bin um alle Tips Dankbar, Gruss
Gruss Black
Anzeige