Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1044to1048
1044to1048
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

nächste Zelle, Zellen vergleichen,

Forumthread: nächste Zelle, Zellen vergleichen,

nächste Zelle, Zellen vergleichen,
27.01.2009 14:36:00
ms_michael_2002@yahoo.de
Hallo!
Wie kann ich in die nächste Zelle gehen und dann automatisch die bedingte Formatierung durchführen? 1.) Wenn ich über die inputbox 3 eingebe, soll er von a1 nächste a2 dann a3 gehen ende, oder von einen bestimmten Punkt über die inputbox (mit der Maus zB auf a7 gehen) eingeben, zeigen- und danach die bedingte formatierung durchführen.
Das untere klappt nur für einen Wert und fängt immer mit A1 an.
Danke
Gruß Michael

Sub zellwert_makieren()
' zellwert_makieren Makro
Range("A1").Select
'    Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="=$D$1"
Selection.FormatConditions(1).Interior.ColorIndex = 4
End Sub


Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nächste Zelle, Zellen vergleichen,
27.01.2009 14:44:47
Chris
Servus,
meintest du so?

Sub zellwert_makieren()
nachricht = InputBox("Wert:")
For i = 1 To nachricht
Range("A" & i).FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="=$D$" & i
Range("A" & i).FormatConditions(1).Interior.ColorIndex = 4
Next
End Sub


Gruß
Chris

Anzeige
AW: nächste Zelle, Zellen vergleichen,
27.01.2009 15:34:14
ms_michael_2002@yahoo.de
Sorry! Geil!
Und wie bekomme ich das jetzt mit der inputbox und der Maus hin? Ich habe zwar die inputbox und ich kann auch mit der Maus auf die Zelle gehen, jedoch den Wert ändert er nicht(wenn ich diesen in der inputbox eingebe). Hab es mal probiert, klappte nicht.
Gruß Michael

Public Sub InputBoxSelectRange()
Dim rngSelect As Range
Dim msgTitel As String
msgTitel = "Demo - Zellbereich markieren mit InputBox"
On Error Resume Next
Set rngSelect = Application.InputBox _
(Prompt:="Bitte einen Zellbereich auf dem Tabellenblatt " & _
"markieren..." & vbCrLf & vbCrLf & "Um mehrere Bereiche " & _
"zu markieren, halten Sie die Strg-Taste gedrückt und  " & _
"markieren Sie den nächsten Bereich.", _
Title:=msgTitel, Type:=8)
ActiveSheet.rngSelect.Range = InputBox("Geben Sie eine Zahl ein", Eingabe, "0")
' Ab hier ist reine kontrolle ob das überhaupt klappt und weil es klappt und ich keine Ahnung
' habe übernehme ich es einfach
If Not rngSelect Is Nothing Then
MsgBox "Folgender Bereich wurde ausgewählt:" & vbCrLf & _
rngSelect.Address, , msgTitel
ActiveSheet.rngSelect.Range = InputBox("Geben Sie eine Zahl ein", Eingabe, "0")
'rngSelect.Interior.Color = RGB(255, 5, 0)
Else
MsgBox "Sie haben keinen Bereich ausgewählt !", _
vbOKOnly + vbInformation, msgTitel
End If
End Sub


Anzeige
AW: nächste Zelle, Zellen vergleichen,
27.01.2009 15:57:13
Chris
Servus,
was willst du eigentlich genau? So ganz hab ich's nicht verstanden.
Mit der Inputbox mit Type 8 kannst du ja den Range auswählen, dann brauchst du eigentlich ja keine andere Inputbox mehr , um in diesem Range die bedingte Formatierung zu ändern.
Gruß
Chris
AW: wenn ich's richtig verstanden habe...
27.01.2009 16:07:00
Chris
..., dann möchtest du sowas:

Public Sub InputBoxSelectRange()
Dim msgTitel As String
Dim rngSelect As Range
msgTitel = "Demo - Zellbereich markieren mit InputBox"
On Error Resume Next
Set rngSelect = Application.InputBox _
(Prompt:="Bitte einen Zellbereich auf dem Tabellenblatt " & _
"markieren..." & vbCrLf & vbCrLf & "Um mehrere Bereiche " & _
"zu markieren, halten Sie die Strg-Taste gedrückt und  " & _
"markieren Sie den nächsten Bereich.", _
Title:=msgTitel, Type:=8)
If Not rngSelect Is Nothing Then
rngSelect.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="=$D$1"
rngSelect.FormatConditions(1).Interior.ColorIndex = 4
Else
End If
End Sub


Hier wird der zu verändernde (bed. Format.) Bereich abgefragt (Type 8), und dann mit D1 verglichen in der bedingten Formatierung.
Gruß
Chris

Anzeige
AW: wenn ich's richtig verstanden habe...
27.01.2009 17:08:37
ms_michael_2002@yahoo.de
Danke!
Hast mir geholfen.
Gruß Michael
;

Forumthreads zu verwandten Themen

Zwei Spalten in jeweils zwei Tabellen miteinander
Lutz

Liebe Leute,
ich habe zwei recht umfangreiche Tabellen mit Lieferdaten und dies in zwei von einander unabhängigen Tabellen.
In der Tabelle1 stehen neben anderen die Spalten Bestellnr. und Materialnr. sowie Lieferantennr. In der Tabelle2 stehen wiederum die Spalten Bestellnr. und Materia...
08.08.2008 15:56:55
Thread-ID: 1000336
4 Beiträge
Datenvergleich über 4 Spalten in zwei Blättern
Martin

