Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1292to1296
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
1292to1296
1292to1296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wo ist der Fehler?

Wo ist der Fehler?
23.01.2013 07:12:29
Lorenz
Hallo & guten Morgen
Nach meinem Code ist die "Hidden" Eigenschaft nicht möglich
With wksKalender
.Cells.EntireRow.Hidden = False
.Rows("13:99").EntireRow.Hidden = False
iRow = .Cells(100, 1)
.Rows("1:7").EntireRow.Hidden = True
.Rows("10:10").EntireRow.Hidden = True
In folgender Zeile liegt der Hund begraben (Code will so nicht):
.Rows(iRow & ":100").EntireRow.Hidden = True
End With
Gruß
Lorenz

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Was steht denn in Zelle A100? oT
23.01.2013 08:01:41
Marc
Gruß, MCO

AW: Was steht denn in Zelle A100? oT
23.01.2013 08:11:14
Lorenz
Hallo MCO
In A100 steht das Ergebnis einer Formel "97-(ANZAHLLEEREZELLEN(A14:A97))"
Gruß
Lorenz

Kein Makrofehler. Logik?
23.01.2013 08:44:55
Marc
Moin!
Hab dein Makro mal angepasst, funktioniert bei mir.
Falls es bei dir nicht läuft, dann untersuch mal, ob die Variable in Ordnung ist, setzt vielleicht mal einen festen wert ohne Formel.
Sub test()
With ActiveSheet
.Cells.EntireRow.Hidden = False
'.Rows("13:99").EntireRow.Hidden = False überflüssig!!!
iRow = .Cells(100, 1)
.Rows("1:7").Hidden = True
.Rows("10:10").Hidden = True
.Rows(iRow & ":100").Hidden = True
End With
End Sub
Gruß, MCO

Anzeige
AW: Kein Makrofehler. Logik?
23.01.2013 09:36:22
Matze
Hallo Lorenz,
das iRow hat nur eine Zeile, somit kann mann mit Range alles zusammenfassen.
With ActiveSheet
.Cells.EntireRow.Hidden = False 'alle Zeilen
iRow = .Cells(100, 1) 'warum? wegen der Spalte woanders nötig?
.Range("1:7,10:10,100:100").EntireRow.Hidden = True
End With
Matze

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige