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

Zahlen vergleichen u. b. übereinst. Makieren?? VBA

Forumthread: Zahlen vergleichen u. b. übereinst. Makieren? VBA

Zahlen vergleichen u. b. übereinst. Makieren? VBA
09.11.2004 13:43:54
birgit
Hallo liebes Forum,
brauche unbedingt Eure Hilfe zu folgendem Problem:
Habe eine Tabelle, in den Spalten A:A und B:B stehen Zahlen. Wenn die Zahlen gleich sind, soll die Zelle in der Spalte B:B in der die Zahl steht rot makiert werden. Geht dies per Makro und wenn ja wie?
Für Eure Mithilfe rechtherzlichen Dank.
Gruß
birgit
Anzeige
AW: Zahlen vergleichen u. b. übereinst. Makieren? VBA
u_
Hallo,
hilft dir die bedingte Formatierung?
=ZÄHLENWENN(A:A;B1)&gt0 und Format wählen.
Gruß
AW: Zahlen vergleichen u. b. übereinst. Makieren? VBA
09.11.2004 14:32:08
birgit
... Danke für Eure schnelle Antwort. Der Vorschlag ist sicherlich nicht falsch, aber was ich vergessen hatte zu sagen ist, dass ich nicht nur 1 sheet habe sondern ca. 40. Somit wäre es sicher besser dies per Makro zu lösen - oder?
Gruß
birgit
Anzeige
AW: Zahlen vergleichen u. b. übereinst. Makieren? VBA
Sven
Bei 40 Seiten läuft sich das Makro einen Wolf.
mfg Sven
AW: Zahlen vergleichen u. b. übereinst. Makieren? VBA
09.11.2004 15:28:56
birgit
... wieso läuft es sich eine Wolf ? Über diese 40 Seite läuft bereits ein Makro und das ohne Probleme.
Sind Makro denn erst gut wenn Sie nur über eine Seite laufen? Bei 40 Seiten wird es doch erst interessant - oder!
Also, hiermit bitte ich euch nochmals um Eure Mithilfe!!!
Gruß
birgit
Anzeige
AW: Zahlen vergleichen u. b. übereinst. Makieren? VBA
Sven
Aha, das wusste ich nicht.
mfg Sven
Für ein Blatt
AndréL.
Hallo Birgit,
das läuft ersteinmal nur für ein Blatt,
nur noch ´ne Schleife für alle Blätter und gut.

Sub agleich_farb_birgit()
Dim aRow As Long, bRow As Long, nummer1 As Integer, nummer2 As Integer
For aRow = 1 To Range("A65536").End(xlUp).Row
nummer1 = Cells(aRow, 1).Value
For bRow = 1 To Range("B65536").End(xlUp).Row
nummer2 = Cells(bRow, 2).Value
If aRow = bRow Then
If nummer1 = nummer2 Then
Cells(bRow, 2).Interior.ColorIndex = 3
End If
End If
aRow = aRow + 1
nummer1 = nummer1 + 1
Next
Next
End Sub

Gruß
AndréL.
Anzeige
AndréL.!!! Problem Für ein Blatt!!! Hilfe !!!
10.11.2004 09:25:28
birgit
Hallo AndréL.
Habe Dein Makro natürlich sofort ausprobiert.
Habe damit aber noch ein Problem. Nach dem Start des Makros wird bei Übereinstimmung der Werte in Spalte A und B nur der Wert in der Zeile 1 rot makiert, obwohl z.b. in Zeile 9 auch zwei Werte in Spalte A und B übereinstimmen.
Hoffe Du kannst mir nochmal Helfen ?
Gruß
birgit
Anzeige
AW: AndréL.!!! Problem Für ein Blatt!!! Hilfe !!!
AndréL.
Hallo Birgit,
leider habe ich nicht genug getestet.
Ich habe einen bestehenden Code einfach umgeschrieben.
Jetzt beim testen habe ich auch Fehler entdeckt,
die ich aber nicht abstellen kann.
Tut mir leid :-(
Stelle die Frage doch noch mal.
Gruß
AndréL.
AW: Zahlen vergleichen u. b. übereinst. Makieren? VBA
Udo
Nimm die bedingte Formatierung, ist einfacher, geht schneller und automatisch.
Udo
Anzeige

Forumthreads zu verwandten Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Markierte Zellen: Text in Datum umwandeln
Peter

Guten Tag
Mit nachfolgendem Code wandle ich einen Textstring in ein Datum um. Komisch ist, dass ich die Schleife zweimal hintereinander laufen lassen muss. Nach dem ersten Mal wird das Datum mit "d/m/yy" und erst das zweite Mal im gewünschten Format "dd.mm.yy" angezeigt.
Was muss ich än...
15.09.2008 11:41:00
Thread-ID: 1009737
6 Beiträge
Anzeige
Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Anzeige
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Verschiedene Werte in bestimmte Zahlen umwandeln
Henning

Hallo, ich versuche grade bei einem Schichtplan die Verschiedenen Zelleninhalte z.B. Zelle A3 Inhalt "U1",Zelle A4 Inhalt"1/3" usw. in Werte umzuwandeln und diese dann als Stunden ausrechennen zu lassen.
Also so soll z.B. aus dem Inhalt von Zelle A3, dort steht "U1" soll dann 8 Stunden ents...
15.10.2008 18:37:00
Thread-ID: 1016648
4 Beiträge
Zahl eingeben und per VBA formatieren
Herbert

Hallo Gemeinde
Ich habe eine Zelle in einem .xlt, dort soll der User eine Zahl eingeben und mit dem Changeereignis
soll die Zahl in der Form JJ/###A umgewandelt werden.
Beispiel: 201 soll 08/201A werden. Das, was ich hier verbrochen habe, funst nicht, kann mir jemand helfen?
P...
05.11.2008 16:08:10
Thread-ID: 1021969
12 Beiträge
Textzahl umwandeln
Stephan

Hallo zusammen,
ich habe folgendes Problem:
Mit dem u. a. Code werden Zeilen aus einer Datei in eine andere kopiert. Die Spalte B (B2:B65535) der Zieldatei ("Auswertung.xls)" soll nun aber zusätzlich noch mit 1 multipliziert werden, da diese ein Datum als Textzahl enthält und dieses in...
10.11.2008 11:12:00
Thread-ID: 1023147
22 Beiträge
Nur Zahlen in sehr vielen Textboxen
uli

Hallo,
habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
13.11.2008 10:24:00
Thread-ID: 1024091
3 Beiträge
TextBox Inhalte sollen Zahlen sein
Frank

Hallo Zusammen!!!
Mit folgendem Code:
Private Sub CommandButton2_Click() If Me.TextBox1.Value = "" Then MsgBox "Sie müssen ein Datum eingeben" Exit Sub End If If Me.TextBox2.Value = "" Then MsgBox "Sie müssen eine Anfangszeit eingeben " Exit Sub End If If Me.TextBox3.Value = "" Then M...
17.11.2008 21:37:00
Thread-ID: 1025414
8 Beiträge
In Zahlen umwandeln
fuxl

Ich hab ein AutoOpen Makro in dem ich die Funktion TextinSpalten verwende um den Zelleninhalt in eine Zahl umzuwandeln und die kleinen Dreiecke los zu werden. Das ganze geschieht mit folgender Zeile:
'Tabelle1.Range("H15:H$" & letzteZeile).TextToColumns Destination:=Tabelle1.Range("H15"...
19.11.2008 11:13:06
Thread-ID: 1025937
5 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Text in Zahlen umwandeln
u_hoernchen

Ich habe eine Spalte in Excel, in der vereinzelt Zellen sind, in denen Zahlen als Text formatiert sind. Da ich diese Zahlen für die weitere Verwendung als Werte haben muss und ich das dann relativ oft umfrickeln muss (ist leider ein Download aus einem Vorprogramm), frage ich mich, ob es ggf. ei...
26.11.2008 11:09:00
Thread-ID: 1027963
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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