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

msgbox drei gleiche ziffern z. b. (444) in zelle

msgbox drei gleiche ziffern z. b. (444) in zelle
01.02.2005 10:28:48
roland_k
hallo guten morgen zusammen
ich trage in zellen ueber eine code zahlen ain und addiere die zelle immer auf neue summe
zb. A4 = 410
nun kommt in
A6 34 eintrag und wird mit A4 addiert
ergibt 444
nun sollte eine msgbox aufgehen mit meldung "drei gleiche ziffern"
also auch bei 555 ...666..usw
wie muss das aussehen ?
danke im voraus ....habe in recherche nichts gefunden
gruss roland_k

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: msgbox drei gleiche ziffern z. b. (444) in zelle
01.02.2005 10:50:44
Andi
Hi Roland,
am einfachsten dürfte das gehen, indem Du überprüfst, ob in der Zelle ein ganzzahliges Vielfaches von 111 steht. Hier als Beispiel für die Zelle B1:
If Cells(1, 2).Value / 111 = Int(Cells(1, 2).Value / 111) Then MsgBox "3 gleiche ziffern"
Das funktiniert allerdings nur, wenn bei Dir maximal 3-stellige Zahlen vorkommen; ab 10*111=1110 stimmt's nicht mehr.
Schönen Gruß,
Andi
ohne VBA - mittels bedingter Formatierung
Galenzo
ganz ohne VBA kommt diese Lösung aus.
hier am Beispiel der Zelle A1
"Bedingte Formatierung"
mit dieser Formel:
=REST(A1;WIEDERHOLEN("1";LÄNGE(A1))*1)=0
und fett und rot formatieren
Anzeige
AW: msgbox drei gleiche ziffern z. b. (444) in zelle
alex
wenn das ergebniss in einer zelle steht, kannst du doch einfach den wert der zelle auslesen

Sub vergleich()
dim var as string
dim kon as string
dim i as integer
var=cstr(activecell.value)
if var="" then exit sub
kon=left(var,1)
for i=1 to len(var)
if kon<>mid(var,i,1) then
exit sub
end if
next i
msgbox ("Nachricht" & var)
End Sub

AW: msgbox drei gleiche ziffern z. b. (444) in zelle
Nike
Hi,
hier eine auf 3 Ziffern eingeschraenkte Analyse der Zahl,
liesse sich gut erweitern:

Sub test()
Dim lngVal As Long
Dim bolfalse As Boolean
lngVal = Application.WorksheetFunction.Sum(ActiveSheet.Columns(1))
bolfalse = True
If Len(CStr(lngVal)) = 3 Then
For i = 2 To Len(CStr(lngVal))
If Mid(CStr(lngVal), i, 1) <> Left(CStr(lngVal), 1) Then
bolfalse = Not bolfalse
Exit For
End If
Next
End If
If bolfalse Then
MsgBox "gleiche ziffern"
End If
End Sub

Bye
Nike
Anzeige
AW: msgbox drei gleiche ziffern z. b. (444) in zelle
roland_
oh das gefällt mir schon
aber ich sollte drei spalten a b c jeweils zeile 12 - 45 üeberwachen
die routine sollte nach jeder eingabe abfragen
oder jedesmal wen in der spalte ein eintrag kommt die zelle in der eingetragenwird ueberpruefen
hmm kompliziert
danke roland_k
AW: msgbox drei gleiche ziffern z. b. (444) in zelle
Nike
Hi,
das dann so in den Code der Tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 11 And Target.Row < 46 Then
If Target.Column < 4 Then
If Target <> "" Then
Call check(Target)
End If
End If
End If
End Sub

Sub check(rngTarget As Range)
Dim rngCell As Range
For Each rngCell In rngTarget
bolfalse = True
lngVal = rngCell.Value
If Len(CStr(lngVal)) = 3 Then
For i = 2 To Len(CStr(lngVal))
If Mid(CStr(lngVal), i, 1) Left(CStr(lngVal), 1) Then
bolfalse = Not bolfalse
Exit For
End If
Next
End If
If bolfalse Then
MsgBox "gleiche ziffern"
Exit For
End If
Next
End Sub
Bye
Nike
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzahl von Buchstaben pro Zelle
Buchstaben

Guten Morgen zusammen!
Ich habe folgende Aufgabe:
Ich will mir mittels einer Formel o.ä. die Anzahl von Buchstaben in einer Zelle darstellen lassen, d.h. es kann vorkommen, dass in einer Zelle der Eintrag "Hauptstr. 7" steht. Die Formel soll mir dann das Ergebnis 8 liefern.....8= Anzahl...
15.08.2008 07:55:00
Thread-ID: 1002023
10 Beiträge
Anzeige
Word-Text auf xls-Zellen verteilen
Florian

Guten Morgen zusammen,
eine Frage: wie kann ich Word-Zeilen auf Excel-Zeilen (einzelne Zellen verteilen)?
Im Word-File habe ich z.B. den Text
Zeile1
Zeile2
Zeile3
untereinanderstehen, jetzt soll "Zeile1" in Zelle A1, "Zeile2" in Zelle B1 usw. stehen. Bsp hängt an.
Da...
18.08.2008 07:29:00
Thread-ID: 1002498
3 Beiträge
Zeichenkette in einer Zellesuchen
Gordon

Moin,
ich habe in einer Zelle (A1) einen Namen plus ein Datum dazu stehen: "Max Mustermann (01.01.1900)"
Nun möchte ich überprüfen, ob diese Zeichenkette, also Name plus Datum, nochmals in der Zelle A2 steht.
In der Zelle A2 stehen mehrere dieser Zeichenketten. Diese sind in einer...
26.09.2008 12:54:00
Thread-ID: 1012601
4 Beiträge
Anzeige
Zelle auf Inhalt Text oder Zahl prüfen
Moritz

Hallo,
ich habe eine sehr große Tabelle mit Adressen. Problem ist nur, dass die Straßen, PLZ und so nicht untereinander in einer Spalte stehen sondern alle unterschiedlich verrückt sind je nachdem wie viele Vorname oder Nachnamen jemand hat. Es gibt aber ein einheitliches System. Erst kommt...
30.09.2008 10:36:00
Thread-ID: 1013287
3 Beiträge
Zeichen in Zelle automatisch kürzen
Andreas

Guten Tag,
ich habe Zellen mit jeweils 12 Stellen ausgefüllt (z.B. 000012345678) Davon hätte ich nun gerne automatisch die ersten 4 gelöscht (sodaß in diesem Beispiel dann in der Zelle nur 12345678 verbleibt)
Ist das mit Excel-Bordmitteln machbar?
Danke für Hilfe voarab,
Andreas...
09.10.2008 13:57:00
Thread-ID: 1015344
4 Beiträge
Zelleninhalt auf Textteil überprüfen...
Jessi

Hallo zusammen,
ich bin gerade dabei meine Liste mit SVerweisen zu füllen und hänge an einem Problem:
Eine Ausgabe (über SVerweis) liefert einen Wert "String" XY_Text, ALTERN_Text oder MUSTER_Text in einer Zelle
jetzt möchte ich in einer anderen Zelle sagen:
Wenn Zelleninhalt mi...
07.11.2008 12:55:13
Thread-ID: 1022638
2 Beiträge
Zelle des erstes Vorkommen eines Zeichens ausgeben
-s

Hallo Forum,
ich habe in Zeile 1 in jeder Spalte einen Buchsteben stehen:
a|b|c|c|c|e|
Wie kann ich die Zelle ausgeben lassen, in der beispielsweise das "c" das erste mal vorkommt? Als Ergebnis soll dann C1 ausgegeben werden.
Besten Dank!
-s
07.12.2008 21:32:00
Thread-ID: 1030929
4 Beiträge
Anzahl der Zeichen in einer Zelle
Jan

Guten Morgen
Welcher Befehl zählt die Zeichen in einer Zelle?
Danke
Gruß Jan
07.01.2009 08:38:00
Thread-ID: 1037436
3 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
9
3
2
3
10
2
3
1
3
2
2
5
2
2
4
10
2
2
3
3
17
2
2
2
4