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
304to308
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
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmte Zeilen ausblenden

Bestimmte Zeilen ausblenden
05.09.2003 11:02:54
Frank
Hallo,
ich folgendes Problem:Ich möchte beginnend ab Zeile 8 jede 28. Zeile ausblenden. Dies soll solange ausgeführt werden, bis der Wert einer Variable
erreicht ist. Der Wert der Variable wird vorher von mir ermittelt. Wir können
ja in diesem Beispiel i = 10 nehmen. Das Makro müßte also mit Zeile 8 beginnen,
weiter mit 36,64,usw. bis Zeile 260.
Gruß
Frank

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Zeilen ausblenden
05.09.2003 11:16:34
ChrisL
Hi Frank

Hier ein Ansatz...

Option Explicit


Sub Macro1()
Dim i As Long
'dim Var as ?
For i = 8 To 65536 Step 28
If Var = X Then Exit Sub
Rows(i).EntireRow.Hidden = True
Next i
End Sub


Gruss
Chris
AW: Bestimmte Zeilen ausblenden
05.09.2003 11:42:53
Frank
Hallo Chris,
so so sieht mein Makro aus:

Sub Zellen_Ausblenden_Neu()
Dim intAkt As Integer, intAnf As Integer, _
intMax As Single, intStep As Integer
Dim Zelle As Range, Anzahl As Single
Dim bereich As Range
Dim i As Long
Dim var As Integer
Set bereich = Range("C8:C3000")
For Each Zelle In bereich
If Zelle.Borders(xlEdgeBottom).LineStyle <> xlNone Then intMax = intMax + 1
Next
intMax = intMax / 28
If Len(CStr(intMax)) > 2 Then MsgBox "Ungerade "
Application.ScreenUpdating = False
For i = 8 To 65536 Step 28
If var =  Then Exit Sub
Rows(i).EntireRow.Hidden = True
Next i
Range("B7").Select 'Wenn's sein muss ;-)
Application.ScreenUpdating = True
End Sub


Ich habe Probleme mit der Zeile "If var = then exit Sub". Ich weiß nicht genau, was ich
da schreiben soll. Die Variable intMax liefert mir die Zahl wie oft die Schleife durchlaufen werden soll.
Gruß
Frank
Anzeige
AW: Bestimmte Zeilen ausblenden
05.09.2003 11:46:26
ChrisL
Hi Frank

Wie lautet denn die Bedingung? Was genau willst du mit deiner Variable erreichen bzw. was ist die eigentliche Aufgabe?

Gruss
Chris
AW: Bestimmte Zeilen ausblenden
05.09.2003 11:50:17
Andreas Walter
> Die Variable intMax liefert mir die Zahl wie oft die Schleife durchlaufen werden soll

for i=1 to intMax
rows(8+(i-1)*28).EntireRow.Hidden = True
next
AW: Bestimmte Zeilen ausblenden
05.09.2003 11:56:11
Frank
Hallo Chris, Hallo Andreas,
ich glaube die letzte Antwort vom Andreas funktioniert. Ich werde es nochmal genau testen. Danke für eure Hilfe.
Gruß
Frank
AW: Bestimmte Zeilen ausblenden
05.09.2003 12:46:59
Frank
Hallo,
ich habe jetzt noch ein letztes Problem. Ich habe von Zeile 14 bis 35 einen Zeilenblock der ausgeblendet werden soll, von 42 bis 63 usw, also wie gehabt der 28er Sprung. Wie mache ich das am einfachsten ?
Gruß
Frank
Anzeige
AW: Bestimmte Zeilen ausblenden
05.09.2003 13:11:49
ChrisL
Hi Frank

Dann nimm die Zeilen 14 bis 35 aus der For..Next Schlaufe raus, blende diese separat aus und beginn deine Schlaufe erst ab 42.

Gruss
Chris
AW: Bestimmte Zeilen ausblenden
05.09.2003 13:20:25
Frank
Hallo Chris,
ich glaube ich habe mich falsch ausgedrückt. Ich habe mehrere Zeilenblöcke, 14:35,42:63,
70:91 usw. Diese Blöcke möchte ich genau so ausblenden wie vorher die einzeln Zeilen,aber
das krieg ich nicht auf die Reihe.
Gruß
Frank
AW: Bestimmte Zeilen ausblenden
05.09.2003 13:32:23
ChrisL
Hi Frank

Nicht getestet, aber...

for i=1 to intMax
rows((8+(i-1)*28) & ":" & (8+(i-1)*28) + 21).EntireRow.Hidden = True
next i

Gruss
Chris
Anzeige
AW: Bestimmte Zeilen ausblenden
05.09.2003 13:38:41
Frank
Hallo Chris,
das klappt super, da wäre ich von allein nicht drauf gekommen. Die Lösung
hat mir sehr geholfen. Danke.
Gruß
Frank
AW: Bestimmte Zeilen ausblenden
05.09.2003 13:14:58
Andreas Walter
Der Format ist wie folgt

Rows(8).EntireRow.Hidden = True
ist der kurz Form von
Rows("8:8").EntireRow.Hidden = True

Man kann sagen
Rows("14:35").EntireRow.Hidden = True

Wie Deine Variablen sind, blick ich nicht mehr durch, aber

j=14
Rows(j & ":" & j+21).EntireRow.Hidden = True
blendet auch Zeilen 14 bis 35 aus
AW: Bestimmte Zeilen ausblenden
05.09.2003 11:16:55
Andreas Walter
ungetestet

for i=8 to n step 26
Rows(I & "." & I).EntireRow.Hidden = True
next
Anzeige

305 Forumthreads zu ähnlichen Themen

Löschen von Zeilen unter 1 Bedingung
Zeilen

Hallo,
ich habe in einer Excel Liste Produkte geführt, die den aktuellen Lagerbestand anzeigen.
Dort werden auch die Produkte aufgeführt, deren Produkte einen Lagerbestand von 0 haben.
Der Lagerbestand wird in Spalte B aufgeführt, die Produkte stehen in Spalte A. Der Datenbereich b...
08.08.2008 20:15:00
Thread-ID: 1000407
5 Beiträge
Anzeige
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
Anzeige
Zeilen ausblenden wenn...
Andreas

Hi,
ich habe ein kleines Problem. Auf meinem Excel-Blatt sind von B4:B200 Datumswerte im Format TT.MM.JJJJ eingetragen. In der Zelle A1 gebe ich nun beispielsweise Januar ein. Ich will nun, dass alle Zeilen ausgeblendet werden, die nicht in der Spalte B ein Januar-Datum eingetragen haben. D...
04.09.2008 20:18:36
Thread-ID: 1007507
10 Beiträge
in einer Spaöte leere Zellen ausblenden
medion53

Hallo, vielleicht kann mir jemand helfen...
Ich habe eine Tabelle A, gefüllt mit Werten bzw Formeln, die Tabelle A verwende ich als Liste für Datengültigkeit. leider bekomme ich die Leerzellen nicht weg...habe gegoogelt und eine Formel gefunden.
http://www.excelformeln.de/formeln.html...
05.09.2008 10:40:00
Thread-ID: 1007607
7 Beiträge
bestimmte Zeilen per Makro ausblenden
Fritz_W

Hallo Forumsbesucher,
ich bitte die VBA-Kundigen unter euch um Hilfe.
Mit welchem Makro kann ich in einer geöffneten Tabelle alle Zeilen ausblenden, in denen in Spalte B ein Datumseintrag steht, der vor dem jeweils heutigen Tag liegt?
Vielen Dank für eure Hilfe
mfg
Fritz
05.09.2008 10:57:00
Thread-ID: 1007611
3 Beiträge
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Leere(nur Formel drin) Zellen in Diagramm
Volker

Hallo,
ich habe ein Problem und hoffe auf Eure Hilfe!
Ich habe mit Excel2007 (wahrscheinlich besteht das Problem auch in anderen Versionen) ein Diagramm erstellt. Es werden dabei 2 Datenreihen angezeigt. Soweit so gut...
Reihe 1 bildet sich aus 10 Werten, von denen der erste Teil vo...
25.09.2008 16:11:00
Thread-ID: 1012372
6 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
13
2
5
7
9
6
2
4
5
10
9
3
5
2
6
3
2
6
2
5
5
7
8
5