AW: Variable definieren
15.06.2007 18:01:48
Susanne
Hallo,
danke erstmal für die Hilfe, ich möchte aber nicht die Deklaration wissen sondern wie man die Spalte angeben kann.
Ich hab eine Select case abfrage wie folgt:
Private Sub CommandButton_OK_Click()
Dim Spalte As Integer
Select Case ComboBox1.Text
Case "druck 1"
Spalte = Spalte 1 in Tabellenblatt 1
Case "druck 2"
Spalte = Spalte 2 in Tabellenblatt 2
End Select
End Sub
an den fettgedruckten Stellen will ich nun die Spalte 1 und 2 aus meiner Excel Tabelle angeben, ich bekomme jedoch die Syntax nicht hin.
Danach möchte ich ein Diagramm erstellen lassen wobei die Variable "Spalte" in die X-Werte eingesetzt werden soll, sprich an die Stelle wo das C1 (Spalte1) steht: (siehe nachfolgend)
Sub Diagramm1_erstellen()
Dim chDiagramm1 As Chart
Dim loLetzte As Long
Dim loZeile As Long
Dim loZaehler As Long
Dim i As Long
loZaehler = 1
With Worksheets(2)
loLetzte = Worksheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row
For loZeile = 1 To loLetzte Step 10
With chDiagramm1
.SeriesCollection.NewSeries
.SeriesCollection(loZaehler).XValues = "=Daten!R" & loZeile & "C1:R" & loZeile + 9 & "C8"
.SeriesCollection(loZaehler).Values = "=Daten!R" & loZeile & "C16:R" & loZeile + 9 & "C16"
.SeriesCollection(loZaehler).Name = "=Daten!R" & loZeile & "C21"
.SeriesCollection(loZaehler).Border.Weight = xlMedium
End With
loZaehler = loZaehler + 1
Next
End With
End Sub
Hoffe mir kann jemand dabei helfen!
Gruß
Susanne