Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 10:29:26
Userform Multipage - Page auswählen
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
860to864
860to864
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Platzhalter richtig verwenden

Forumthread: Platzhalter richtig verwenden

Platzhalter richtig verwenden
17.04.2007 10:04:00
Akbara
Hallo Exelianer,
ich habe eine Stringvariable t in der Form "12AB3456/78"
diese Variable möchte ich mit Select Case verwenden, wenn innerhalb eine bestimmte Zeichenkombination auftritt, also bsw.
Case "*345*"
wie schreibe ich das richtig, so tut's das nämlich nicht.
Gruß aus dem sonnigen Sachsen,
Sabine

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Platzhalter richtig verwenden
17.04.2007 10:22:51
haw
Hallo Sabine,
hier ein Beispiel:

Sub t()
Dim z As Range
For Each z In Range("A2:A4")
Select Case InStr(z.Value, "123")
Case Is > 0
z.Offset(0, 1).Value = "enthalten"
End Select
Next z
End Sub


Gruß
Heinz

AW: Platzhalter richtig verwenden
17.04.2007 11:28:00
Akbara
Hallo Heinz,
mir gelingt es nicht, dein Beispiel zu erweitern, ich habe mehrere cases, also bei enthaltenem
"123" grün
"456" blau
"753" rosa
usw.
Kannst du mir noch mal helfen?
Danke,
Sabine

Anzeige
AW: Platzhalter richtig verwenden
17.04.2007 11:54:00
haw
Hallo Sabine,
hier bein Beispiel:

Sub Färben()
Dim z As Range, Farbe%
For Each z In Range("A2:A4")
If InStr(z.Value, "123") > 0 Then
Farbe = 5
ElseIf InStr(z.Value, "456") > 0 Then
Farbe = 6
ElseIf InStr(z.Value, "753") > 0 Then
Farbe = 7
End If
z.Interior.ColorIndex = Farbe
Next z
End Sub


Jede Farbe hat eine Nummer
mit folgendem Makro kannst du sie in einem Tabellenblatt listen:


Sub FarbenListen()
Dim i%
For i = 1 To 56
Cells(i, 1).Value = i
Cells(i, 2).Interior.ColorIndex = i
Next i
End Sub


Gruß
Heinz

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige