Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1060to1064
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
1060to1064
1060to1064
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen färben und ausblenden

Zeilen färben und ausblenden
24.03.2009 08:56:01
Ralf
Hallo Ex(cel)perten,
ich habe eine Tabelle von A 5 bis Z 200 und möchte erreichen,
daß mir Excel immer diejenige Zeile rot färbt und in einem zweiten Schritt ausblendet, die in Spalte A ein x
hat. Dann möchte ich die Tabelle drucken und anschließend die rot gefärbten wieder einblenden :-)
Hat hierzu vielleicht jemand eine Idee ?
Bin für jeden Tipp dankbar :-)
Viele Grüße
Ralf

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen färben und ausblenden
24.03.2009 09:12:08
dirk
Hallo!
Mal so ungetested:

Sub Faerben_Ausblenden()
on error resume next
for each cell in range("A5:Z200:)
if lcase(cell.value) = "x" then  'da behandelt er alle X gross oder klein geschrieben
cell.interior.color = rgb(255,0,0)
cell.row.hidden = true
end if
next
End Sub




Sub Zellen_einblenden
on error resume next
for each cell in Range("A5:Z200")
if cell.interior.color= rgb(255,0,0) then
cell.row.hidden = false
end if
next
End Sub


Beide Macros in das Tabellenblatt kopieren und mittels tools/Makro starten oder Makroknopf zuordnen.
Gruss
Dirk aus Dubai

Anzeige
Danke Dirk aus Dubai :-)
24.03.2009 10:07:10
Ralf
Hallo Dirk aus Dubai,
vielen Dank für Deine schnelle Antwort.
Excel markiert mir auch in der Spalte A alle X´e !
Mit dem Ausblenden, das klappt noch nicht so, aber ich
denke, daß ich mich da "durchwurschteln" kann und
es hinkriege :-)
Nochmal vielen Dank
und viele Grüße aus dem Teutoburger Wald
Ralf
AW: Danke Dirk aus Dubai :-)
24.03.2009 12:03:48
dirk
Hallo!
Probier mal so:

Sub Faerben_Ausblenden()
'On Error Resume Next
For Each cell In Range("A5:Z200")
If LCase(cell.Value) = "x" Then  'da behandelt er alle X gross oder klein geschrieben
cell.Interior.Color = RGB(255, 0, 0)
Rows(cell.Row).Hidden = True
End If
Next
End Sub




Sub Zellen_einblenden()
On Error Resume Next
For Each cell In Range("A5:Z200")
If cell.Interior.Color = RGB(255, 0, 0) Then
Rows(cell.Row).Hidden = False
End If
Next
End Sub


Gruss
Dirk aus Dubai

Anzeige
AW: Zeilen färben und ausblenden
24.03.2009 09:21:49
Tino
Hallo,
versuche es mal hiermit, kommt in ein Modul.
Public rBereich As Range

Sub PrintAktuelleSeite()
Dim A As Long
    
    For A = 5 To 200
     If Cells(A, 1) = "x" Then
      If rBereich Is Nothing Then
       Set rBereich = Range(Cells(A, 1), Cells(A, 26))
      Else
       Set rBereich = Union(rBereich, Range(Cells(A, 1), Cells(A, 26)))
      End If
     End If
    Next A
    
    If Not rBereich Is Nothing Then
        rBereich.Interior.ColorIndex = 3
        rBereich.EntireRow.Hidden = True
        Application.OnTime Now + TimeSerial(0, 0, 2), "EreignisNachPrint"
        ActiveSheet.PrintOut 'Seite drucken 
    End If

End Sub

Sub EreignisNachPrint()
 rBereich.EntireRow.Hidden = False
 Set rBereich = Nothing
End Sub


Gruß Tino

Anzeige
Danke Tino !!!
24.03.2009 10:15:19
Ralf
Hallo Tino,
es klappt supergut, genau wie ich es mir vorgestellt habe :-)
Vielen Dank und viele Grüße aus dem Teutoburger Wald
Ralf
besser ist es...
24.03.2009 10:24:55
Tino
Hallo,
..., den Druckbefehl außerhalb der If zu schreiben, sonst wird bei nicht finden von x in Spalte A auch nichts gedruckt, aber gedruckt werden soll ja.
Public rBereich As Range

Sub PrintAktuelleSeite()
Dim A As Long
    
    For A = 5 To 200
     If Cells(A, 1) = "x" Then
      If rBereich Is Nothing Then
       Set rBereich = Range(Cells(A, 1), Cells(A, 26))
      Else
       Set rBereich = Union(rBereich, Range(Cells(A, 1), Cells(A, 26)))
      End If
     End If
    Next A
    
    If Not rBereich Is Nothing Then
        rBereich.Interior.ColorIndex = 3
        rBereich.EntireRow.Hidden = True
        Application.OnTime Now + TimeSerial(0, 0, 2), "EreignisNachPrint"
    End If
 
 ActiveSheet.PrintOut 'Seite drucken 
End Sub

Sub EreignisNachPrint()
 rBereich.EntireRow.Hidden = False
 Set rBereich = Nothing
End Sub


Gruß Tino

Anzeige
Guter Hinweis, Danke Tino !!!
24.03.2009 10:31:41
Ralf
Hallo Tino,
so ist es jetzt aber perfekt !
Viele :-) Grüße
Ralf

303 Forumthreads zu ähnlichen Themen

VBA Zeilen ein/ausblenden + weiters Problem
oblivion

hallo, ich hab mal wieder ein kleines und ein etwas größeres Problem
erstmal zum kleinen. wie bekomme ich es mit hilfe von einem vba hin, wenn ich ein kontrollkästchen mit einem Hacken versehe, dann bestimmte Zeilen (Sagen wir mal Zeile 20 bis 30), die ich vorher versteckt hatte, nun zum vo...
10.08.2008 00:22:06
Thread-ID: 1000558
3 Beiträge
Anzeige
Register ein- und ausblenden
HaKa

Hallo Forum
Wie lautete der VBA-Code um z.B. das Register "Tabelle3" aus-, resp. wieder einzublenden?
Gruss Heinz
14.09.2008 15:40:00
Thread-ID: 1009597
5 Beiträge
Spalten ein und ausblenden
Marion65

Hallo zusammen, ich habe hier eine ExcelTabelle welche zum Ein- und Ausblenden der Spalten kleine + bzw. - Zeichen hat. Wie kann ich diese selber erstellen? Vielen Dank, Marion. https://www.herber.de/bbs/user/55401.xls
15.09.2008 20:09:56
Thread-ID: 1009885
4 Beiträge
Anzeige
ausgeblendete Zeilen auf Blattkopie auch ausblende
Thomas

Hallo,
ich habe folgendes Problem:
Mittels VBA und der Funktion PastSpecial kopiere ich ein Tabellenblatt, welches ausgeblendete Zeilen enthält.
Zum Einfügen des zu kopierenden Inhaltes verwende ich die o.a. Funktion zwei mal:
Zielblatt.Range(Quellenblatt.UsedRange.Address).Past...
20.11.2008 09:18:00
Thread-ID: 1026312
3 Beiträge
VBA, Notiz ein- und wieder ausblenden
Burghard

Hallo ins Netz,
ich möchte mit Knopfdruck ein Textfeld (mit Inhalt, es existiert schon) oder ein Autoformat (z.B. Gefaltete Ecke) auf dem Blatt an einer bestimmten Stelle für 1 Minute plazieren und danach soll es wieder verschwinden. Also kopieren und dann automatisch die Kopie wieder lösc...
01.12.2008 09:08:18
Thread-ID: 1029158
2 Beiträge
Ausgeblendete Zeilen werden ausgedruckt
Josef

Hallo Profis,
Wenn in bestimmten Zellen eine 0 steht soll der definierte Bereich (Zeilen) ausgeblendet werden.
Das funktioniert aber nur im ersten Bereich, bei weiteren werden in der Seitenansicht nur leere Seiten angezeigt und dann auch ausgedruckt, was nicht gewünscht ist.
Zum bes...
09.12.2008 12:39:59
Thread-ID: 1031348
5 Beiträge
Zeilen und Spalten ausblenden
Andreas

Hi Leute,
Hab folgendes Problem:
Ich hab mehrere Tabellenblätter mit Tabellen, in denen in Abhängigkeit von Einträgen auf einer Übersichtsseite bestimmte Zeilen und Spalten mit einem Makro ausgeblendet werden sollen.
Hier Mein Beispiel-File:
https://www.herber.de/bbs/user/58482...
16.01.2009 15:21:22
Thread-ID: 1040598
8 Beiträge
Commandbutton ein und ausblenden
SoulOpa

Hallo und einen schönen Abend,
ich habe eine Frage! und zwar habe ich ein Commandbutton in der Userform erstellt so das der Commandbutton beim Tabellenblatt beim scrollen immer sichtbar ist. Nun würde ich gerne wenn ich die Mappe zwischendurch verlass das der Button verschwindet und wenn ic...
23.01.2009 17:50:27
Thread-ID: 1043094
5 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
2
4
4
3
5
2
1
4
7
4
5
3
8
4
2
3
5
5
1
6
7
8
2
3
21