Hallo,
ich komme mit eine Formel für folgenden Fall nicht weiter:
Erste Datei (oder erstes Tabellenbaltt):
Nachname in Spalte A, Geburtsdatum in Spalte B, Betrag in Spalte C
Zweite Datei (oder zweites Tabellenbaltt):
Nachname in Spalte A, Geburtsdatum in Spalte B, Betrag in...
14.08.2008 14:33:00
Thread-ID: 1001866
4 Beiträge
Anzeige
etwas komplexer vergleich zweier Spalten
Jonathan

Hallo liebe Experten,
ich stehe gerade vor einem, für mich etwas komplexeren, Problem. Ich denke aber, dass es für euch mit Sicherheit kein Problem darstellt.
Ich habe in einer Tabelle zwei Spalten (A + B). Jede der beiden Spalten kann den Wert "active" oder "on hold" haben. Die länge d...
20.10.2008 08:27:04
Thread-ID: 1017563
4 Beiträge
zwei Spalten vergleichen
Schmidt

Guten Tag,
ich bin langsam am verzweifeln, was Excel angeht. Jetzt habe ich endlich meine 2000-Zeilen Tabelle fertig und da fällt doch glatt auf, dass es noch eine Tabelle gibt, die parallel geführt wurde.
Das Problem: es könnte sein, dass einzelne Komponenten nicht in beiden Tabellen e...
28.10.2008 10:38:01
Thread-ID: 1019838
6 Beiträge
Formel zum Abgleich zweier Spalten
Tina

Nabend.
Ich habe in Spalte A ganze viele Auftragsnummern und in Spalte B ebenso. Ich möchte mit einer Formel die beiden Spalten vergleichen und alle die in Spalte A sind und in Spalte noch noch sollen in Spalte C von Zelle a1 an abwärts ausgwiesen werden. geht das? danke für hilfe.
tinc...
28.11.2008 17:14:00
Thread-ID: 1028749
2 Beiträge
Werte in Spalten einfügen
Claudia

Hallo zusammen,
ich möchte den Inhalt einer Zwischenablage (1 Spalte muss ich immer kopieren) in das aktive Tabellenblatt einfügen - und hier oftmals aufgeteilt auf mehrere Spalten!!! Auf folgende komfortable Lösung über eine Inputbox oder Userform (?) hoffe ich:
1) Angabe der Spalte, w...
01.01.1970 00:00:00
Thread-ID: 1036833
34 Beiträge
Doppelte über zwei Spalten - vergleichen
Wolfgang

Hallo,
in einer Mappe befinden sich zwei Tabellenblätter. Gibt es eine Chance, beide Tabellenblätter abzugleichen, ob Datensätze doppelt vorkommen? - Schwierigkeit dabei mag aber sein, dass für die Suche sowohl die Spalte D, als auch Spalte E zu Grunde zu legen wären. Nur also, wenn die Dat...
09.01.2009 17:26:12
Thread-ID: 1038283
5 Beiträge
2 Sheets & 2 Spalten vergleichen
Alex

Guten Morgen zusammen!
Ich sitze an folgendem Problem:
Ich habe zwei Sheets, in denen Kunden (dummerweise) sehr inkonsistent gespeichert werden. Aus diesem Grunde vergleiche ich die beiden relevanten Spalten nach übereinstimmenden Strings und versuche, zumindest einen Teil dieser Kunden...
29.01.2009 10:29:17
Thread-ID: 1044862
4 Beiträge
Gleichzeitiges suchen zweier Werte in 2 Spalten
Kriam


Hallo.
Ich habe ein Problem in Excel (VBA) und komme nicht dahinter wie es zu lösen ist. Ich hoffe, das ihr mir hier weiterhelfen könnt.
Ich habe in Tabelle1, 2 Spalten mit Werte (In der A Spalte stehen Artikelnummern, in der B Spalte stehen die Lagerplätze der Artikelnummern)
...
02.02.2009 22:03:00
Thread-ID: 1046443
4 Beiträge
Mehrere Werte in Spalte Vergleichen
juergen

Hallo
Ich habe folgendes Problem:
Wie kann Ich sieben zellen in einer Zeile die mit Text gefüllt sind vergleichen.Allerdings ist bei der Auswertung nicht jede Zelle belegt.Also müßte eine freie Zelle demnach nicht berücksichtigt werden.
Ich habe mich schon mal mit den wenn funktione...
03.03.2009 23:25:19
Thread-ID: 1056142
4 Beiträge
werte in Spalten vergleichen
rebecca

Name Vorname
Meyer John
Meyer Dirk
Meyer Conny
Hallo,
gibt es eine Funktion, die erkennt, das diese Personen alle Meyer heissen und dann alle Vornamen in einer neuen Spalte hinzugefügt werden können?
So das die Tabelle dann so verändert wird?
Name Vorname Vorname Vor...
06.03.2009 11:43:31
Thread-ID: 1057229
5 Beiträge
Spalten vergleichen und Nummern ausgeben ?
Günther

Hallo zusammen,
kann mir bitte jemand hierbei helfen:
in Spalte E geb ich Nummern ein, diese sollen mit denen aus Spalte AA verglichen werden.
Bei Übereinstimmung soll die Nummer aus AB in L ausgegeben werden.
E---- L--- AA-- AB
15-- 2--- 10-- 1
30-- 5--- 15-- 2
1...
12.03.2009 15:49:14
Thread-ID: 1059522
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige