Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

schleife über spalten

Forumthread: schleife über spalten

schleife über spalten
18.06.2007 12:37:00
markus
ser s leute
hab in zeile 8 nen fixen wert und ca 200 spalten..
wenn wert = 0, dann spalte deleten..
schleifen über zeilen kein prob, aber wie bei spalten ?
get char + 1 ? für buchstabenerhöhung?
danke

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: schleife über spalten
18.06.2007 12:45:39
Reinhard
Hi Markus,
Option Explicit

Sub tt()
Dim Spa As Integer
For Spa = Cells(8, Columns.Count).End(xlToLeft).Column To 1 Step -1
If Cells(8, Spa) = 0 Then Columns(Spa).Delete
Next Spa
End Sub


Gruß
Reinhard

AW: schleife über spalten
18.06.2007 12:51:00
Peter
Hallo Markus,
arbeite mit Cells
dim iSpalte as Integer
For iSpalte = 1 to 200
If cells(8, iSpalte) = 0 then
' ...
End If
Next iSpalte
Gruß Peter

Anzeige
vielen dank an beide (KT)
18.06.2007 13:25:00
markus
kt
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige