AW: Abbrechen einer Userform1
16.06.2007 13:25:00
Susanne
Hallo Hajo,
tut mir leid aber ich dachte die Berechnung(Eigentlich ist es ja das Erstellen eines Diagramms) ist in diesem Fall uninteressant. Habe dir jetzt mal den Code von der Userform nachfolgend kopiert!
Private Sub CommandButton_Abbrechen_Click()
UserForm1.Hide
End Sub
Private Sub CommandButton_OK_Click()
Select Case ComboBox1.Text
Case "Druck 1"
Spalte = 1
Case "Druck 2"
Spalte = 2
End Select
End Sub
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Druck 1"
.AddItem "Druck 2"
End With
End Sub
Über die Select Case abfrage wird die Spaltennummer zur Erstellung des nachfolgenden Diagramms verwendet. Nachfolgend nur ein Ausschnitt aus der Diagrammerstellung. Wenn ich jetzt auf meinen Abbrechen-Button klicke dann erstellt er mir trotzdem das Diagramm. Das möchte ich jedoch nicht. Selbes soll bei einem klick auf das Kreuz gelten.
Sub Diagramm_erstellen
.....
.SeriesCollection.NewSeries
.SeriesCollection(loZaehler).XValues = "=Daten!R" & loZeile & "C" & Spalte & ":R" & loZeile + 9 & "C" & _Spalte
.SeriesCollection(loZaehler).Values = "=Daten!R" & loZeile & "C16:R" & loZeile + 9 & "C16"
.....
End Sub
Gruß
Susanne