Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Zeilen farblich markieren

Mitglied: Zorbas81

Zorbas81 (Level 1) - Jetzt verbinden

24.09.2008, aktualisiert 17:40 Uhr, 6040 Aufrufe, 3 Kommentare

Hallo liebe Excel/VBA Profis,

ich habe ein kleines Problem.

Ich habe eine Tabelle, die nicht nummeriert ist, sondern lauter 1en hat, und ab und zu eine 0.
Bsp:
0 gelb
1 gelb
1 gelb
1 gelb
0 blau
1 blau
1 blau
0 gelb
1 gelb
1 gelb

Folgendes möchte ich gerne mit einem Makro machen:
Beginnend bei der null, sollen die Zeilen bis zur nächsten null gelb markiert werden. Ab der nächsten null blau. und ab der nächsten null wieder gelb. usw.
Also zwei Farben abwechselnd beginnend bei den Nullern.

Könnt Ihr mir hierbei helfen?

Vielen Dank im Voraus.

Grüße

Alex
Mitglied: bastla
24.09.2008 um 16:00 Uhr
Hallo Zorbas81!

Für Werte ab A2 etwa so:
01.
Sub Einfaerben() 
02.
 
03.
Spalte = "A" 
04.
Zeile = 2 
05.
Farbe = 0 
06.
 
07.
Do While Cells(Zeile, Spalte).Value <> "" And Zeile <= 65536 
08.
    If Cells(Zeile, Spalte).Value = 0 Then If Farbe <> 6 Then Farbe = 6 Else Farbe = 5 
09.
    If Farbe > 0 Then Cells(Zeile, Spalte).Interior.ColorIndex = Farbe 
10.
    Zeile = Zeile + 1 
11.
Loop 
12.
 
13.
End Sub
Falls vor der ersten 0 noch andere Werte kommen, werden die entsprechenden Zellen nicht eingefärbt - um das zu ändern, einfach den Startwert der Farbe auf zB 6 setzen und den Teil "If Farbe > 0 Then" entfernen (und nur den Rest der Zeile 9 belassen).

Grüße
bastla
Bitte warten ..
Mitglied: Zorbas81
24.09.2008 um 16:37 Uhr
Sei gegrüßt lieber Bastla !!

Vorab: Es freut mich tierisch, dass du mir schon mehrmals geholfen hast, echt Klasse, solchen Leuten wie dir gebührt mein Respekt, die sich die Mühe machen anderen zu helfen, und das einfach nur so!! Vielen vielen Dank!

Und jetzt zu deiner Lösung:

WOOOW, Klasse es funktioniert EINWANDFREI!!! Habe es einbisschen umgeschrieben, siehst ja nachfolgend.
Aber mein Abend ist somit gerettet Bastla.

Ich verneige mich vor dir, wegen deiner Hilfsbereitschaft und weil du mir schon so oft geholfen hast!!!

Wünsch dir noch einen schönen Abend.

Grüße
Alex


Dim z As Integer
'z soll die zeilennummner sein
z = 3

Do While Cells(z, 1).Value <> "" And Zeile <= 65536
If Cells(z, 1).Value = 0 Then If Farbe <> 6 Then Farbe = 6 Else Farbe = 8
If Farbe > 0 Then Rows(z).Interior.ColorIndex = Farbe
z = z + 1
Loop
Bitte warten ..
Mitglied: bastla
24.09.2008 um 17:40 Uhr
Hallo Alex!

Freut mich, wenn's für Dich passt ...

Hier (in diesem Forum) helfen zu können, macht (meistens ) Spaß, und ist auch eine Art, "danke" zu sagen für Vieles, was ich selbst schon bekommen habe ...

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Microsoft Office

EXCEL ganze Zeile farblich markieren, wenn Bedingung erfüllt

gelöst Frage von dumbledorexxlMicrosoft Office2 Kommentare

Hallo und guten morgen, habe folgendes Problem und bekomme es nicht gelöst. in dieser Tabelle soll die ganze Zeile ...

Batch & Shell

Farblich Markieren nach Datum per Powershell

gelöst Frage von Crank69Batch & Shell2 Kommentare

Hallo Leute, vielleicht kann mir jemand helfen. Ich würde sehr gerne das aktuelle Datum in Grün. Was 1 - ...

Microsoft Office

Werte aus verschiedenen Tabellenblättern vergleichen, farblich markieren

Frage von frosch44Microsoft Office1 Kommentar

Hallo, ich habe 2 verschiedene Tabellenblätter. Wenn ein (einmaliger) Wert in Blatt1 in Blatt2 mind. einmal oder mehrfach vorkommt, ...

Microsoft Office

Excel - Mit bedingter Formatierung Zahlen in jeder Zelle vergleichen und farblich markieren

gelöst Frage von Bange123Microsoft Office10 Kommentare

Hallo zusammen, ich habe eine Tabelle in der 6 Preise nebeneinander stehen. In der letzten Zeile steht mein Zielpreis ...

Neue Wissensbeiträge
Windows 10

Neue Sicherheitslücke in Windows 10 (Version 1709) durch Google öffentlich geworden

Information von kgborn vor 2 StundenWindows 10

Vor ein paar Tagen haben Googles Sicherheitsforscher vom Projekt Zero eine Sicherheitslücke im Edge-Browser publiziert. Jetzt wurde eine weitere ...

iOS
IOS 11.2.6 verfügbar
Information von sabines vor 8 StundeniOS

Mit dem Update soll der Bug behoben werden, bei dem eine bestimmte Zeichenkette IOS zum Absturz gebracht hat.

Sicherheit
Sicherheitsrisiko: Die Krux mit 7-Zip
Information von kgborn vor 22 StundenSicherheit8 Kommentare

Bei vielen Anwendern ist das Tool 7-Zip zum Entpacken von Archivdateien im Einsatz. Die Software ist kostenlos und steht ...

Internet

Datendealing im WWW Tracking Methoden immer brutaler

Information von sabines vor 1 TagInternet

Interessanter Artikel zum Thema Tracking im WWW und die immer "besseren" Methoden des Trackings. Professor Arvind Narayanan (Princeton-Universität) betreibt ...

Heiß diskutierte Inhalte
Server
Route-Befehl Unterstützung (unter CMD)
gelöst Frage von FKRR56Server38 Kommentare

Guten Tag , i.M. habe ich Probleme über den CMD-Route-Befehl ein Routing auf einen entfernten Server zuzulassen. Der Server ...

Router & Routing
LANCOM VPN CLIENT einrichten
Frage von Finchen961988Router & Routing27 Kommentare

Hallo, ich habe ein Problem und hoffe ihr könnt mir helfen, wir haben einen Kunden der hat einen Speedport ...

LAN, WAN, Wireless
VPN Cisco ASA5505 PaloAlto PA-200
gelöst Frage von YannoschLAN, WAN, Wireless21 Kommentare

Hallo zusammen, ich würde gerne ein Site-to-Site VPN zwischen den beiden Standorten aufbauen. PaloAlto PA200 Internetanschluss Deutsche Telekom GK ...

Microsoft
TV-Tipp: Das Microsoft-Dilemma
Information von kgbornMicrosoft17 Kommentare

Aktuell gibt es in Behörden und in Firmen eine fatale Abhängigkeit von Microsoft und dessen Produkten. Planlos agieren die ...