Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
696to700
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
696to700
696to700
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

gerade und ungerade

gerade und ungerade
21.11.2005 20:39:04
basti
Hallo zusammen,
wie kann ich es über Userform realisieren, das wenn in Zelle a1 eine gerade Zahl steht (also z.B. 8 oder 100) die Schriftfarbe rot gewählt wird für a1 und wenn eine ungerade Zahl drinsteht (z.B. 99) sich nichts an der Schriftfarbe ändert (also die Farbe schwarz einfach bleibt)?
Gruß Basti

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: gerade und ungerade
21.11.2005 20:41:08
Hajo_Zi
Hallo Basti,
warum Userform?
Benutze Format Bedingte Forematierung.


AW: gerade und ungerade
21.11.2005 20:45:27
basti
mmm,
also deswegen Userform weil ich es nachher in meine Prozedur einbauen möchte !! wenn ich einen Code für das Problem hätte könnte ich ihn leicht für die Prozedur umbauen. Mit Format komm ich da nicht weiter.
Gruß Basti
AW: gerade und ungerade
21.11.2005 20:54:33
volker
hallo,
im prinzip geht das so :
z= 5 oder was anderes
If Int(z / 2) = z / 2 Then MsgBox ("GERADE") Else MsgBox ("UNGERADE")
gruß volker.
AW: gerade und ungerade
21.11.2005 21:11:17
basti
hmm, da wird mir immer gerade als MSGbox angezeigt egal ob eine gerade oder eine ungerade Zahl in der Zellee steht.
ist z/2 nicht immer gleich z/2 so das sowieso jedesmal die bedingung erfüllt wird ?
Gruß Basti
Anzeige
AW: gerade und ungerade
21.11.2005 21:24:31
volker
hallo,
1.welche zelle ich habe auf keine zelle zugegriffen sondern einfach 5 in z gestellt falls eine zelle im spiel ist dann natürlich z = cells(1,1)
2.natürlich ist z/2 immer gleich z/2 wenn du aber das erste z/2 in eine Ganzzahl(integer(int)) umwandelst dann kann es anders sein zb:
5/2 = 2,5
int(5/2) = 2
und siehe da 2,5 und 2 ist etwas anderes also ungerade
4/2 = 2
int(4/2) = 2 gleich also gerade
mit dem mod gibt dir den rest einer division zurück funktionierts genauso.
viele grüße Volker.
AW: gerade und ungerade
21.11.2005 21:11:02
PeterW
Hallo Basti,
alternativ zu Volkers Ansatz:
If Wert MOD 2 = 0 Then MsgBox "gerade" Else MsgBox "ungerade"
Gruß
Peter
Anzeige
AW: gerade und ungerade
21.11.2005 21:13:54
basti
Hallo,
auch da wird mir immer die Messagebox gerade angezeigt egal ob die Zahl gerade oder ungerade ist.
Gruß Basti
AW: gerade und ungerade
21.11.2005 21:16:57
basti
Ah habs geschnallt, so funzt es:
Range("a1").Select
If ActiveCell Mod 2 = 0 Then
MsgBox ("GERADE")
Else
MsgBox ("UNGERADE")
End If
vielen Dank Basti

228 Forumthreads zu ähnlichen Themen

VBA: gerade - ungerade Zahlen
Franz

Guten Morgen Fachleute,
nur ne kurze Frage: wie lautet bitte für VBA die Anweisung "gerade" bzw. "ungerade"? Ich muss abfragen, ob gerade in einer Zeile mit gerader bzw. ungerader Zeilennummer gearbeitet wird.
Danke schon mal und beste Grüße
Franz
18.12.2008 09:43:16
Thread-ID: 1033769
4 Beiträge
Anzeige
Wenn Zahl ungerade dann in Spalte B eine 1
Josef

Hallo!
Ich habe in der Spalte AF ca. 47000 gerade und ungerade Zahlen stehen. Ich möchte nun bei allen ungeraden Zahlen in der spalte rechts daneben eine 1 eintragen lassen. wie würde hier bitte eine VBA Lösung oder eine formel lauten?
Danke
Josef
14.07.2009 15:05:45
Thread-ID: 1088520
8 Beiträge
perVBA prüfen, ob Internetadresse vorhanden
Rüdiger

Liebe Fachleute für InternetExplorer aus Excel-VBA heraus!
ich habe Excelsheet mit Adressen u.a. auch URLs (und Mailadr.)
ich möchte prüfen, ob die in meiner Liste (eine Spalte) erfassten URLs seit der letzten Mailingsaktion vor einem Jahr noch erreichbar sind:
(In einem weiteren Sc...
19.10.2009 13:06:55
Thread-ID: 1110593
6 Beiträge
Anzeige
Prüfen ob erste Zahl im Textbox eine 0
urmila

Hallo zusammen,
ich bitte um eure Hilfe.
Es soll in einer TextBox geprüft werden, ob die erste Zahl eine Null (0) ist, wenn nein, soll eine 0 und dann die restlichen Zahle eingefügt werden.
z.B gebe ich eine "7" ein, so soll automatisch die 0 hinzugefügt werden....also dann "07"
...
11.11.2010 13:39:15
Thread-ID: 1186288
4 Beiträge
mit VBA Prüfen ob ein Wert in Spalte A existiert
marspoki

Hallo,
gibt es in VBA die Möglichkeit in VBA zu prüfen, ob in Spalte A10:A100 der Wert "x" exsistiert?
Vielleicht gib es auch eine Möglichkeit, rauszubekommen wie oft der Wert vorhanden ist?
Vielen Dank im Vorraus
Mars
18.03.2011 10:54:48
Thread-ID: 1206302
4 Beiträge
Per VBA prüfen, ob ein Namen in einer Spalte
stefan

vorhanden ist.
Hallo,
ich einer Spalte mit 10000 Namen möchte ich per VBA rausfinden, ob ein Name (in Celle A1) vorhanden ist.
Wie mache ich das?
Vielen Dank
11.10.2011 18:56:09
Thread-ID: 1233433
4 Beiträge
VBA - Prüfen ob Schaltfläche vorhanden
WalterK

Hallo,
ich möchte prüfen, ob die Formularschaltfläche "WAHR" bereits vorhanden ist und dementsprechend eine MsgBox ausgeben. Irgendetwas klappt nicht, weiß aber nicht wo der Fehler ist. Option Explicit Sub Testmodul() Dim shShape As Shape With ActiveSheet If shShape.Name = "WAHR" Then MsgBo...
11.03.2012 15:44:26
Thread-ID: 1254585
8 Beiträge
0 oder 00 vor einer Zahl
Jäger

Hallo liebe Excelgemeinde,
ich versuche ein txt-File in Excel zu importieren.
In Spate D stehen "Zahlen", die aber mit 0 oder 00 beginnen.
Excel lässt die 0 weg was ja auch richtig ist es gibt keine Zahl die mit 0 beginnt.
Ich habe versucht die Spalte als Text zu formatieren...
27.06.2012 20:43:09
Thread-ID: 1269230
9 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm MessageBox

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
3
13
7
5
4
3
3
3
7
8
1
1
2
13
2
2
4
2
5
2
2
7
3
4
8