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

Bestimmte Werte markieren

Bestimmte Werte markieren
08.09.2008 08:36:00
mehmet
Hallo Forum,
ich habe in Spalte G4:G92 beispielsweise folgende Codes stehen:
in Zelle G4
TAF EKAH 080440Z 081212 16010KT 9999 SCT020 TEMPO 1218 4000 SHRA BKN015CB TEMPO 1807 2500 SHRA BR BKN008 SCT015CB BECMG 1921 21006KT TEMPO 0712 -SHRA BKN012 SCT020CB=
in Zelle G5
TAF ESSA 080410Z 081212 07008KT CAVOK PROB30 1206 0400 RA=
in Zelle G6
TAF COR LYBE 080400Z 081212 29012KT 9999 BKN030 TEMPO 1220 4000 TSRA SCT030CB BKN040=
bis G92
Nun möchte ich mittels Makro bestimmte Elemente rot markieren:
Wenn zwei hintereinander 4stellige Zahlen kommen:
in G4 sollte gefunden werden 1218 4000 oder 1807 2500 (nicht markieren)
in G5 sollte gefunden werden 1206 0400 (markieren)
in G6 sollte gefunden werden 1220 4000 (nicht markieren)
Allerdings sollte es nur markiert werden, wenn die zweite Zahlenfolge kleiner als 0500 ist.
Also,
für G4 nicht markieren, da 4000 grösser als 0500 ist
wieder G4 nicht markieren, da 2500 grösser als 0500 ist.
In G5 markieren, da 0400 kleiner/gleich 0500 ist. Markiere 1206 0400 in rot.
Für G6 nicht markieren, da 4000 grösser als 0500 ist.
Dank und Gruss
mehmet

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

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Werte markieren
08.09.2008 09:24:31
Heiko
Hallo Mehmet,
bei deinem Beispiel tut es dieser Code:

Sub MarkierenT()
Dim lnglastrow As Long, lngI As Long, lngArrCounter As Long
Dim lngStartRed As Long
Dim arrHelp() As String
lnglastrow = ThisWorkbook.ActiveSheet.Cells(65536, 7).End(xlUp).Row
For lngI = 4 To lnglastrow
arrHelp = Split(ThisWorkbook.ActiveSheet.Cells(lngI, 7), " ")
For lngArrCounter = LBound(arrHelp) To UBound(arrHelp)
If IsNumeric(arrHelp(lngArrCounter)) Then
If CLng(arrHelp(lngArrCounter))  0 Then
If IsNumeric(arrHelp(lngArrCounter - 1)) And Len(Trim(arrHelp(lngArrCounter - 1) _
)) = 4 Then
lngStartRed = InStr(ThisWorkbook.ActiveSheet.Cells(lngI, 7), arrHelp( _
lngArrCounter - 1) & " " & arrHelp(lngArrCounter))
ThisWorkbook.ActiveSheet.Cells(lngI, 7).Characters(Start:=lngStartRed,  _
Length:=9).Font.ColorIndex = 3
End If
End If
End If
Next lngArrCounter
Next lngI
End Sub


Gruß Heiko
PS: Rückmeldung wäre nett !

Anzeige
AW: Bestimmte Werte markieren
08.09.2008 10:35:39
mehmet
Hallo Heiko,
Danke, es funktioniert
Gruss
mehmet

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige