Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
604to608
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
604to608
604to608
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

For Schleife

For Schleife
26.04.2005 21:30:50
Jojo
Hallo ich bin gerade dabei meine erste For-Schleife zun erstellen. Ziel ist es dabei im ausgewählten Bereich Zeilen die mit einer null gekennzeichnet sind auszublenden.
Leider sind da noch Fehler drin.

Sub Makro1()
'Makro_zeilenausblenden
For i = 1 To 10 Step 1
Range("ai").Select
If ActiveCell = 0 Then
Selection.EntireRow.Hidden = True
End If
Next i
End Sub

kann mir jemand helfen?
Danke

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: For Schleife
26.04.2005 21:52:05
Klaus-Dieter
Hallo Jojo,
versuche es mal so:
Option Explicit

Sub Makro1()
Dim i As Integer
'Makro_zeilenausblenden
For i = 10 To 1 Step -1
If Cells(i, 1) = 0 Then Rows(i).EntireRow.Hidden = True
Next i
End Sub

Anmerkungen: Befehle wie Select und Activate sind in aller Regel überflüssig.
Die Step-Anweisung ist, so wie du sie angewendet hast, nicht erforderlich, da die Schrittweite 1 als Standard festgelegt ist. Ich habe die Schleife Rückwärts laufen lassen, da das Vorteile hat, wenn Zeilen ausgeblendet oder gelöscht werden sollen. Das heißt, Step nur wenn Rückwärts gezählt wird oder Schrittweiten 1 verwendet werden sollen.
Deine Anweisung: Range("ai").Select hätte so aussehen müssen: Ranhge("A" & i).Select. Aber - Select, siehe oben.
Gruß Klaus-Dieter
Anzeige
AW: For Schleife
26.04.2005 21:58:06
Herbert 

Sub Makro1()
Dim i As Long
For i = 1 To 10
If Cells(i, 1) = 0 Then Rows(i).Hidden = True
Next
End Sub

mfg Herbert

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige