Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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?
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
Anzeige
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

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige