Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
876to880
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
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige