|
Hallo! Bin absloluter VBA-Beginner :/
Mein Chef hat mich jetzt mal gleich in kalte Wasser geworfen .. .. es handelt sich um ein excel-file in welchem die tatsächlich und die geplanten
Zeitaufwände dargestellt werden in form eines Balkendiagramms. Das Problem ist sobald ich die SPaltengröße in dem Sheet verändere und auf aktualisieren drücke(CommandButton1_Click) verrutschen die Balken ...
suche jetzt eine Möglichkeit dies zu fixieren
Hier der Code für den Aktualisiere Button:
Private Sub CommandButton1_Click()
art = Tabelle1.ComboBox1.Value
Breite = 15.65 'Breite eines Kästchens der Grafik (ein Monat)
anz = Tabelle1.Range("C8") 'Anzahl der Aufgaben in der LIste
MOnate = Tabelle1.Range("C5")
Start = 265 'Beginnposition der Grafik (1. Tag der Grafik)
'Wenn die Soll-Werte ausgeblendet werden auf 265 setzen
'(Die Spaltenbreiten nicht verändern!)
'Wenn die SOLL-Werte eingeblendet sind, auf 384 setzen
..und hier der fürs BalkenEInfuegen: Die Balken sollten immer in Zelle G beginnen -> verrutschen aber auf die jeweiligen SPalten davor sobald ich die zb Schriftgröße veränder und die SPaltengröße dementsprechend anpasse....HILFE!!!!!!!!!!!!!!!!!!!!!!!!!!
Private Sub BalkenEinfuegen()
'Fügt die Soll- und Istbalken für die variable Anzahl von Aufgaben ein
i = 2
ActiveSheet.Shapes("SollBalken_1").Select
Do While (i <= reihen + 1)
'Kopieren des SollBalkens von der Ersten aufgabe auf die jeweilige Spalte in der Schleife
ActiveSheet.Shapes.Range("SollBalken_1").Select
Selection.Copy
Range("G" & Zeilen_darüber + i).Select
ActiveSheet.Paste
Selection.Name = "SollBalken_" & i
Selection.Width = 1
Selection.left = Start
'Kopieren des IstBalkens von der Ersten aufgabe auf die jeweilige Spalte in der Schleife
ActiveSheet.Shapes.Range("IstBalken_1").Select
Selection.Copy
Range("G" & Zeilen_darüber + i).Select
ActiveSheet.Paste
Selection.Name = "IstBalken_" & i
Selection.Width = 1
Selection.left = Start
i = i + 1
Loop
End Sub
|