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

Strings markieren

Forumthread: Strings markieren

Strings markieren
15.03.2009 13:09:25
mehmet
Hallo Forum,
ich würde gern bestimmte Strings in einer Zellenbereich markieren:
Spalte C3:C100 stehen z.Z. wie in Zelle C5 folgende Strings:
FGHFGD46 FGH4563 354FGH BKN001 FDG6554 BKN005 DFG6544 4665BKN BKN003 DF123DFG
Es soll also folgendes markiert werden: BKN001 und BKN005 und BKN003.
Immer wenn Leerzeichen BKN und drei Zahlen Leerzeichen folgen.
BKN000 bis BKN002 soll in rot markiert werden
BKN003 bis BKN005 soll in blau markiert werden.
Ab BKN006 soll nicht berücksichtigt werden.
Herzlichen Dank im voraus und jetzt schonmal SUPER SUNDAY 8-)
Gruss
mehmet
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Strings markieren
15.03.2009 13:22:09
Josef
Hallo Mehmet,
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub CcolorText()
  Dim rng As Range, rngF As Range
  Dim intPos As Integer
  
  On Error Resume Next
  Set rng = Range("C3:C100").SpecialCells(xlCellTypeConstants)
  On Error GoTo 0
  
  If Not rng Is Nothing Then
    For Each rngF In rng
      intPos = InStr(1, rngF.Text, "BKN")
      Do While intPos > 0
        If IsNumeric(Mid(rngF.Text, intPos + 3, 3)) Then
          If Cint(Mid(rngF.Text, intPos + 3, 3)) < 3 Then
            rngF.Characters(intPos, 6).Font.ColorIndex = 3
          ElseIf Cint(Mid(rngF.Text, intPos + 3, 3)) < 6 Then
            rngF.Characters(intPos, 6).Font.ColorIndex = 5
          End If
        End If
        intPos = InStr(intPos + 1, rngF.Text, "BKN")
      Loop
    Next
  End If
  
  Set rng = Nothing
End Sub

Gruß Sepp

Anzeige
AW: Strings markieren
15.03.2009 22:12:54
mehmet
Hallo Sep,
funktioniert einwand frei.
Super, ich danke Dir.
Herzliche Grüsse
mehmet
;

Forumthreads zu verwandten Themen

Mehrere Textfelder markieren
Captain

Moin @all,
ich erstelle mehrere Textfelder auf meiner Userform dynamisch.
Gibt es für die Userform eine Möglichkeit, mehrere Textfelder per Maus auf einmal zu markieren, so wie es in einem Sheet mit den Zellen möglich ist?
Im Anhang meine Beispieldatei:
https://www.herber.de/bb...
18.08.2008 11:11:00
Thread-ID: 1002529
9 Beiträge
Zellen farbig markieren
chrisss

Hallo,
ist es eigentlich bei Excel 2007 nun möglich, dass bei einer Wenn-Funktion eine Zelle farbig ausgefüllt wird. Beispiel: Wenn in Tabelle 1 in A1 ein U steht, soll die Zelle A1 in Tabelle 2 rot ausgefüllt werden.
Ich hatte die Frage schonmal gepostet und die Antwort erhalten, dass...
21.08.2008 13:20:00
Thread-ID: 1003455
8 Beiträge
Anzeige
Script um auf jeden Blatt eine Zelle zu markieren
Eddie

Hallo, ich habe eine eigentlich ganz einfache sache, aber irgendwie ruft wohl eher das WE in meinen Kopf :-)
Ich will eigentlich nur ein kleinen VBA Code ... der in jeden vorhandenen Tabellenblatt die Zelle A1 markiert
Vielleicht kann mir jemand da etwas sagen ?
gruß Eddie
22.08.2008 15:11:53
Thread-ID: 1003910
15 Beiträge
Leerzeilen in markieren Bereich einfügen
Ulrich

Hallo zusammen,
ich möchte gerne einen Bereich markieren und dann ein Makro starten, dass im markierten Bereich unter jeder Zeile eine Leerzeile einfügt und dann den gesamten Bereich (Zeilen+Leerzeilen) markiert.
Habe das versucht - geht nicht:
Dim bereich As Range
Set bereich...
26.08.2008 15:36:00
Thread-ID: 1004840
3 Beiträge
Anzeige
Markieren, formatieren und sortieren via VB-Skript
Wladimir

Hallo zusammen,
wie kann man in einer geschlossenen Excel-Datei via VB-Skript die Zellen markieren, formatieren und sortieren.
Danke im Voraus
Freundliche Grüße
Wladimir
01.09.2008 17:03:25
Thread-ID: 1006538
17 Beiträge
Anzeige
mehrere Zellen markieren verhindern
Dirk

Hallo miteinander,
brauche nochmals von Euch Hilfe, bitte.
Habe bei einer meiner Dateien eine Gültigkeitsprüfung (nur X zulassen) und vba trägt in einen Bereich beim reinklicken ein X ein, wenns schon drin ist wirds gelöscht, soweit kein Problem.
Problem: wenn man nun aus Versehen o...
03.09.2008 22:12:34
Thread-ID: 1007244
3 Beiträge
Zeilen markieren, dann sortieren... usw....?
Selma

Hallo Leute,
ich habe mir die Inhalte des Arbeitsblattes sortiert (mit drei Sortkriterien). Jetzt möchte ich noch eine Sortierung per VBA wie folgt durchführen....
Ab Zeile 4 sollen die Zeilen die gleichen Zelleninhalt in Spalte H haben, markiert und wie folgt sortiert werden:
Sele...
04.09.2008 19:05:06
Thread-ID: 1007484
3 Beiträge
Zeilen markieren (ohne Formeleinträge)
Selma

Hallo Leute,
ich habe versucht ab Zeile 2 bis letzte gefüllte Zelle der Spalte B (leere Formelergebnisse sollen nicht berücksichtigt werden) die Zeilen zu markieren, leider ohne Erfolg.
Rows("2:" & Range("B65536").End(xlUp).Row).Select
Was muss ich ändern?
Vielen Dank im Vor...
07.09.2008 18:35:00
Thread-ID: 1007992
5 Beiträge
Bestimmte Werte markieren
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 ESS...
08.09.2008 08:36:00
Thread-ID: 1008041
3 Beiträge
Summenformel Zellbezüge markieren
Christian

Hi Leute,
heute möchte ich eine Frage stellen die mich schon eine Zeit lang beschäftigt, für die ich aber leider selber noch keine Antwort gefunden habe.
Ich habe ein Registerblatt in dem einige "Summen-Formeln" stehen, die auf Zellbeüge in anderen Registerblättern (alle in der selben A...
08.09.2008 08:38:00
Thread-ID: 1008042
6 Beiträge
Zeichenfolgen vergleichen und markieren
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...
08.09.2008 11:47:07
Thread-ID: 1008096
3 Beiträge
Doppeleinträge markieren
bug

Hallo,
ich habe eine Frage zu doppelten werten in einer Tabellenspalte.
wie kann ich in einer separaten spalte ein neues merkmal "X" ausgeben, mit dem nur einer derdoppelten einträge markiert wird, oder umgekehrt alle doppelten bis auf einen.
dabei spielt keine rolle welcher eintra...
09.09.2008 18:18:32
Thread-ID: 1008560
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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