Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1008to1012
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
Inhaltsverzeichnis

Zeichenfolgen vergleichen und markieren

Zeichenfolgen vergleichen und markieren
08.09.2008 11:47:07
mehmet
Hallo Forum,
in Spalte G4:G92 habe ich mehrere Codes, z.B.:
G4
METAR EKAH 080850Z 18007KT 130V220 9999 SCT012TCU BKN100 18/16 Q1010=
G5
METAR UAAA 080900Z 03003MPS 010V080 9999 SKC 25/05 Q1017 55CLRD65 NOSIG RMK QFE704/0938=
G6
METAR ESSA 080920Z 04006KT 9999 SCT010 BKN016 14/13 Q1014 NOSIG=
Nun soll mit Hilfe eines Makros folgende Zeichenkette gefunden werden:
Leerzeichen Zahl Zahl Querstrich Zahl Zahl
In G4 ist es 18/16, in G5 die 25/05 und in G6 die 14/13
Nun sollen diese Zahlen miteinander vergliechen werden:
sind die Zahlen beieinander, dann markiere diese rot.
Beieinander heisst, +-2.
Im Beispiel sollten es sein 18/16 und 14/13.
Dank und Gruss
mehmet

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeichenfolgen vergleichen und markieren
08.09.2008 12:03:02
Erich
Hallo Mehmet,
probier mal

Option Explicit
Sub ZeichenfolgeMark()
Dim rng As Range, ii As Integer
For Each rng In Range("G4:G92")
ii = InStr(rng, "/")
While ii > 3
If Mid(rng, ii - 3, 6) Like " ##/##" Then
If Abs(Mid(rng, ii - 2, 2) - Mid(rng, ii + 1, 2)) 

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

AW: Zeichenfolgen vergleichen und markieren
08.09.2008 12:13:32
mehmet
Dank dir Erich,
es klappt natürlich 8-)
Gruss
mehmet
Anzeige

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige