Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
652to656
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
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leerzeilen in best. Bereichen auf 0 setzen

Leerzeilen in best. Bereichen auf 0 setzen
16.08.2005 09:37:25
Sascha
Guten Morgen,
habe folgendes Problem:
In drei jeweils sechszeiligen Bereichen soll per Makro geprüft, ob sich in den jeweiligen Bereichen Leerzeilen befinden.
Falls ja, dann soll die betreffende Zeile nicht gelöscht, sondern auf RowHeight = 0 gesetzt werden.
Habe mir bislang folgende Gedanken gedacht, die aber nicht so ganz funktionieren:
Dim Bereich1, Bereich2, Bereich3 As Range
Set Bereich1 = ActiveSheet.Rows("1:6")
Set Bereich2 = ActiveSheet.Rows("10:16")
Set Bereich3 = ActiveSheet.Rows("20:26")
Dann per If jeden Bereich abfragen - aber wie?
Wer kann mit dabei helfen?
Gruß
Sascha

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leerzeilen in best. Bereichen auf 0 setzen
16.08.2005 09:43:32
Eule
Hi Sascha
dies kannst Du Dir ja etwas anpassen:

Sub procLeereZeilenVerdecken()
ActiveSheet.UsedRange.Select
lngAnzahl = Selection.Rows.count
For i = 1 To lngAnzahl
If Application.CountA(Selection.Rows(i)) = 0 Then
Selection.Rows(i).Hidden = True
End If
Next i
End Sub

Gruss Eule
AW: Leerzeilen in best. Bereichen auf 0 setzen
16.08.2005 10:20:25
Sascha
Hab's jetzt so gemacht:

Sub procLeereZeilenVerdecken()
Dim Bereich1 As Range
Set Bereich1 = ActiveSheet.Rows("49:54")
ActiveSheet.Bereich1.Select
lngAnzahl = Selection.Rows.Count
For i = 1 To lngAnzahl
If Application.CountA(Selection.Rows(i)) = 0 Then
Selection.Rows(i).Hidden = True
End If
Next i
End Sub

Funktioniert aber nicht. Er sagt immer "Objekt unterstützt diese Eigenschaft oder Methode nicht". Was muss ich ändern und wie kann ich alle drei Bereiche abfragen?
Anzeige
AW: Leerzeilen in best. Bereichen auf 0 setzen
16.08.2005 11:17:39
Harald
Hallo Sascha,
hier eine alternativer Ansatz.

Sub leere()
Dim i As Integer
For i = 1 To 6
If WorksheetFunction.CountA(Rows(i)) >= 1 Then
Rows(i).RowHeight = 12.75 'Standardhöhe
Else
Rows(i).RowHeight = 0
End If
Next i
End Sub

...und wieder zurück

Sub reset()
Dim x As Integer
For x = 1 To 26
Rows(x).RowHeight = 12.75
Next x
End Sub

Gruß
Harald
AW: Leerzeilen in best. Bereichen auf 0 setzen
16.08.2005 11:42:00
Sascha
Problem gelöst.
Super, danke!!
Danke für Rückmeldung ;-)) o.w.T
16.08.2005 11:52:14
Harald
Gruß
AW: Danke für Rückmeldung ;-)) o.w.T
16.08.2005 13:09:26
Sascha
...hab doch noch was.
In manchen Zeilen, die optisch leer sind, sind Formeln hinterlegt.
Diese Zeilen blendet er dann leider nicht aus.
Kann man das auch irgendwie hinbekommen?
Gruß und Dank,
Sascha
Anzeige
AW: Danke für Rückmeldung ;-)) o.w.T
16.08.2005 13:55:00
Harald
Hi nochmal,
Änderung der If Abfrage
If WorksheetFunction.CountIf(Rows(i), "&gt0") &gt= 1 Then
Gruß
Harald
AW: Danke für Rückmeldung ;-)) o.w.T
16.08.2005 15:17:09
Sascha
Allerletzte Frage (für heute...) :-) :
Bei der letzten Variante von Dir löscht er mir nun alle sechs Zeilen weg.
Das Kriterium "leer" oder "nicht leer" müsste aber bei mir auch in Spalte B abgefragt werden. Was muss da geändert werden?
Gruß und Dank,
Sascha
AW: Danke für Rückmeldung ;-)) o.w.T
16.08.2005 15:40:24
Harald
Hi Sascha,
hab schon Feierabend und bin wieder zuhause und hab nur kurz nochmal reingeschaut.
Muss dich auf morgen vertrösten, da der Nachbau im Firmen-PC schlummert und ich das hier nicht auch nochmal aufbauen kann (zeitlich)
Gruß
Harald
Anzeige
AW: Danke für Rückmeldung ;-)) o.w.T
17.08.2005 08:11:00
Harald
Moin Sascha,
ich habs so getestet und er nimmt mir Leere sowie ergebnislose Formeln raus.
Zahlen bleiben stehen. Text wird allerdings auch rausgenommen.
Du schreibst es müßten nur die ersten beiden Spalten abgefragt werden. Der Code fragt die gesamte Zeile ab. Daher hab ich unter die Zeile auch noch die Formel für die Abfrage der Spalte A und B eingefügt (auskommentiert).

Sub leere()
Dim i As Integer
For i = 1 To 6
If WorksheetFunction.CountIf(Rows(i), ">0") >= 1 Then
'If WorksheetFunction.CountIf(Range("A" & i & ":B" & i), ">0") >= 1 Then
Rows(i).RowHeight = 12.75 'Standardhöhe
Else
Rows(i).RowHeight = 0
End If
Next i
End Sub



Sub reset()
Dim x As Integer
For x = 1 To 26
Rows(x).RowHeight = 12.75
Next x
End Sub

Hoffe das hilft
Harald
Anzeige
AW: Danke für Rückmeldung ;-)) o.w.T
17.08.2005 10:18:02
Sascha
Recht herzlichen Dank für Deine Hilfe.
Jetzt läuft es.
Dieses Forum hier ist wirklich Gold wert!
gern geschehen o.w.T
17.08.2005 11:02:47
Harald
Gruß
Harald
AW: gern geschehen o.w.T
17.08.2005 16:54:50
Sascha
Noch eine allerallerletzte Frage:
Im Moment fragt er die Zeilen 1-6 jeweils ab und setzt die Zeilenhöhe gleich Null oder eben nicht. Das ist klar.
Wie sähe es bei folgender Prüfung aus:
- Prüfe, ob A1 = leer
- wenn A1 = leer, dann setze Zeilen 2-6 auf Höhe 0
- wenn nicht, dann mache nix
Solltest Du mir nochmal helfen können?
Danke vorweg....
Gruß
Sascha
AW: gern geschehen o.w.T
18.08.2005 07:33:18
Harald
Moin Sascha

Sub leerinA1()
If Range("a1") <> "" Then
Range("a2:a6").RowHeight = 12.75 'Standardhöhe
Else
Range("a2:a6").RowHeight = 0
End If
End Sub

Gruß
Harald
Anzeige
AW: gern geschehen o.w.T
18.08.2005 08:06:31
Sascha
Letztmalig herzlichen Dank. Funktioniert wunderbar.

141 Forumthreads zu ähnlichen Themen

Zellen- Inhalt auf Zahl 0 zurücksetzen
Lemmi

Hallo zusammen,
ich habe eine Arbeitsliste in der durch eine Drop- Down Menü Auswahl 0,1,2,3 sowie Leerstelle- Auswahl durchgeführt wird. (ab Spalte M6)
In der Spalte ab O6 wird eine Bewertung Durchgeführt. Diese wird auch durch Drop- Down umgesetzt!
Wird nun in der Spalte O di...
02.09.2008 17:35:00
Thread-ID: 1006885
12 Beiträge
Anzeige
Verweis auf MS Forms 2.0 setzen per Vba
Reinhard

Hallo Wissende,
ich will eine xla erstellen, die den Verweis auf Microsoft Forms 2.0 Object Libraray benötigt. Der Verweis zielt in XL97 auf eine andere Datei als in XL2000, deshalb sind auch die Guid-Nummern verschieden.
Option Explicit #If VBA6 = 0 Then Const FM20_GUID = "{C43ABEE0-...
06.11.2008 16:57:01
Thread-ID: 1022358
6 Beiträge
Zellen über Button auf 0 setzen
m-andi

Guten morgen,
Ich habe folgendes Problem:
Ich möchte auf der Ersten Seite meiner Excel-Mappe einen Butten haben mit dem ich einzelne Felder in der Gesamten Arbeitsmappe Löschen kann.
Also z.B. auf dem Blatt 2 die Felder A12:A18; B23; dann auf Blatt 2 C60; D34; auf Blatt 3 C2:F12; us...
08.12.2008 08:45:18
Thread-ID: 1030970
2 Beiträge
Anzeige
Wenn kein Eintrag dann 0
Alex

Hi @ all!
Habe ein kleines Problem:
Habe folgende Formel, aber es wird immer Divison durch Null angezeigt...
=WENN(H3=" ";"0";H3/F3)
Ich quasi nur Teilen, wenn in H3 ein Eintrag vorhanden ist, oder eben wenn kein Eintrag vorhanden ist soll 0 da stehen...
Vielen Dank schon ma...
14.07.2009 12:41:15
Thread-ID: 1088433
5 Beiträge
VBA: Autofilter auf "0" setzen
David

Hallo zusammen.
Wenn in der Datei ein Autofilter gesetzt ist und auch in einem beliebigen Feld ein Kriterium gesetzt ist, wie bekomme ich per VBA die Anzeige ALLER Elemente hin.
Mein Versuch mit Range(XYZ).Autofilter
löscht diesen komplett, was aber nciht gewollt ist. Und .Autofi...
27.08.2009 09:53:08
Thread-ID: 1098941
3 Beiträge
Tool/Tabelle wieder auf 0 setzen
Christopher

Hi Leute,
ich hätte da eine Frage und zwar habe ich ein Makro angelegt mit dem ich eine Wertekopie erstellen kann. Im nächsten Schritt wäre es super wenn die Tabelle oder das Tool Kontierung wieder auf 0 gesetzt werden würde? Wie mache ich das am besten?
Hier mein Makro:
Sub Werteko...
22.09.2009 10:33:57
Thread-ID: 1104587
13 Beiträge
#NV in 0 umwandeln
rainer
Hallo! Die NV# entstehen duech Formeln, für die kein Wert berechnet werden konnte. Modifiziere deine Formel analog zu:
vorher: Zelle A1:(Formelxy)
nachher: wenn (istfehler(formelxy);0;formel(xy))
15.04.2002 11:51:26
Thread-ID: 113365
4 Beiträge
Zelleneintrag "1200" in Uhrzeit 12:00 umwandeln
',," (2x Komma) Durch:':' (Doppelpunkt).Nun kannst Du 'komfortabel' auf dem Ziffernblock 2 Kommas eingeben; der Doppelpunkt eird generiert.Ansonsten als Ansatz fogende VBA-Makros von Michael Schwimmer:
16.04.2002 10:15:59
Thread-ID: 113633
2 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
11
6
5
1
7
4
2
12
3
1
8
7
4
6
4
6
6
11
3
4
3
4
9
4
3