Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon angyal-jule vom 27.05.2022, 10:03 Options
Vergleichen von zwei zellen
Hallo ihr lieben,
ich habe ein kleines Problem. Ich moechte gerne in einem Datensatz jeweils die Zeilen ausblenden in denen in Spalte F und H nichts oder eine Null steht. Ich bin ein totaler Anfaenger und bin bisher soweit gekommen; vermute aber, dass es sehr umstaendlich ist, ausserdem funktioniert es nicht richtig. Waere toll zenn ir jemand helfen koennte
Sub CentralAvis()
Dim Markierung As Range, Mark As Range, Wert As String, Zert As String, zelle, zellen
Cells.EntireRow.Hidden = False
Sheets("Centrale Avis").Select
ActiveSheet.Outline.ShowLevels RowLevels:=2
Set Markierung = Sheets("Centrale Avis").Range("F5:F6105")
Set Mark = Sheets("Centrale Avis").Range("H5:H6105")
For Each zelle In Markierung
For Each zellen In Mark
Wert = zelle.Value
Zert = zellen.Value
If Wert = Zert = "" Or Wert = "0" = Zert Then Rows(zelle.Row).Hidden = True
Next zellen
Next zelle
End Sub
Vielen Dank und liebe Gruesse Julia
ich habe ein kleines Problem. Ich moechte gerne in einem Datensatz jeweils die Zeilen ausblenden in denen in Spalte F und H nichts oder eine Null steht. Ich bin ein totaler Anfaenger und bin bisher soweit gekommen; vermute aber, dass es sehr umstaendlich ist, ausserdem funktioniert es nicht richtig. Waere toll zenn ir jemand helfen koennte
Sub CentralAvis()
Dim Markierung As Range, Mark As Range, Wert As String, Zert As String, zelle, zellen
Cells.EntireRow.Hidden = False
Sheets("Centrale Avis").Select
ActiveSheet.Outline.ShowLevels RowLevels:=2
Set Markierung = Sheets("Centrale Avis").Range("F5:F6105")
Set Mark = Sheets("Centrale Avis").Range("H5:H6105")
For Each zelle In Markierung
For Each zellen In Mark
Wert = zelle.Value
Zert = zellen.Value
If Wert = Zert = "" Or Wert = "0" = Zert Then Rows(zelle.Row).Hidden = True
Next zellen
Next zelle
End Sub
Vielen Dank und liebe Gruesse Julia
Antwort 21 von Saarbauer vom 30.05.2022, 12:36 Options
Hallo,
eine kleine Ergänzung, dadurch ist es egal wo "Titre" und "Avis" steht, das Programm such sich selbst die Spalte
Sub CentralAvis()
Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False
Sheets("Centrale Avis").Select
For i = 1 To Range("IV5").End(xlToLeft).Column
If Cells(5, i).Value = "Titre" Then Spalte_T = i
If Cells(5, i).Value = "Avis" Then Spalte_A = i
Next i
For i = 6 To Range("A65536").End(xlUp).Row
If (Cells(i, Spalte_T).Value = "" Or Cells(i, Spalte_T).Value = "0") And (Cells(i, Spalte_A).Value = "" Or Cells(i, Spalte_A).Value = "0") Then Rows(i).Hidden = True
Next i
Application.ScreenUpdating = True
End Sub
Gruß
Helmut
eine kleine Ergänzung, dadurch ist es egal wo "Titre" und "Avis" steht, das Programm such sich selbst die Spalte
Sub CentralAvis()
Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False
Sheets("Centrale Avis").Select
For i = 1 To Range("IV5").End(xlToLeft).Column
If Cells(5, i).Value = "Titre" Then Spalte_T = i
If Cells(5, i).Value = "Avis" Then Spalte_A = i
Next i
For i = 6 To Range("A65536").End(xlUp).Row
If (Cells(i, Spalte_T).Value = "" Or Cells(i, Spalte_T).Value = "0") And (Cells(i, Spalte_A).Value = "" Or Cells(i, Spalte_A).Value = "0") Then Rows(i).Hidden = True
Next i
Application.ScreenUpdating = True
End Sub
Gruß
Helmut
Antwort 22 von angyal-jule vom 31.05.2022, 09:03 Options
Ich habe im uebrigen auch bei M.O. den Fehler gefunden, manchmal sieht man den Wald ja vor lauter Baeumen nicht mehr: Es waren durchweg "or" verknuepfungen, dabei braucht man ja eine "and" veerknuepfung um es von beiden Zeilen ausgehen zu lassen.
Ähnliche Themen
Tabellen vergleichen
opera2 14.01.2009 - 212 Hits - 6 Antworten
Zwei Excel Dateien vergleichen
Michibeck 09.04.2009 - 938 Hits - 3 Antworten
Vergleich mehrerer Zellen, Ausgabe mehrer Zellen als Ergebnis
Cypp80 13.08.2009 - 314 Hits - 1 Antwort
Zellen verbinden, Zellen trennen Schaltflächen sind grau??
Witti 02.11.2009 - 193 Hits - 4 Antworten
Anzahl nicht leerer Zellen ermitteln, wenn Zellen Formeln enthalten, die " " ergeben.
jojo7 30.11.2009 - 247 Hits - 4 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
