Option Explicit
Dim Inhalt As Integer
Dim Inhalt1 As Integer
Dim Anzahl1 As Integer

Private Sub cmdErstellen_Click()
Dim I As Integer
    If Text2 = Empty Then
    MsgBox "Der Inhalt ist unzulässig!", vbOKOnly + vbExclamation, _
      Title:="Vinux2"
    Text2.SetFocus
    Exit Sub
    End If
With MSFlexGrid1
     On Error Resume Next
    For I = .FixedRows To .Rows - 1
      Inhalt1 = .TextMatrix(I, Val(.FixedRows))
    Next I
End With
    With frmChar.MSChart
    .Repaint = True ' Gibt an ob das Diagramm bei Änderungen neu gezeichnet wird
    .ChartType = 1 ' Diagrammtyp (1 ist ein  einfaches Balkendiagramm)
    .RowCount = 1 ' Zahl der Werte
    .ColumnCount = Text2.Text ' Zahl der Linien
    .Column = 1 ' Legt die aktuell verwendete Linie fest
For Inhalt = 1 To Text2.Text 'Position ist eine Laufvariable vom Typ Integer
    .Row = Inhalt 'Festlegen welchen Wert wir festlegen wollen
    .Data = (Inhalt1) 'Hier wird der Tatsächliche Wert gesetzt
    .RowLabel = Inhalt ' Beschriftung
Next Inhalt
    .Visible = True
    End With
    frmChar.Toolbar1.Buttons("Speichern").Enabled = True
    frmChar.Toolbar1.Buttons("Drucken").Enabled = True
    frmChar.Toolbar1.Buttons("Eigenschaften").Enabled = True
    Unload Me
    End Sub