Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Spalten in einer Schleife durchzaehlen

Forumthread: Spalten in einer Schleife durchzaehlen

Spalten in einer Schleife durchzaehlen
17.12.2003 16:23:39
Bjoern
Hallo liebe Excel-Gemeinde,

Wie kann ich in meinem VBA-Code in einer Schleife die Spalten A bis BB durchlaufen? Ich moechte auch nur jede dritte Spalte durchgehen. Wie erhoehe ich den jeweiligen Buchstaben?

Kann mir jemand helfen,
Bjoern
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten in einer Schleife durchzaehlen
17.12.2003 16:26:20
Nepumuk
Hallo Björn,
wozu den Buchstaben? Das geht doch auch mit Columns(1) = Spalte A.
Gruß
Nepumuk
AW: Spalten in einer Schleife durchzaehlen
17.12.2003 16:36:35
Bjoern
Ich glaub, ich steh am Schlauch. Wie nutze ich denn die Funktion Columns(1)?

Wenn ich z.B. in mein Textfeld den Namen der ersten Spalte meines Arbeitsblattes "Config" eintragen moechte, verwende ich folgenden Code:

TextBox1.Text = Sheets("Config").Columns(1)

Ich bekomme aber einen Type Mismatch-Fehler. Was mach ich denn falsch?
Anzeige
AW: Spalten in einer Schleife durchzaehlen
17.12.2003 16:44:03
Nepumuk
Hallo Björn,
ich versteh nicht ganz was du vor hast. Wie würdes du es schreiben, wenn es sich nur um Spalte A handeln würde?
Gruß
Nepumuk
AW: Spalten in einer Schleife durchzaehlen
17.12.2003 17:07:42
Bjoern
Also gut, ich habe eine Listbox, die ich auf Knopfdruck mit den Inhalten der Spalten (A, D, G, J,... - also jeder dritten Spalte) fuellen moechte.

Wenn ich den Inhalt einer Zelle in ein Textfeld schreiben moechte verwende ich folgenden Code:

Textbox1.Text = Sheets("Config").Range("A8")

Jetzt habe ich die folgende Schleife:

Dim column As String

column = "A"
For i = 1 To 20
listbox.AddItem
N = listbox.ListCount - 1
listbox.Lit(N, 0) = Sheets("Config").Range(column +"8")
column = column + 3 <-- ich moechte die Spalte nun hochzaehlen (auf D, G, J usw...) Wie mach ich dass?
Next

Kannst du mir helfen?

Vielen Dank,
Bjoern
Anzeige
AW: Spalten in einer Schleife durchzaehlen
17.12.2003 17:10:58
Nepumuk
Hallo Björn,
dann schreib einfach:

Textbox1.Text = Sheets("Config").Cells(8, 1)

Gruß
Nepumuk
AW: Spalten in einer Schleife durchzaehlen
17.12.2003 17:13:51
Bjoern
Hallo Nepumuk,

vielen Dank. Das ist genau, was ich gebraucht habe.

Ich wuensch dir frohe Weihnachten...

Gruss,
Bjoern
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige