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

Differenz in MessageBox

Forumthread: Differenz in MessageBox

Differenz in MessageBox
21.05.2006 11:49:35
Lorenz
Hallo zusammen!
Mein Problem:
Der Bereich A2:A15 u. B4 soll lt. Liste (E1:E6) verglichen werden und die nicht vorhandenen Einträge im MsgBox ausgegeben werden.
MusterDatei:
https://www.herber.de/bbs/user/33824.xls
Hat vielleicht jemand ne Idee wie?
Grüsse Lorenz
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Differenz in MessageBox
21.05.2006 12:09:19
Reinhard
Hi Lorenz,
Option Explicit
Sub tt()
Dim zeiA As Long, zeiE As Long, Satz As String
zeiA = Range("A65536").End(xlUp).Row
For zeiE = 1 To Range("E65536").End(xlUp).Row
If Application.WorksheetFunction.CountIf(Range("A1:A" & zeiA), Cells(zeiE, 5)) = 0 And InStr(Range("B4"), Cells(zeiE, 5)) = 0 Then
Satz = Satz & Cells(zeiE, 5) & Chr(10)
End If
Next zeiE
Satz = Left(Satz, Len(Satz) - 1)
If Len(Satz) > 0 Then MsgBox Satz
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Differenz in MessageBox
21.05.2006 12:50:40
Lorenz
Hallo Reinhard!
Selbstverständlich war diese Antwort hilfreich. Sie war nicht nur das, sondern genau die erbetene Lösung. Allerdings wäre "And InStr..." Methode auch in der Spalte "A" notwendig, da so wie in "B4" ebenfalls mehrere Texte in einer Zelle vorkommen können.
Abzufragende Bereiche wären nicht die ganze Spalte "A", sondern zB: "A2:A5; A9:A12; B4"
Grüsse
Lorenz
Anzeige
AW: Differenz in MessageBox
21.05.2006 13:09:13
Reinhard
Hi Lorenz,
Option Explicit
Sub tt()
Dim zeiE As Long, Satz As String, Bereiche, n As Integer, nn As Integer, vorh As Boolean
Bereiche = Array("A2:A5", "A9:A12", "B4")
For zeiE = 1 To Range("E65536").End(xlUp).Row
vorh = False
For n = 0 To UBound(Bereiche)
For nn = 1 To Range(Bereiche(n)).Cells.Count
If InStr(Range(Bereiche(n)).Cells(nn), Cells(zeiE, 5)) <> 0 Then
vorh = True
GoTo weiter
End If
Next nn
Next n
If vorh = False Then Satz = Satz & Cells(zeiE, 5) & Chr(10)
weiter:
Next zeiE
Satz = Left(Satz, Len(Satz) - 1)
If Len(Satz) > 0 Then MsgBox Satz
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Differenz in MessageBox
21.05.2006 13:18:32
Lorenz
Hi Reinhard!
Genau das wars!
Funktioniert super!
nochmals vielen vielen Dank und Grüsse
Lorenz
AW: Differenz in MessageBox
21.05.2006 13:04:16
Lorenz
Hallo Reinhard!
Mit "If InStr(Range("B4"), Cells(zeiE, 5)) = 0 Then" bin ich dem Ziel schon sehr nahe.
Wie muss der CodeTeil erweitert werden um zB. "A2:A5; A9:A12; B4" abzufragen?
Danke u. Gruss Lorenz
Anzeige
;

Forumthreads zu verwandten Themen

Einträge differenzieren
siegfried

hallo,
ich möchte Einträge, die ich in einer userform vornehme nach allen theoretisch möglichen Varianten differenzieren. die Einträge enthalten 5 unterschiedliche Kritereien. dadurch ergeben sich über 4000 kombinationen. mit der office 2007 version hätte ich auch genügend spalten zur aufna...
04.11.2008 16:29:00
Thread-ID: 1021692
3 Beiträge
Anzeige
Differenz von 2 Datums in Jahre rechnen
2

Hi,
ich möchte die Differenz zweier Datums in Jahre darstellen. Erstes Datum steht in B2 (zB 10.03.2001) und zweites in C2 (zB 15.07.2007) .
Die Differenz zwischen B2 und C2 soll in C3 stehn und zwar als Kommazahl. (zB 6,75 Jahre )
Weis jemand eine Formal dafür ?
Danke Joach...
06.01.2009 00:25:51
Thread-ID: 1037149
6 Beiträge
Differenz Datum in Jahren und Tagen
MiraCeti

Hallo Zusammen!
Vielleicht habe ich ja einen Denkfehler, aber:
Ich bilde die Differenz von zwei Datum und wenn ich das nochmal nachrechne, meine ich, dass immer ein Tag fehlt:
15.02.2008 - 02.05.2010 2 Jahre 77 Tage
14.01.2000 - 30.03.2004 4 Jahre 76 Tage
16.01.2000...
29.04.2009 16:16:18
Thread-ID: 1071946
8 Beiträge
Differenz zwischen zwei Zellen errechnen
Sandra

Hallo zusammen,
ich arbeite mit einem Makro Daten in Spalte A (ab Zeile bis zur letzten belegten Zelle) ab. Über
ActiveCell.Offset(0, 14).Value = Format(Date & " " & Time) trage ich DAtum und Zeit ein.
Frage wäre jetzt, ob man zwischen der Zeile 2 und der letzten belegten Ze...
29.04.2009 20:57:10
Thread-ID: 1072000
6 Beiträge
Anzeige
Differenz Datum in Jahren und Tagen
MiraCeti

Hallo zusammen.
Es tut mir sehr leid, aber mein Problem ist noch nicht gelöst und daher bringe ich es nochmal an.
Es geht mir um die Darstellung der Anzahl von Jahren und Tagen zwischen zwei Daten.
Volle Jahre sind ja klar. Die zählen als ein Jahr, unabhängig ob da nun wegen dem Sch...
06.05.2009 13:49:12
Thread-ID: 1073345
12 Beiträge
Zeitdifferenz in Zelle einfügen
Alina

Hallo zusammen,
ich habe mir in Excel eine Überstundentabelle gebastelt. Soweit funktioniert auch alles. Ich kann mir auch die Überstunden pro Tag in der Spalte G berechnen lassen. Berechnet wird das durch die Solleinzeit in Spalte F und der tatsächlichen Endzeit in Spalte D.
Nun möcht...
16.08.2009 00:06:36
Thread-ID: 1096190
12 Beiträge
noch mal: Werte zwischen zwei Zahlen zählen
Bernd

Guten Morgen zusammen,
mein Problem vom Freitag ist leider noch nicht ganz gelöst :-((
Die Hilfe von "WF" hat mich schon ein ganzes Stück weitergebracht, aber leider hat die Formel ein Problem mit der Berechnung von negativen Werten
'=SUMMENPRODUKT(('Grunddaten berechnet'!$R7:$R4000...
30.11.2009 08:57:22
Thread-ID: 1120929
6 Beiträge
ganzzahlige Werte einer Differenz | Herbers Excel-Forum
Buh
Hallo alle zusammen,
ich bin auf der Suche nach einer Lösung für folgendes Problem:
Es gibt 2 Werte z.B. 3 und 8
Ich benötige eine Formel die mir alle ganzzahligen Werte anzeigt die auf und zwischen 3 und 8 liegen, also 3,4,5,6,7,8.
Fällt hier jemandem etwas ein?
Tausend Dank i...
07.01.2010 17:51:48
Thread-ID: 1127980
6 Beiträge
Formel-Vergleich zwischen zwei Zellen
Tom

Hallo,
ich hab´da ein Problem...
Es geht um zwei (umfangreiche) Dateien, die eigentlich identisch sein sollten. Die Dateien sind vollgespickt mit Formeln. Ich möchte nun feststellen, ob es Zellen gibt, deren Formeln zwischen den beiden Dateien abweichen (z.B. Datei "1", Tabelle3, Zelle...
28.02.2010 18:30:11
Thread-ID: 1142160
7 Beiträge
Anzeige
Tage zwischen zwei Datümern auswerten
Reinhard

Hallo Wissende,
in A ist der Starttermin, in C der Endtermin. Beide Spalten benutzerdefiniert so formatiert: TTT, TT.MM.JJJJ
Es können da ja 0-X Tage dazwischenliegen, diese Zahl der dazwischenliegenden Tage möchte ich ermitteln.
Mit Datediff-1 erhalte ich diese Zahl. Diese will ich...
05.03.2010 17:05:03
Thread-ID: 1143798
13 Beiträge
Anzeige
Man MUSS einen von zwei Werten ZUERST bestimmen
zwei

Hallo Leute!
Ich möchte ein Tool bauen, bei dem der User beim Starten in einer leeren Zelle einen von zwei Werten ("Handel" & "Bank") zuerst aus einem Zellendropdown bestimmen MUSS, bevor er irgendwo anders Daten eingeben kann. Hat jemand eine Ahnung, wie ich mit VBA (bescheiden :S) die...
29.06.2010 11:27:40
Thread-ID: 1164503
15 Beiträge
VBA + Uhrzeit zwischen zwei Werten
Peter

Hallo zusammen,
ich habe ein Problem mit der Uhrzeit in VBA:
In Zeile 1 ist das Datum,
in Zeile 2 sind die Stunden.
Es soll nun ein Eintrag erfolgen, wenn Schicht_Datum gefunden, und Uhrzeit liegt zwischen Schicht_Beginn und Schicht_Ende.
Problem1: Uhrzeit 24.00 Uhr ist "00:...
04.05.2011 08:18:30
Thread-ID: 1212964
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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