Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
412to416
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
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahlen, ohne zu ersetzte, nicht mit vergleichen?

Zahlen, ohne zu ersetzte, nicht mit vergleichen?
Logan
Hallo,
Ich müsste unbedingt wissen, ob man einen Vergleichfahren kann und bestimmte Ziffer als Joker angibt, z.B. 125488-14521-vghf-8765-00-4457! Hier müsste ich lediglich die ersten drei Blöcke und die letzten 2 Ziffern vergleichen.
Kann ich jetzt irgendwie per VBA bestimmen, dass die unnötigen Zahlen nicht beachtet werden, ohne sie durch irgendeinen Buchstaben oder so auszutauschen?
Das ist notwendig, da ich alle Zahlen am Schluss Komplett wieder ausgeben muss. Also mit den original Ziffern und ohne Platzhalter bzw. Joker oder was auch immer!
Ich wäre euch dankbar für Lösungen oder Tipps. Ideen, wie ich es anders machen kann, nehme ich auch dankbar an.
MfG
Logan
=VERGLEICH("125488-14521-vghf*57";A:A;0)
Boris
Hi,
wenn´s VBA sein soll: Schau dir den Operator 'Like' an.
Grüße Boris
AW: =VERGLEICH("125488-14521-vghf*57";A:A;0)
Logan
Hallo Boris, danke für deine Hilfe. Mein Problem ist jedoch der, dass ich den Vergleich schon habe, welcher auch geht, und jetzt völlig überfordert bin mit der Nachträglichen Anweisung, dass die Besagten Ziffern nicht mitverglichen werden sollen! Ich habe nicht die geringste Ahnung, wo ich einen Vergleich mit Like reinschreiben sollte!? 

Sub Vergleich()
With Sheets("Tabelle3")
For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
Set rng = Sheets("Tabelle2").Columns(1).Find(.Cells(i, 1).Value, LookIn:=xlValues, LookAt:=xlWhole)
If rng Is Nothing Then .Cells(i, 2).Value = .Cells(i, 1).Value
Next i
End With
End Sub

Naja. Ich bin für jede erdenkliche Hilfe äußerst dankbar!
Anzeige
AW: =VERGLEICH("125488-14521-vghf*57";A:A;0)
Boris
Hi,
Ich müsste unbedingt wissen, ob man einen Vergleichfahren kann und bestimmte Ziffer als Joker angibt, z.B. 125488-14521-vghf-8765-00-4457! Hier müsste ich lediglich die ersten drei Blöcke und die letzten 2 Ziffern vergleichen.
Kann ich jetzt irgendwie per VBA bestimmen, dass die unnötigen Zahlen nicht beachtet werden, ohne sie durch irgendeinen Buchstaben oder so auszutauschen?
Mein Problem ist jedoch der, dass ich den Vergleich schon habe, welcher auch geht,
Wie passt das zusammen?
Unabhängig davon:
LookAt:=xlWhole lookt halt in xlWhole...da gibt´s auch noch andere Konstanten (siehe VBA-Hilfe), wenngleich das hier dein Problem wohl nicht lösen wird, da ja nur der mittlere Teile der Zelle nicht beachtet werden soll.
Also: Keine Find-Methode sondern eine For-Each-Schleife über alle Suchzellen und den Suchbegriff mit Jokern (*) und dem Like-Operator zusammenbasteln.
Davon hat der Held doch sicher was in seinem Büchlein geschrieben? ;-)
Wenn nicht: VBA-Hilfe...
Grüße Boris
Anzeige
AW: Zahlen, ohne zu ersetzte, nicht mit vergleichen?
harry
hi logan,
das geht. schau dir in der hilfe die left funktion an.
zb. a=left(activecell,6)
liefert dir 125488 (wenn die zelle ausgewählt ist).
gibt natürlich analog dazu ein right funktion.
liebe grüße,
harry
AW: Zahlen, ohne zu ersetzte, nicht mit vergleichen?
Logan
Hi Harry, gleiche Frage an dich wie an Boris: kann ich in diesen Makro irgendwie deine Lösung einbauen?

Sub Vergleich()
With Sheets("Tabelle3")
For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
Set rng = Sheets("Tabelle2").Columns(1).Find(.Cells(i, 1).Value, LookIn:=xlValues, LookAt:=xlWhole)
If rng Is Nothing Then .Cells(i, 2).Value = .Cells(i, 1).Value
Next i
End With
End Sub

MfG
Logan
Anzeige
AW: Zahlen, ohne zu ersetzte, nicht mit vergleichen?
harry
wenn ich dein prob richtig verstehe:
.Find(what:= left(Cells(i, 1).Value,6) .....
AW: Zahlen, ohne zu ersetzte, nicht mit vergleichen?
Logan
Irgendwie bekomme ich verschiedene Laufzeitfehler! Na dann muss ich wohl ne andere Lösung finden!
AW: Zahlen, ohne zu ersetzte, nicht mit vergleichen?
harry
versuchs eventuell so:

Sub Vergleich()
With Sheets("Tabelle3")
For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
such = Left(Sheets("Tabelle2").Cells(i, 1).Value,6)
Set rng = Sheets("Tabelle2").Columns(1).Find(what:=such, LookIn:=xlValues, LookAt:=xlWhole)
If rng Is Nothing Then .Cells(i, 2).Value = .Cells(i, 1).Value
Next i
End With
End Sub

302 Forumthreads zu ähnlichen Themen

gleiche Zahlen nicht gleich in VBA?
Christian

Guten Tag,
ich habe hier zwei Zahlen, die meiner Meinung nach gleich sind, aber laut VBA dann doch wieder nicht.....
Ein Vergleich im Tabellenblatt mit folgender Formel zeigt mir, das die Zahlen gleich sind:
=WENN(C5'zahlen alt'!C5;"nicht gleich";"gleich")
Per Makro sind die gle...
26.01.2009 17:09:00
Thread-ID: 1043950
3 Beiträge
Anzeige
Zählenwenn mit 2 Bedingungen, aber Text | Herbers Excel-Forum
Jack
Hallo zusammen,
ich habe da ein Problem, was für die Profis unter euch sicherlich leicht zu lösen ist, mir aber seit gestern Abend Kopfzerbrechen bereitet:
Wie in der Überschrift beschrieben, möchte ich, dass in einem definiertem Feld ein Zählung vorgenommen wird, sofern die Kombination 2 b...
12.01.2010 10:43:11
Thread-ID: 1129091
4 Beiträge
wenn nicht eine Textbox mehr als 0, dann Msg.Box
Wolfgang

Hallo,
ich versuche folgendes Problem in den Griff zu bekommen, schaffe es aber mit verschied. Ansätzen nicht:
Ich würde gerne bei Klicken einer Schaltfläche zunächst überprüft haben, ob nicht zumindest eine Textbox von den Textboxes13-16 mehr als 0 enthält, wenn nein, Abbruch. Wäre für...
22.02.2010 18:36:04
Thread-ID: 1140459
11 Beiträge
Anzeige
zählenwenn geht nicht
ray

Hallo,
ich möchte zählen, wieviel zellen leer sind:
So geht es nicht:
=ZÄHLENWENN(Q3:Q1295;"=""")
ergebnis ist "0". Es gibt aber in dem Bereich Zellen, wo nix drin steht.
Was mach ich falsch?
Viele Grüße aus dem sonnigen Hamburg bei 17,5 Grad
Ray
01.06.2010 14:56:55
Thread-ID: 1159844
6 Beiträge
Wenn bzw. Zählenwenn mit drei Werten
Stefan

Hallo,
ich habe jetzt schon einige Stunden hier im Forum verbracht und bin auch schon fast am Ziel. Aber eben nur fast. Mein Problem:
Ich habe eine CSV Datei, in Zelle D2 soll einer von drei Werten stehen. Geprüft werden soll die Zelle P2
D2 P2
15-08-13 Mu...
04.08.2010 22:15:33
Thread-ID: 1170532
5 Beiträge
Zählenwenn (aus nicht miteinan. verb. Zellen)
Joerschi

Hallo liebe Community,
wahrscheinlich habe ich grad einen kleinen Blackout :-(
Ich möchte aus mehreren Zellen (die nicht direkt miteinander verbunden sind/nebeneinander liegen) mit der Zählenwenn-Formel einen Wert zählen lassen. Irgendwie bekomme ich aber die Formel nicht hin...
Bsp...
07.08.2010 10:18:20
Thread-ID: 1171013
7 Beiträge
Zählen Wenn Datum und Feld nen Wert hat
anton

Hallo Zusammen,
ich möchte ein Fehlzeitenliste machen.
In einer Zeile stehen die Wochentage eines halben Jahres.
In der darunter eventuell eine Eintragung wenn jemand gefehlt hat.
Da er aus verschiedenen Gründen gefehlt haben kann, wird dort ein Kürzel eingetragen.
v für ve...
02.09.2010 22:13:32
Thread-ID: 1175547
3 Beiträge
Zählenwenn und "MittelwertWenn"
Dietmar

Hallo allerseits,
suche bisher erfolglos zwei Formeln zur berechnung von diversen Spalten (hier im Beispiel nur eine)
Einmal für die Zählung der Häufigkeit (also Anzahl2) und
einmal für die Berechnung eines Mittelwertes ... jedesmal wenn zwei Bedingungen erfüllt sind.
Rahmenbedi...
03.11.2010 16:38:30
Thread-ID: 1185025
5 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
2
6
3
10
3
5
4
6
2
4
5
3
3
14
4
4
4
4
4
4
3
2
5
4
2