Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1444to1448
1444to1448
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel Schleife über eingeblendete Zellen

Forumthread: Excel Schleife über eingeblendete Zellen

Excel Schleife über eingeblendete Zellen
04.09.2015 19:00:57
mischiz
Hallo zusammen,
ich habe eine Frage ich habe eine Liste mit zwei Spalten und wenn in beiden 0 steht, soll die Zeile ausgeblendet werden. Wenn jedoch die rechte Spalte nicht null ist, die Zelle links davon 0 und die Zelle darüber nicht null ist, dann sollen die beiden Zellen ausgetauscht werden, so dass auf eine Zelle alles nicht 0 ist. Nun klappt das bei mir soweit, dass mein Code funktioniert solange dazwischen keine ausgeblendeten Zeilen sind. Wie kann ich meinen Code ändern, dass es nur mit eingeblendeten funktioniert.
Vielen herzlichen Dank
Liebe Grüsse

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Schleife über eingeblendete Zellen
04.09.2015 19:20:37
Daniel
Hi
du könntest beispielsweise zunächst einmal die Zeilennummern der sichtbaren Zeilen in ein Array schreiben.
Dann läufst du mit einer Schleife über dieses Array und liest zum Indexeintrag die jeweilige Zeilennummer aus dem Array und arbeitest mit dieser Zeilennummer.
sieht im Ansatz etwa so aus: 

Dim Zeile() as long
dim i as long
Dim rng as Range
'--- Zeilennummern der sichtbaren Zeilen ermitteln
With ActiveSheet.Usedrange.Columns(1).SpecialCells(xlcelltypevisible)
Redim Zeile(1 to .Cells.Count)
for each rng in .Cells
i = i + 1
Zeile(i) = rng.Row
Next
End with
'--- prüfen, ob der Wert der zweiten sichtbaren Zelle in Spalte A gleich dem darunterliegenden  _
Wert ist
i = 2
If Cells(Zeile(i), 1) = Cells(Zeile(i + 1), 1) Then...

Gruß Daniel

Anzeige
AW: Excel Schleife über eingeblendete Zellen
04.09.2015 19:57:29
mischiz
Hey vielen Dank für die schnelle Antwort. Habe es jetzt zuhause versucht nachzustellen, da ich _ nicht im Büro bin. Bei mir klappt es aber leider nicht. Sieht jemand den Fehler? Vielen Dank! 

Sub test()
Dim n As Long, laR As Long
laR = Cells(Rows.Count, 4).End(xlUp).Row
For n = 1 To 10
If Cells(n, 3).Value = "0" And Cells(n, 4).Value = "" Then
Cells(n, 3).EntireRow.Hidden = True
End If
If Cells(n, 3).Value = "0" And Cells(n, 4).Value = "0" Then
Cells(n, 3).EntireRow.Hidden = True
End If
Next n
Dim Zeile() As Long
Dim i As Long
Dim rng As Range
'--- Zeilennummern der sichtbaren Zeilen ermitteln
With ActiveSheet.UsedRange.Columns(3).SpecialCells(xlCellTypeVisible)
ReDim Zeile(3 To .Cells.Count)
For Each rng In .Cells
i = i + 1
Zeile(i) = rng.Row
Next
End With
'--- prüfen, ob der Wert der zweiten sichtbaren Zelle in Spalte A gleich dem darunterliegenden  _
_
Wert ist
If Cells(Zeile(i - 1), 3).Value > "0" And Cells(Zeile(i), 3).Value = "0" And Cells(Zeile(i), 4). _
Value > 0 Then
Temp = Cells(Zeile(i), 3)
Cells(Zeile(i), 3) = Cells(Zeile(i - 1), 3)
Cells(Zeile(i - 1), 3) = Temp
End If
End Sub

Anzeige
AW: Excel Schleife über eingeblendete Zellen
04.09.2015 21:32:17
Daniel
Hi
"klappt nicht" ist als Fehlermeldung genauso hilfreich wie der Hinweis: "wenns nicht klappt, machs anders"
beschreib mal bitte genauer, was nicht klappt.
gibts ne Fehlermeldung? Wenn ja in welcher Programmzeile und wie lautet die Fehlermeldung (Nummer, Text)?
wenn nein, was sollte deiner Meinung nach passieren und was passiert tatsächlich?
Nützlich ist immer auch das Hochladen der Datei, damit man den Fehler direkt ausprobieren kann.
ist wie beim Arzt, Patient auf dem Tisch ist immer besser als ne Telefonberatung.
naja, ein Fehler ist schon mal, dass du beim Dimensionieren der Variablen Zeile() den Index mit der Zeilennummer verwechselt
Gurß Daniel

Anzeige
AW: Excel Schleife über eingeblendete Zellen
04.09.2015 21:54:16
mischiz
Hey Daniel,
Danke für deine Antwort. Es tut mir leid, dass ich das Problem nicht beschrieben habe. Bei mir kommt immer die Fehlermeldung "Indexfehler ausserhalb des gültigen Bereichs*. Der Debugger zeigt mir jedoch keine Zeile an. Leider habe ich das Richtige File erst wieder am Montag. Könntest du mir näher erklären, was ich genau verwechselt habe. Sorry sind sehr wahrscheinlich dumme Fragen, aber bin zurzeit noch blutiger Anfänger im VBA.
Danke vielmal!

Anzeige
AW: Excel Schleife über eingeblendete Zellen
05.09.2015 15:34:21
Daniel
HI
hier z.B. ReDim Zeile(3 To .Cells.Count)
das muss immer lauten ReDim Zeile(1 To .Cells.Count)
und im folgenden Teil (bei der Überprüfung) hast du dann vergessen zu bestimmen, welche Zeilen du überhaupt mit eineander vergleichen willst (das i)
bedenke, ich kenne deine Datei und deine Aufgabenstellung nicht.
daher kann ich dir auch keinen fertigen Code erstellen, den du hirnlos kopieren und dann sofort verwendemn kannst.
Gruss Daniel

Anzeige
AW: Excel Schleife über eingeblendete Zellen
05.09.2015 17:46:43
mischiz
Vielen lieben Dank Daniel! Jetzt nach dem ich die 1 eingefügt habe, funktioniert es nach meinen Wünschen. Schönes Wochenende wünsche ich dir! :)

AW: Excel Schleife über eingeblendete Zellen
07.09.2015 18:48:06
mischiz
Hey,
ich bins nochmal, hab hier noch meinen aktuellen Code, doch es funktioniert nicht wie gewünscht. Wenn ich den Code durchführe kommt keine Fehlermeldung, aber es tut sich auch nichts.
Mein Ziel ist es, dass ich zuerst nach gewissen Kriterien 0er ausblende. Falls jedoch rechts von der Null eine Zahl ist und oberhalb auch, dann sollen die Zellen ausgetauscht werden. Das ganze klappt bei mir, solange keine ausgeblendeten Werte dazwischen sind. Würde gerne meine Datei hochladen, aber leider klappt das nicht. Danke für jede Hilfe. 

Private Sub CommandButton2_Click()
Dim n As Integer
For n = 8 To 200
If Cells(n, 3).Value = "0" And Cells(n, 5).Value = "" Then
Rows(n).EntireRow.Hidden = True
End If
If Cells(n, 3).Value = "0" And Cells(n, 5).Value = "0" Then
Rows(n).EntireRow.Hidden = True
End If
If Cells(n, 3).Value = "" And Cells(n, 5).Value = "0" Then
Rows(n).EntireRow.Hidden = True
End If
Next
'--- Zeilennummern der sichtbaren Zeilen ermitteln
With ActiveSheet.UsedRange.Columns(3).SpecialCells(xlCellTypeVisible)
ReDim Zeile(1 To .Cells.Count)
For Each rng In .Cells
i = i + 1
Zeile(i) = rng.Row
Next
End With
'--- prüfen, ob der Wert der zweiten sichtbaren Zelle in Spalte A gleich dem  _
darunterliegenden _
_
Wert ist
If Cells(Zeile(i - 1), 3).Value > "0" And Cells(Zeile(i), 3).Value = "0" And Cells(Zeile(i),  _
5).Value > "0" Then
Temp = Cells(Zeile(i), 3)
Cells(Zeile(i), 3) = Cells(Zeile(i - 1), 3)
Cells(Zeile(i - 1), 3) = Temp
Temp2 = Cells(Zeile(i), 1)
Cells(Zeile(i), 1) = Cells(Zeile(i - 1), 1)
Cells(Zeile(i - 1), 1) = Temp2
End If
For n = 8 To 200
If Cells(n, 3).Value = "0" And Cells(n, 5).Value = "" Then
Rows(n).EntireRow.Hidden = True
End If
Next
End Sub

Anzeige
AW: Excel Schleife über eingeblendete Zellen
07.09.2015 18:59:04
Daniel
Hi
hast du auch die Hinweise auf der Downloadseite beachtet:
- Datei darf nicht länger als 300kb sein
- xlsb ist nicht zulässig (dh xlsm nehmen)
- Verzeichnis und Dateiname dürfen kein Leerzeichen enthalten
Gruß Daniel

AW: Excel Schleife über eingeblendete Zellen
07.09.2015 19:26:01
mischiz
Hey Daniel,
Doch die habe ich eigentlich beachtet, aber lag wohl an meinem Macbook. Jetzt am Windows-Desktop klappts. Hier die Datei: https://www.herber.de/bbs/user/100070.xlsm
Dann wird mein Unterfangen etwas verständlicher :)
Danke für deine grosse Hilfe!!
Anzeige

Forumthreads zu verwandten Themen

Workbooks-Abfragen auf eingeblendete beschränken
Peter

Guten Abend
Mit folgender Funktion ermittle ich den Namen der Datei, der nicht dem aktiven Workbook entspricht, sofern nur zwei Dateien offen sind.
Nun habe ich in der Regel noch die PERSONL oder allenfalls andere Dateien offen. Nun möchte ich den Code so ergänzen, dass die ausgeblende...
08.12.2008 22:52:49
Thread-ID: 1031211
3 Beiträge
Eingeblendete Spalten nach Eintrag anpassen
Dietmar

Hallo zusammen,
Habe nachfolgenden Code in der Grundform hier bei Herber gefunden. Er entspricht allerdings noch nicht ganz meinen Vorstellungen.
Ich möchte erreichen, dass bei jeder Änderung in einer Zelle die Spalte selbst und alle anderen Spalten angepasst werden - aber nur wenn sie...
01.04.2009 19:01:03
Thread-ID: 1066089
3 Beiträge
Userform immer eingeblendet lassen
grexx123

Guten Morgen / Mahlzeit!
Ich brauche bitte eure Hilfe - ich habe ein Excel-Sheet, bei dem ich Buttons mit VBA-Code hinterlegt habe.
einer dieser Buttons blendet gewisse Spalten aus
Nun möchte ich eine Userform erstellen, bei der ich die Buttons immer oben habe, auch wenn ich
nac...
26.06.2009 11:07:54
Thread-ID: 1084525
5 Beiträge
Liste aller eingeblendeten Werte
grexx123

Hallo!
Ich habe folgende Problemstellung:
*Tabelle1*:
Hier wähle ich Zeilen nach einem bestimmten Kriterium per Autofilter aus
*Tabelle2*:
Hier möchte ich NUR DIESE WERTE (also alle nicht ausgeblendeten) extra anzeigen und dazu Werte aus Tabelle 1 dazu (per SVERWEIS)
Wei...
22.12.2009 14:53:49
Thread-ID: 1125596
6 Beiträge
Anzeige
Automatisch eingeblendeter Text in Leerzelle
RoB

