Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 15:29:29
Notizen einheitliche Position, Formatierung per Bezugsspalte
16.04.2024 15:16:53
Summen mit verschiedenen Variablen
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
16.04.2024 13:54:06
Multiplikation
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
472to476
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
472to476
472to476
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

wenn leere Zeilen(A51:A119); ausblenden

wenn leere Zeilen(A51:A119); ausblenden
26.08.2004 17:16:57
jens
Hallo zusammen,
habe eine Menge umständlichen Kram probiert, -es will mir nicht gelingen!
Ich übertrage per Button Daten von einem Sheet in ein anderes(ein Worbook),
dort möchte ich die leeren Zeilen ausgeblendet haben, damit man bei wenig
gefüllten Zeilen gleich die Summenzeile mit in der Ansicht hat (Bereich
(A51:A119)schiebt sich zusammen - Summenzeile kommt nach oben)
Hat dazu jemand ´ne Idee?
Gruß - Jens

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: wenn leere Zeilen(A51:A119); ausblenden
26.08.2004 18:50:17
Berthold Grabe
Hallo Jens
Versuchs mal damit:
Ich habe vor den auszublendenden Zeilen einfache eine Spalte "benannt" und mich mit folgender Prozedur darauf bezogen, bei mir wird der Prozess durch eine Ereignisroutine angestoßen (worksheet_Change), du kannst sie ja an den Button hängen

Private Sub BlendeAusführen()
'Blendet die nicht verwendeten Zeilen im Ergebnis und Verlauf aus
Dim Zeilen As Range
Dim Letzte As Integer
Dim i As Integer, j As Integer
On Error Resume Next
Application.ScreenUpdating = False
Set Zeilen = ThisWorkbook.Sheets("Ergebnis").Range("ErgebnisBlende")
For i = 1 To 53
If Zeilen(i) = 1 Then
ThisWorkbook.Sheets("Ergebnis").Rows(i).Hidden = False
ElseIf Zeilen(i) = "" Then
ThisWorkbook.Sheets("Ergebnis").Rows(i).Hidden = True
End If
Next i
Set Zeilen = ThisWorkbook.Sheets("Verlauf").Range("VerlaufBlende")
For j = 1 To 83
If Zeilen(j) = 1 Then
ThisWorkbook.Sheets("Verlauf").Rows(j).Hidden = False
ElseIf Zeilen(i) = "" Then
ThisWorkbook.Sheets("Verlauf").Rows(j).Hidden = True
End If
Next j
Application.ScreenUpdating = True
Set Zeilen = Nothing
End Sub

Gruß
Berthold
Anzeige
noch was vergessen
26.08.2004 18:55:19
Berthold Grabe
Hallo Jens,
ich war ein wenig zu schnell, du mußt natürlich im benannten Bereich der Exceltabelle eine Abfrage einbauen, ob die relevanten Zellen auch leer sind z.B:
=wenn(Zelle="";"";1)
meine Prozedur blendet alle Zeilen aus, welche im benannten Bereich keine 1 stehen haben.
Gruß
berthold
Danke Berthold, nur klappt es leider nicht
27.08.2004 12:03:56
Jens
Hallo,
vielen Dank für die Antwort.
Kann es sein das Du eine andere Excel-Version verwendest?
Mir fiel auf, dass da z.B. "Zeilen" und nicht "Rows" steht.
Soweit ich weiss, waren deutsche Begriffe nur in der älteren Version erlaubt?!
Ich benutze Excel8.0 (Office97)
sorry, leider sind meine Kenntnisse nicht ausreichend es (falls ich richtig liege)
dann umzuschreiben bzw. vor allem Deine 2. Antwort umzusetzen :-((
Ich merke, ich muss dringend eine neue Anfänger-Lektüre besorgen!!
(hab´ ja ein Buch, aber das ist leider alles andere als verständlich geschrieben!)
Gruß - Jens
Anzeige
AW: Danke Berthold, nur klappt es leider nicht
29.08.2004 10:44:52
andre
Hallo Jens,
das mit den Zeilen bei berthold hat nichts mit Deiner Vermutung zu tun. Berthold setzt hier eine Variable, und die hat er eben so genannt.
mach's so:

Private Sub BlendeAusführen()
'Blendet die nicht verwendeten Zeilen aus und die verwendeten ein
' (Entscheidungskriterium: Spalte A bzw hier A51 bis A119)
Dim i As Integer
Application.ScreenUpdating = False
For i = 51 To 119
If Cells(i, 1) = "" Then
Sheets("Tabelle1").Rows(i).Hidden = True 'leere ausblenden
Else
Sheets("Tabelle1").Rows(i).Hidden = False 'volle einblenden
End If
Next i
Application.ScreenUpdating = True
End Sub

Anzeige
AW: wenn leere Zeilen(A51:A119); ausblenden
28.08.2004 01:16:30
MichiM
Hallo Jens,
weiss jetzt nicht, ob dui immer den gesamten Bereich, oder nur die leeren zellen in diesem Bereich ausgeblendet haben wolltest.
Folgender Code blendet den ganzen bereich aus, wenn Zelle A51 leer ist:

Sub Bereich_ausblenden()
'Tabellennamen anpassen
If Worksheets("Tabelle2").Range("A51") = "" Then
Worksheets("Tabelle2").Select
Rows("51:114").Select
Selection.EntireRow.Hidden = True
End If
End Sub


lege diesen Code auf einen Button zum einblenden des Bereiches:

Sub Bereich einblenden()
Rows("50:115").Select
Selection.EntireRow.Hidden = False
End Sub

Gibt bestimmt eine bessere Lösung (ohne Recorder-Select), aber hier ist Urlaubszeit und die meisten Experten einfach nicht da, wenn man se braucht ;-)
Gruss
MichiM
Anzeige

323 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