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

Frage zu Makro

Forumthread: Frage zu Makro

Frage zu Makro
jens-claus
Hallo Excel-Freunde,
wie kann ich folgendes Makrozeile ändern:
For irow = 33 To 5000
Der Bereich soll nicht bis 5000 gehen
sondern nur bis in Spalte A das Wort "Gesamtergebnis" steht. 
Sub Rows_Hidden()
For irow = 33 To 5000
If Cells(irow, 4) = "" Then
Rows(irow).Hidden = True
End If
Next irow
End Sub
Besten Dank für Hilfe.
Gruß Jens
Anzeige

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

Betreff
Benutzer
Anzeige
For irow=33 to [A:A].Find("Gesamtergebnis").row
29.03.2010 16:19:44
NoNet
Hallo Jens,
wenn in Spalte A garantiert das Wort "Gesamtergebnis" enthalten ist, dann kann man das ohne Fehlerüberprüfung ganz kurz lösen:
For irow=33 to [A:A].Find("Gesamtergebnis").Row
Oder auch zuvor in einer Variablen speichern :
LRow = [A:A].Find("Gesamtergebnis").Row
For iRow=33 to LRow
Gruß, NoNet
Anzeige
AW: For irow=33 to [A:A].Find("Gesamtergebnis").row
29.03.2010 16:22:21
jens-claus
Hallo Excelfreund,
herzlichen Dank für die schnelle Hilfe.
Einen schönen Tag wünscht
Jens
oder noch ein bisschen, schneller
29.03.2010 16:30:54
Renee
Hi Jens,
Sub tiler()
With Range(Cells(33, 4), Cells(Range("A:A").Find("Gesamtergebnis").Row, 4))
.EntireRow.Hidden = False
.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End With
End Sub
GreetZ Renée
Anzeige
AW: Keine Argumente zu Find ? o.T.
29.03.2010 21:07:05
Gerd
Gruß Gerd
siehe Bemerkung von NoNet! (owT)
29.03.2010 21:23:40
NoNet!

AW: siehe Bemerkung von NoNet! (m.T.)
29.03.2010 21:28:07
NoNet!
Hallo Renée,
NoNet setzt die Parameter von Find, die im Dialog "Suchen" verstellt werden können, ebenfalls nicht.
Dies habe ich schon gesehen.
Gruß Gerd
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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