Heyho Leute!
Ich habe gestern schon die Frage gestellt und die Antwort vom netten Steffan heute verarbeitet. Es ging darum, dass ich ein Tool konzipiere, wo zukünftige User Daten in 6 Zellen eingeben sollen. Alles andere ist geschützt. Damit die blinden Benutzer aber sehen, WO sie was einti...
25.06.2010 12:43:38
Thread-ID: 1164038
7 Beiträge
If "erste Zeile darüber eingeblendet" Then
Karsten

Hallo,
läßt sich so etwas verVBAschen und wenn ja, wie?
If "erste Zeile darüber eingeblendet" Then
Application.run "Makro1"
Else
Application.run "Makro2"
End If
Besten Dank für eure Hilfe.
Gruß
Karsten
18.11.2010 09:59:08
Thread-ID: 1187489
3 Beiträge
wenn eingeblendet- Makro1, wenn nicht - Makro2
Karsten

Hallo,
Luc hat mir netterweise mit einem Code weitergeholfen.
Allerdings komme ich doch noch nicht ganz weiter. Ich habe ihn versucht anzupassen, aber so geht es nicht. Was mache ich falsch?
Danke für eure Hilfe.
Gruß
Karsten
Dim zeile As Range
For Each zeile in Acti...
20.11.2010 21:45:38
Thread-ID: 1188001
3 Beiträge
Ribbon wird nicht eingeblendet!?
Brigitte

Hey zusammen,
hab leider ein kleines Problem mit meinem benutzerdefinierten Ribbon: es wird nicht eingeblendet...
Hier der xml-Code
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="RibbonInitialisieren">
<ribbon>
<tabs>
<...
07.02.2011 16:29:37
Thread-ID: 1199517
12 Beiträge
Über UF sollen Spalten aus-/eingeblendet werdenn
edie

Hallo,
nach langem Herumsuchen habe ich folgenden Code gefunden, nun mehr als Ansatz.
Bitte helft mir bei der Aufgabe, ich krieg das nicht hin, das Beispiel so anpassen, dass die selektierte Spalte aus der ListBox je nach Zustand aus oder ungekehrt eingeblendet wird.
Hier der Code,...
04.04.2011 17:56:42
Thread-ID: 1208964
4 Beiträge
Summmewenn mehrere eingeblendete Tabellenblätter
Kai

Hallo zusammen,
ich habe folgende Formel die Funktioniert wie sie soll. Meine Frage ist, ob es möglich ist, sie so zu verändern, das sie nur mit eingeblendeten Tabellenblättern rechnet? =SUMMEWENN(Jan.!F:F;F15;Jan.!H:H)+SUMMEWENN(Feb.!F:F;F15;Feb.!H:H)+SUMMEWENN(März!F:F;F15;März! _ H:H) +S...
13.08.2011 00:02:57
Thread-ID: 1225722
3 Beiträge
Anzeige
erste eingeblendetete Zelle Adresse
Gegga

Hallo da draussen
habe eine Tabelle die ab Zeile 5 fixiert ist ist.
jetzt blende ich per VBA nur bestimmte Zeilen ein z.B. Zeile 11 bis 16 oder Zeile 31 bis 36 etc. ein.
In diese Zellen muss ich immer in den gleichen Spalten die selben eintragungen machen. Dies würde ich auch gerne...
28.09.2011 13:47:28
Thread-ID: 1231841
2 Beiträge
Anzeige
Textfeld wird nicht eingeblendet
Michael

Guten Abend,
am Anfang eines Makros habe ich mit dem Befehl:
Tabelle9.Shapes("Textfeld 1").Visible = True
ein Textfeld mit Wartehinweisen einblenden.
Wenn ich das Makro mit F8 zeilenweise abarbeite, wird es eingeblendet und am Ende wieder ausgeblendet.
Wenn ich dagegen das M...
05.10.2011 20:28:46
Thread-ID: 1232661
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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