Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1148to1152
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
1148to1152
1148to1152
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige