Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1136to1140
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
1136to1140
1136to1140
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile 1 ausblenden wenn A1 nicht 1

Zeile 1 ausblenden wenn A1 nicht 1
andi
Guten Morgen
Ich habe eine Bitte.
Kann mir jemand helfen. Ich bräuchte ein VBA code der mit die ganzen zeilen ausblendet bzw wieder einblendet (automatisch) in der in Spalte 1 keine "1" steht.
Also:
wenn in A1 eine 1 steht dann zeile 1 ausblenden, wenn 0 dann wieder einblenden
wenn in A2 eine 1 steht dann zeile 2 ausblenden, wenn 0 dann wieder einblenden
wenn in A3 eine 1 steht dann zeile 3 ausblenden, wenn 0 dann wieder einblenden
Vielen Dank im Voraus
AW: Zeile 1 ausblenden wenn A1 nicht 1
09.02.2010 09:11:56
Michael
Wann soll das Makro denn laufen?
Wenn nämlich Zeile aus ausgeblendet ist weil eine 1 drin steht, wie kommt dann ein 0 rein um es wieder einzublenden.
Wo hört die Tabelle auf? wie viele Zeilen?
Gruß
Michael
AW: Zeile 1 ausblenden wenn A1 nicht 1
09.02.2010 09:26:08
welga
Hallo,
vorausgesetzt in Spalte B steht was, dann versuch mal folgendes:
Sub Makro1()
Application.ScreenUpdating = False
'alle Zeilen einblenden
Cells.Select
Selection.EntireRow.Hidden = False
Range("A1").Select
'Zeilen ausblenden wenn in Spalte A 1 steht
For i = 1 To Sheets(1).[b65536].End(xlUp).Row
If Cells(i, 1).Value = 1 Then
Rows(i).Select
Selection.EntireRow.Hidden = True
End If
'Zeilen ausblenden wenn in Spalte A 0 steht
If Cells(i, 1).Value = 0 Then
Rows(i).Select
Selection.EntireRow.Hidden = False
End If
Next i
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Zeile 1 ausblenden wenn A1 nicht 1
09.02.2010 09:56:28
andi
Hallo
Wie funktioniert das mit dem Loop?
Habe es unter die aktive Tabelle hineinkopiert.
wie kann ich es ohne Makro lösen. Ich meine dass es im Hintergrund automatisch läuft?
Vielen Dank
AW: Zeile 1 ausblenden wenn A1 nicht 1
09.02.2010 09:32:00
andi
Hallo
Es sollte im Hintergrund immer laufen
Die "0" und "1" kommen durch einen Sverweis von einem anderen Sheet.
Sie umfasst 350 Zeilen.
Danke
AW: Zeile 1 ausblenden wenn A1 nicht 1
09.02.2010 09:22:37
Michael
kannst mit einer do loop schleifen lösen
Sub test()
Dim i, spalte As Integer
i = 1: spalte = 1
Do
If Cells(i, spalte) = 1 Then
Application.StatusBar = "Zeile " & i
Rows(i).RowHeight = 0 'Zeilenhöhe auf 0 (also Ausblenden)
Else
If Cells(i, spalte) = 0 Then
Rows(i).RowHeight = 12.75
End If
End If
i = i + 1
Loop Until Cells(i, spalte) = ""
End Sub

Anzeige
AW: Zeile 1 ausblenden wenn A1 nicht 1
09.02.2010 10:06:22
andi
Hallo
Wie funktioniert das mit dem Loop?
Habe es unter die aktive Tabelle hineinkopiert.
wie kann ich es ohne Makro lösen. Ich meine dass es im Hintergrund automatisch läuft?
Vielen Dank
AW: Zeile 1 ausblenden wenn A1 nicht 1
09.02.2010 10:39:29
Michael
Wie jetzt unter die aktive Tabelle?
Im VBA (Tabelle1), dann im linken Auswahlmenue "Workseet" auswählen und im rechten Meue "Change"
da dort den Code zwischen kopieren. Jetzt läuft das Makro JEDESMAL wenn eine Änderung gemacht wird.
Das geht natürlich auf die Geschwindigkeit
AW: Zeile 1 ausblenden wenn A1 nicht 1
09.02.2010 10:49:22
andi
Danke für deine Hilfe
Habe das jetzt so eingegeben:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i, spalte As Integer
i = 1: spalte = 1
Do
If Cells(i, spalte) = 0 Then
Application.StatusBar = "Zeile " & i
Rows(i).RowHeight = 0 'Zeilenhöhe auf 0 (also Ausblenden)
Else
If Cells(i, spalte) = 1 Then
Rows(i).RowHeight = 12.75
End If
End If
i = i + 1
Loop Until Cells(i, spalte) = ""
End Sub
Ich glaube ich mach was falsch.
Ist es möglich, einfach alle Zeilen zwischen 1 und 350 auszublenden, außer die Zeilen wo in der Spalte 1 eine "1" steht nicht ?
Danke für deine Mühe
Anzeige
AW: Zeile 1 ausblenden wenn A1 nicht 1
09.02.2010 10:46:24
hary
Hallo Andi
Code gehoert in den Code der Tabelle worauf Sverweis greift. 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle1") 'hier stehen die Einsen
.Cells.EntireRow.Hidden = False
For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(i, 1).Value = 1 Then .Cells(i, 1).EntireRow.Hidden = True
Next i
End With
Application.ScreenUpdating = True
End Sub

gruss hary
AW: Zeile 1 ausblenden wenn A1 nicht 1
09.02.2010 11:07:49
andi
Hallo
Funktioniert bei mir nicht. Keine Ahnung was ich falsch mache.
Habe meine Datei hier gepostet.
https://www.herber.de/bbs/user/67847.xlsm
In der Tabelle Ausgabe sollten die Zeilen ausgeblendet werden.
Vielen Dank im Voraus
Anzeige
AW: Zeile 1 ausblenden wenn A1 nicht 1
09.02.2010 11:59:46
welga
Kannst du es mal als Excel 03 hochladen?
Habe hier leider kein 2007.
Danke
AW: bitte schön
09.02.2010 13:33:26
andi
Danke WELGA
Super
AW: bitte schön
09.02.2010 13:50:45
hary
Hallo Andi
einen hab ich noch. Wird ein/ausgeblendet, wenn Du in Tabelle Eingabe in SpalteA Eintrag aenderst.
https://www.herber.de/bbs/user/67856.xls
gruss hary
AW: bitte schön
09.02.2010 14:16:26
andi
Hallo Hary
Bekomme diesen Fehler beim wechseln des in Eintrags in Spalte A
Kannst du mir helfen?
Userbild
Vielen Dank
Anzeige
AW: vergiss erstmal....
09.02.2010 17:52:40
hary
Hallo Andi
....meinen Code. Hast ja 2007. kann ich im Moment nicht pruefen.
gruss hary
AW: Zeile 1 ausblenden wenn A1 nicht 1
09.02.2010 10:48:47
welga
Hallo,
schreibe in den Code vom Tabellenblatt:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(UsedRange, Target) Is Nothing Then
Application.ScreenUpdating = False
Application.EnableEvents = False
If Cells(Target.Row, 1).Value = 1 Then
Rows(Target.Row).Select
Selection.EntireRow.Hidden = True
End If
If Cells(Target.Row, 1).Value = 0 Then
Rows(Target.Row).Select
Selection.EntireRow.Hidden = False
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End If
End Sub
Gruß
welga
Anzeige

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

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