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
1784to1788
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
1784to1788
1784to1788
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Gleiche Werte untereinander

VBA: Gleiche Werte untereinander
09.10.2020 12:03:54
Jan
Hallo zusammen,
wie kann ich in VBA die gleichen und direkt untereinanderstehenden Werte in Spalte A (siehe angehängte Datei) zählen und farblich markieren?
Ich möchte lediglich nur gleiche Werte farblich markieren, wenn mehr als 3 untereinander stehen.
Danke für Hilfe vorab.
https://www.herber.de/bbs/user/140759.xlsx

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Gleiche Werte untereinander
09.10.2020 13:19:47
JoWE
Hallo Jan,
versuch mal: 
Sub faerben_mit_Bedingung()
For Each w In Range("A2:A99")
If Cells(w.Row, 1) > 0 And _
Application.WorksheetFunction.Sum(Range(Cells(w.Row, 1), _
Cells(w.Row + 2, 1))) = w.Value * 3 Then
With Sheets(1).Range(Cells(w.Row, 1), Cells(w.Row + 2, 1))
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=A" & _
w.Row & "= " & w.Value
.FormatConditions(1).Interior.ColorIndex = 6
End With
End If
Next
End Sub

Gruß
Jochen
Anzeige

294 Forumthreads zu ähnlichen Themen

Mit VBA ein anderes Makro ändern
Markus

Hallo zusammen,
besteht die Möglichkeit, dass man mittels Makros ein anderes Makro bzw. den Code für Worksheet_Activate ändern kann?
Problem 1
Sub Worksheet_Activate() 'ScrollArea = "C3: Bf32" ScrollArea = "" End Sub
Es soll danach wie folgt aussehen (Änderung in Zeile 1 und...
12.10.2008 14:24:49
Thread-ID: 1015855
7 Beiträge
Anzeige
VBA Script in andere Tabellen
Jörg

Hallo,
mich würde mal interessieren, ob es möglich ist, das Script einer Tabelle öffentlich für andere Tabellen zu machen. Derzeit ist es so, wenn ich das Makro in anderen Tabellen anwende, öffnet sich erst die Tabelle in der das Makro drin steht. Kann man das umgehen?
Für Eure Hilfe vi...
14.01.2009 11:42:23
Thread-ID: 1039546
16 Beiträge
VBA Projekt in andere Arbeitsmappe einbauen
abu

Hallo Zusammen,
Fileupload: https://www.herber.de/bbs/user/59303.xls
In dieser Arbeitsmappe ist ein VBA-Projekt das ansich gut funktioniert. Nun moechte ich dieses Projekt in eine andere Arbeitsmappe integrieren und statt fuer jede Zeile einen Button (habe in der hochgeladenen Mappe al...
10.02.2009 13:34:05
Thread-ID: 1049049
5 Beiträge
Anzeige
VBA: Sub in anderem Workbook aufrufen
Peter/Berlin

Hi VBA-Könner/Kenner,
vielleicht bekomme ich bei Euch die nötige Anregung zu folg. Problem:
Im Arbeitsspeicher geöffnet sind die Workbooks "A" und "B".
Von "A" aus soll eine Sub xyz in "B" aufgerufen werden (Call xyz).
Es erscheint der Fehler: Sub nicht definiert oder ähnlich...
02.04.2009 13:20:17
Thread-ID: 1066313
2 Beiträge
Letzte Stelle einer Zahl mittels VBA in 0 umwand.
Josef

Guten Morgen!
Ich habe in der Spalte A in einem Arbeitsblatt eine Menge siebenstelliger Zahlen, am Schluß mit einer Prüfziffer versehen, stehen. Ich möchte nun, wenn möglich, mittels VBA immer die letzte Zahl in eine 0 umwandeln.
Wie würde hier bitte eine VBA Lösung lauten?
Danke
10.04.2009 06:26:04
Thread-ID: 1068138
12 Beiträge
Fehlerbehandlung in vba funktioniert nicht
Henning

Hallo vba-Profis,
bei mir funktioniert die vba-Fehlerbehandlung nicht wie sie soll.
Ich rufe Hyperlinks auf: Zunächst die Online-Version. Falls der Rechner nicht online ist oder keine Verbindung hergestellt werden kann, soll per Fehlerbehandlung im zweiten Schritt die lokale offline-Ver...
29.04.2009 11:56:50
Thread-ID: 1071851
3 Beiträge
Mit VBA Datenbezug einer Grafik ändern
Uli

Hi,
ich würde gerne eine Grafik mit n Linien in der Form ändern, dass der Tabellenbezug hinsichtlich der Spalten gleich bleibt, jedoch der Bereich der Zeilen sich ändert (z.B. Daten der Zeilen 200bis 300 statt 1 bis 100). Wie kann ich das ändern, ohne dabei die Spalten zu verändern. Wenn ic...
16.07.2009 14:38:27
Thread-ID: 1089069
13 Beiträge
VBA-Befehl: Zeichen in Schriftart nicht vorhanden
Alex

Schönen guten Tag zusammen,
leider ist der Betreff nicht sehr aussagekräftig, da ich für die Frage etwas weiter ausholen muss. Man möge mir verzeihen.
Lage: Ich will mir für eine Schriftart Code Charts analog denen auf unicode.org erstellen (Beispiel: http://www.unicode.org/charts/PDF/U...
30.09.2009 00:02:51
Thread-ID: 1106220
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
6
3
15
4
4
1
11
2
12
4
5
20
8
5
6
7
6
1
4
4
4
6
2
6
4