Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
468to472
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
468to472
468to472
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten vergleich,einfärben und ausblenden

Spalten vergleich,einfärben und ausblenden
13.08.2004 18:10:45
Christian
Hallo an alle Cracks!
Ich habe folgendes Problem bei beiliegender Tabelle.
https://www.herber.de/bbs/user/9608.xls
Will ein Makro schreiben, dass mir die Preise des Kunden A und B miteinander vergleicht. Dann will ich, dass die Preise eingefärbt werden und zwar nur bei solchen Kunden, die entweder 0 oder garnichts drin stehen haben.
Die Farben sollen jeweils gleich sein. Dann möchte ich einen Farbvergleich.
Wenn beide Kunde gleiche Farben aufweisen, z.B. Artikel I, dann soll eine Messagebox aufgehen und mir anbieten die jeweilige Zeile auszublenden oder "es sein zu lassen"
Ich beiss mir darin die Zähne aus
komme einfach nicht mehr
Danke schon im Voraus
Gruss
Christian

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten vergleich,einfärben und ausblenden
13.08.2004 18:58:34
Bertram
Hi Christian,
hier mal ein Vorschlag.


Sub Farbvergleich()
Dim i As Integer
Dim zelle As Range
Dim Ausblenden As Integer
For Each zelle In Selection 'markiere vor Start alle Preise
    If zelle.Value = "" Then zelle.Interior.ColorIndex = 4
    If zelle.Value = "" Then zelle.Interior.ColorIndex = 5
Next zelle
For i = 1 To Sheets(8).UsedRange.Rows.Count
    If Cells(i, 2).Interior.ColorIndex <> xlColorIndexNone And _
        Cells(i, 3).Interior.ColorIndex <> xlColorIndexNone And _
        Cells(i, 2).Interior.ColorIndex = Cells(i, 3).Interior.ColorIndex Then
            Ausblenden = MsgBox("Zeile " & i & " ausblenden?", vbYesNo)
            If Ausblenden = vbYes Then Sheets(8).Rows(i).EntireRow.Hidden = True
    End If
Next i
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß
Bertram
Anzeige
AW: Spalten vergleich,einfärben und ausblenden
13.08.2004 19:20:24
Nachtrag
Hi Christian,
falls "nichts" und "0,0" die gleiche Farbe haben sollen (was ich aus deiner Frage nicht so ganz verstanden habe), dann sieht das ganze so aus:


Sub Farbvergleich()
Dim i As Integer
Dim zelle As Range
Dim Ausblenden As Integer
For Each zelle In Selection 'markiere vor Start alle Preise
    If zelle.Value = "" Or zelle.Value = "0" Then zelle.Interior.ColorIndex = 4
    'If zelle.Value = "" Then zelle.Interior.ColorIndex = 5
Next zelle
For i = 1 To Sheets(8).UsedRange.Rows.Count
    If Cells(i, 2).Interior.ColorIndex <> xlColorIndexNone And _
        Cells(i, 3).Interior.ColorIndex <> xlColorIndexNone Then 'And _
        Cells(i, 2).Interior.ColorIndex = Cells(i, 3).Interior.ColorIndex Then
            Ausblenden = MsgBox("Zeile " & i & " ausblenden?", vbYesNo)
            If Ausblenden = vbYes Then Sheets(8).Rows(i).EntireRow.Hidden = True
    End If
Next i
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß
Bertram
Anzeige
AW: Spalten vergleich,einfärben und ausblenden
14.08.2004 18:50:37
Christian
Danke Bertram
Vielleicht habe ich mich etwas undeutlich ausgedrückt
Ich will nichts händig markieren, eine Schleife soll Spalte B und C durch durchlaufen und markieren. Es sollen folgende Werte miteinander verglichen werden. Bsp. Artikel B
des Kunden A und B, also nur Artikelweise!
dann sollen diejenigen Preise eingefärbt werden, die nichts oder null enthalten, aber mit 2 unterschiedlichen Farben. Im Anschluss daran sollen alle die Zeilen markiert werden, die nichts enhalten, null also nicht!
Zuletzt soll eine Messagebox aufgehen und alle Markierten entfernen. Es muss nicht für jede Zeile eine einzelne maessagebox aufgehen
Danke schon im voraus
GRuss
christian
Anzeige
AW: Spalten vergleich,einfärben und ausblenden
14.08.2004 19:25:51
Bertram
Hi Patrick,
im Grunde doch gar nicht so verkehrt.
Neuer Versuch:


Sub Farbvergleich()
Dim i As Integer
Dim Ausblenden As Integer
Application.ScreenUpdating = False
For i = 3 To Sheets(9).UsedRange.Rows.Count 'Preise fangen in Zeile 3 an
    If Cells(i, 2).Value = "" Then Cells(i, 2).Interior.ColorIndex = 5
    If Cells(i, 3).Value = "" Then Cells(i, 3).Interior.ColorIndex = 5
    If Cells(i, 2).Value = "0" Then Cells(i, 2).Interior.ColorIndex = 4
    If Cells(i, 3).Value = "0" Then Cells(i, 3).Interior.ColorIndex = 4
    If Cells(i, 2).Interior.ColorIndex = 5 And Cells(i, 3).Interior.ColorIndex = 5 Then _
        Sheets(9).Rows(i).EntireRow.Hidden = True
Next i
    Ausblenden = MsgBox("Zeilen ausblenden?", vbYesNo)
    If Ausblenden = vbNo Then Cells.EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß
Bertram
Anzeige
Sorry, meinte natürlich "Hi Christian" oT
14.08.2004 19:27:32
Bertram
AW: Spalten vergleich,einfärben und ausblenden
14.08.2004 21:29:02
Christian
Vielen Dank
Hat funktioniert
Schönen Abend noch!

311 Forumthreads zu ähnlichen Themen

Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 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
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 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
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
Zeilen Ein. und Ausblenden
KayR

Hallo,
würde gerne folgendes realisieren, hab aber von VBA
kaum Ahnung.
Wenn Tabelle2!A8 = FALSCH, dann sollen in Tabelle1 die
Zeilen 8,9,10 ausgeblendet werden.
Wenn Tabelle2!A8 = WAHR, dann sollen die Zeilen 8,9,10
wieder eingeblendet werden.
Kann mir jemand bitte...
27.01.2009 20:09:00
Thread-ID: 1044366
6 Beiträge
Ein-/Ausblenden v. Arbeitsblättern mit VBA
Lenni

Moin Excellianer!
Mit folgendem Code "Sheets("Tabelle1").Visible = False" in einem UserForm blende ich die Tabelle 1 und 2 aus. Mit "True" für "False" blende ich sie wieder ein.
Das Ganze hat nur den Nachteil, dass man die Tabelle 1 und/oder 2 über das Menü "Format > Blatt > Einbl...
01.02.2009 00:12:00
Thread-ID: 1045802
4 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
5
2
4
3
5
1
1
4
5
3
3
4
2
2
5
6
6
7
5
2
3
21
5
7
8