VBA / Excel: Spalten in Schleife durchlaufen

Ähm ja, also ich weiss, ist ein blöder Titel... :p
Ich habe vor einige Auswertungen von Excel-Tablellen zu automatisieren mit VBA. Dazu wird immer die Spalte 'A' markiert und dann zu Beginn die Spalte 'B'. Dann die 'A' und 'C', danach 'A' und 'D' usw. Es handelt sich dabei um ca. 35 Spalten. Aus den markierten Spalten wird dann eine Grafik generiert, die alle hintereinander in einem anderen Arbeitsblatt gespeichert werden sollen.
Mein Problem ist jetzt das Markieren der Spalten. Im ersten Durchlauf also 'A' und 'B'.
Ich habe es bis jetzt damit probiert:
[CODE]
Sheets("arbeitsblatt").Range(Columns(1), Columns(2)).Select
[/CODE]
Ich wollte dann halt über den Index der einzelnen Spalten auf diese zugreifen und den Index danach um 1 erhöhen. Aber leider ist ja bei der oben aufgeführten Lösung der Bereich 'von...bis' angegeben und nicht: 'markiere spalte x und y'.
Wie kann ich also machen, dass es wie hier geht:
[CODE]Range("A:A,B:B,E:E").Select[/CODE]
Hierbei werden ja nur die Spalten A, B, und E markiert.
Ich müsste aber halt über den Index zugreifen, damit ich ihn incrementieren kann...
schon einmal vielen Dank
Raphael

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

So, neues Problem -- neues Glück :-)
Habe jetzt folgenden code:

int i = Sheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Column
For n = 2 To i
Set Bereich = Union(Columns(1), Columns(n))
Bereich.Select

Nun habe ich ja vor ein neues Diagramm zu erzeugen und in ein vorhandenes Tabellenblatt einzufügen. Probieren tue ich es hiermit:

Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets(2), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="diagramm"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = _
"BlaBla"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With

Mein Problem liegt bei "source:=" (da hänge ich zumindest momentan. Was danach kommt weiss ich nicht... :-) ). Ich weiss nicht wie ich hier auf das aktuelle Tabellenblatt und auf die schon vorher markierten Spalten verweise.
Noch mal kurz: Die Daten liegen im Tabellenblatt mit index(2), aus diesen Daten soll eine Grafik (also insgesamt ja mehrere) erzeugt werden und im Tabellenblatt "diagramm" mit index(1) gespeichert werden.
mmhh ich hoffe ihr versteht mich
besten Dank und Gruß
Raphael

Hi Raphael, dann war das bisherige alles umsonst, denn zum Diagramm erzeugen muss nix selektiert sein :-) Am besten du beendest hier und stellst eine neue Anfrage: wie erzeuge ich per Vba ein LinieneDiagramm mit mehreren Linien, wobie die X-Werte immer in A stehen, B bis H enthalten die y-Werte, o.ä. Dazu kannst du ja deinen Code posten, aber als komplette Sub, denn dann bleiben Formatierungen erhalten.

Beliebteste Forumthreads (12 Monate)

VBA / Excel: Spalten in Schleife durchlaufen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

13 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA / Excel: Spalten in Schleife durchlaufen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

13 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread