Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
860to864
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
860to864
860to864
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige