Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
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
1660to1664
1660to1664
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Case Select enthält Zeichenkette

Forumthread: Case Select enthält Zeichenkette

Case Select enthält Zeichenkette
18.12.2018 09:40:32
Alex
Guten Morgen,
ich habe da ein Problem und benötige mal eure Hilfe.
Ich habe hier ein Schleifen mit Case
For Each rngCell In Range("B8:B200")
Select Case rngCell.Value
Case "Grundplatte"
If Range("G4") = "Lehre" Then 'Wenn als Werkzeugbezeichnung in F4 Lehre eingetragen  _
wurde dann ist die Grundplatte aus Alu
rngCell.Offset(0, 1).Value = "Alu"
ElseIf Not Range("G4") = "Vorserie" Then  'Wenn als Werkzeugbezeichnung nicht  _
Vorserie steht dann ST52 eintragen, bei Vorserie frei lassen
rngCell.Offset(0, 1).Value = "ST52"
rngCell.Offset(0, 2).Value = "brennen"
End If
Case "pos100 Zwischenplatte"
rngCell.Offset(0, 1).Value = "ST52"
rngCell.Offset(0, 2).Value = "brennen"
Case "Leiste"
rngCell.Offset(0, 1).Value = "ST52"
rngCell.Offset(0, 2).Value = "brennen"
Case "Kopfplatte"
rngCell.Offset(0, 1).Value = "ST52"
rngCell.Offset(0, 2).Value = "brennen"
Das läuft wunderbar. Jetzt möchte ich aber die Felder die ausgelesen werden verändern. Da steht also nicht mehr "Grundplatte" oder "Leiste" drin sondern "pos1 Leiste" oder "pos3 Grundplatte". Kann ich das mit minimal Aufwand verändern, das ich prüfe ob nur das Wort "Leiste" oder "Grundplatte" enthalten ist? Die Zahlen sind immer anders und können nicht berücksichtigt werden.
Mein Gedanke war jetzt irgendwie Case "*Grundplatte"
Danke im voraus für die Hilfe.
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Case Select enthält Zeichenkette
18.12.2018 09:54:27
mumpel
Hallo!
Schau Dir dazu Like an, siehe VBA-Hilfe oder Google.
Gruß, René
AW: Case Select enthält Zeichenkette
18.12.2018 10:21:14
Alex
Habe dazu gerade die Info gefunden das case und like zusammen nicht funktioniert, ist das richtig?
mit like geht schon
18.12.2018 10:47:31
Daniel
man kann bei CASE auch Berechnungen ausführen und die Abfragelogik im Select Case umkehren:
For Each rngCell In Range("B8:B200")
Select Case True
Case rngCell like "*Grundplatte*"
Case rngCell like "*Zwischenplatte*
Case rngCell like "*Kopfplatte*"
Case else
end Select
Next
alternativ auch mit If THEN ELSEIF ELSEIF ELSE
For Each rngCell In Range("B8:B200")
IF rngCell like "*Grundplatte*" Then
ELSEIF rngCell like "*Zwischenplatte* Then
ELSEIF rngCell like "*Kopfplatte*"
ELSE
END IF
Next

Gruß Daniel
Anzeige
AW: Case Select enthält Zeichenkette
18.12.2018 10:11:26
kocius 

Dim rng As String
For Each rngcell In Range("B8:B200")
rng = Mid(Cells(rngcell.Row, 2), InStr(Cells(rngcell.Row, 2), " ") + 1, 99)
Select Case rng
Case "Grundplatte"
If Range("G4") = "Lehre" Then 'Wenn als Werkzeugbezeichnung in F4 Lehre eingetragen  _
_
wurde dann ist die Grundplatte aus Alu
rngcell.Offset(0, 1).Value = "Alu"
ElseIf Not Range("G4") = "Vorserie" Then  'Wenn als Werkzeugbezeichnung nicht _
Vorserie steht dann ST52 eintragen, bei Vorserie frei lassen
rngcell.Offset(0, 1).Value = "ST52"
rngcell.Offset(0, 2).Value = "brennen"
End If
Case "pos100 Zwischenplatte"
rngcell.Offset(0, 1).Value = "ST52"
rngcell.Offset(0, 2).Value = "brennen"
Case "Leiste"
rngcell.Offset(0, 1).Value = "ST52"
rngcell.Offset(0, 2).Value = "brennen"
Case "Kopfplatte"
rngcell.Offset(0, 1).Value = "ST52"
rngcell.Offset(0, 2).Value = "brennen"
End Select
Next

Anzeige
AW: Case Select enthält Zeichenkette
18.12.2018 10:16:25
mumpel
Mit "Like" ist es einfacher, da muss man keine Zeichen zählen.
;

Forumthreads zu verwandten Themen

VBA Select Case
WalterK

Hallo,
der folgende Codeteil soll Überschriften in Zeile 1 vergleichen und falls gefunden die Spalte ab Zelle 2 formatieren.
Allerdings werden die 3 Zeilen ab ".TextTocolumns ...." gelb unterlegt, die Fehlermeldung lautet: Laufzeitfehler 438: Objekt unterstützt diese Eigenschaft oder Me...
04.06.2015 16:06:33
Thread-ID: 1429309
5 Beiträge
If in einem Select Case form
Armin

Moin Moin,
ich habe eine Frage und Zwar:
Wie kann man eine If + und + oder funktion in form von einem Select Case schreiben.
Z.B:
If Range("A1").value="a" or Range("A1").value="b" und Range("B1").value="1" then
Range("C1").value="Hallo"
end if
wie geht das in form vo...
08.03.2016 11:18:28
Thread-ID: 1480615
3 Beiträge
Mit Target und Select Case Formel benutzen
Nermin
Hallo liebe Community,
ich wollte zunächst eine Formel verwenden mit der if funktion, da es aber nur eine Bedingung gibt von der die Verwendung der Formel abhängt habe ich mir gedacht es wäre wesentlich einfacher die Select Case Methode zu verwenden. Code sieht wie folgt aus:
Private Sub Wo...
22.06.2016 09:00:22
Thread-ID: 1500244
3 Beiträge
Frage zum Select Case in einer For Next-Schleife
Alexander

Hallo zusammen,
ich bin noch recht frisch in der VBA-Programmierung, aber es klappt schon ganz gut.
Zur Zeit arbeite ich an einem Code, der aus einem bestehenden Sheet Daten in ein neues Sheet extrahiert, diese in eine andere Reihenfolge packt und auch einige Berechnungen durchführt. Ge...
27.09.2017 15:35:51
Thread-ID: 1582975
5 Beiträge
UCase in Select Case Environ Username
STeve

Hallo VBAler .........
...möchte im Befehl das UCase einbauen damit der Username als "steve33" und auch als "STEVE33" erkannt wird.
Select Case Environ("UserName") ?
Select UCase Environ("UserName") --- geht nicht
Select Case Environ(UCase("UserName"))---geht nicht
Besten...
11.12.2017 21:14:22
Thread-ID: 1596640
4 Beiträge
Anzeige
Kombination Select Case und For Schleife
Steve

Hallo,
nun hab ich das nächste Problem mit meinem uplan.
Ich möchte mit einer Kombination aus For-Schleife und Select Case ein Ausfüllen nach rechts ab der aktiven Spalte umsetzen. leider macht Excel gar nichts. es kommt auch kein Fehler.
dabei errechne ich die Anzahl der auszufülle...
19.04.2018 02:36:15
Thread-ID: 1620424
14 Beiträge
Anzeige
Select Case und Formel/Zahl einfügen
Daniel

Geschätzte Excel-Liebhaber
An folgendem Problem beisse ich mir nun seit geraumer Zeit die Zähne aus:
Ich habe ein Problem mit der Select Case-Methode und zwar dann, wenn ich nach einer bestimmten Auswahl in einer Dropdown-Liste (Zelle S1) eine Formel in eine Zelle einfügen möchte.
D...
15.10.2018 12:20:27
Thread-ID: 1651265
3 Beiträge
For-Schleife in CaseSelect
Matthias H.

Hallo,mit Hilfe des Forums habe ich drei ComboBoxen erstellt die miteinander verknüpft sind. Mit ihnen kann man über drei ebenen einen Pfad auswählen und ein bestimmtes Blatt anspringen. Dabei wird dieser Pfadname in die Zellen E3, E5, E7 des Blattes „Tabelle1“, und der Name des ang...
20.02.2003 12:58:33
Thread-ID: 222014
2 Beiträge
Syntax für Select Case + Workbooks.Open
Martin

Guten Morgen alle zusammen,hab mal wieder eine Pischi-Frage für Euch, die meine Kenntnisse aber um Längen übersteigt. Folgendes Problem.1) 3 input dateien, die alle identisch aufgebaut sind
2) 1 ergebnis datei, die werte aus den inputdateien berechnet (allerdings immer nur einer gleichzeitig...
08.04.2003 10:34:13
Thread-ID: 241808
5 Beiträge
Select Case mit AND Statement
Georg

Hallo zusammen
Gibt es eine Möglichkeit Select Case mit AND zu kombinieren? Etwas in der Art: Select Case udtValues(i - 1).Saldo And _
udtValues(i).Amount 'Saldo positiv
'Betrag positiv
Case udtValues(i - 1).Saldo > 0 And _
udtValues(i...
02.06.2003 22:07:56
Thread-ID: 264110
3 Beiträge
Anzeige
Select Case - For Next
Josef

Hallo!
Besteht bitte die Möglichkeit in einer ComboBox
(Private Sub ComboBox1_Change()
Select Case ComboBox1.ListIndex + 1
Case 1 bis Case 15 sowie Case 16 bis Case 23 mittels For Next Schleife zu verbinden?
Wenn ja, wie würde das bitte ungefähr aussehen?
Danke
Josef<...
12.09.2004 11:37:48
Thread-ID: 483710
3 Beiträge
Problem mit Select case / for each next
DJB

Hallo zusammen, ich habe folgendes Problem:
Ich möchte gerne in einem Makro in Abhängigkeit vom Tabellennamen gewisse Bereiche der jeweiligen Tabelle löschen.
Da nicht alle Tabellen gleich aufgebaut sind, muss ich also gewisse Tabellen sozusagen vom "Lösch-Makro" ausklammern. Ich hatte...
08.10.2005 16:46:16
Thread-ID: 678725
16 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Case Select mit Zeichenkette in Excel VBA

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und gehe zu den Entwicklertools. Wenn die Entwicklertools nicht sichtbar sind, aktiviere sie in den Excel-Optionen.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Füge ein neues Modul hinzu: Rechtsklick auf "VBAProject (DeinWorkbookName)" -> Einfügen -> Modul.

  4. Kopiere den folgenden Code in das Modul:

    Sub SelectCaseMitLike()
   Dim rngCell As Range
   For Each rngCell In Range("B8:B200")
       Select Case True
           Case rngCell.Value Like "*Grundplatte*"
               If Range("G4") = "Lehre" Then
                   rngCell.Offset(0, 1).Value = "Alu"
               ElseIf Not Range("G4") = "Vorserie" Then
                   rngCell.Offset(0, 1).Value = "ST52"
               End If
               rngCell.Offset(0, 2).Value = "brennen"
           Case rngCell.Value Like "*Zwischenplatte*"
               rngCell.Offset(0, 1).Value = "ST52"
               rngCell.Offset(0, 2).Value = "brennen"
           Case rngCell.Value Like "*Kopfplatte*"
               rngCell.Offset(0, 1).Value = "ST52"
               rngCell.Offset(0, 2).Value = "brennen"
           Case Else
               ' Fallback für andere Fälle
       End Select
   Next rngCell
End Sub

  5. Schließe den VBA-Editor und gehe zurück zu Excel.

  6. Führe das Makro aus: Gehe zu Entwicklertools -> Makros -> wähle SelectCaseMitLike und klicke auf "Ausführen".

Häufige Fehler und Lösungen

  • Fehler: "Typen nicht übereinstimmend"

    • Lösung: Stelle sicher, dass die Zellen im Bereich "B8:B200" Text enthalten. Überprüfe die Zellformate.

  • Fehler: Kein Ergebnis bei der Verwendung von Like

    • Lösung: Überprüfe, ob die Suchbegriffe korrekt sind. Stelle sicher, dass die Wildcards * richtig platziert sind.

  • Problem mit Case und Like

    • Lösung: Verwende die Struktur Select Case True in Kombination mit Like, um auf Teilstrings zu prüfen.

Alternative Methoden

  • Verwendung von If...Then...Else:

    Anstelle von Select Case kannst du auch die If...Then...Else-Struktur verwenden:

    For Each rngCell In Range("B8:B200")
   If rngCell.Value Like "*Grundplatte*" Then
       ' Aktionen für Grundplatte
   ElseIf rngCell.Value Like "*Zwischenplatte*" Then
       ' Aktionen für Zwischenplatte
   ElseIf rngCell.Value Like "*Kopfplatte*" Then
       ' Aktionen für Kopfplatte
   Else
       ' Fallback
   End If
Next rngCell

  • Excel-Funktion: Wenn du keine VBA-Programmierung verwenden möchtest, kannst du auch die Funktion WENN in Excel verwenden, um ähnliche Logik in den Zellen zu implementieren.

Praktische Beispiele

  1. Beispiel für die Verwendung von Select Case mit Like:

    For Each rngCell In Range("B8:B200")
   Select Case True
       Case rngCell.Value Like "*Leiste*"
           rngCell.Offset(0, 1).Value = "ST52"
       ' Weitere Cases hier...
   End Select
Next rngCell

  2. Beispiel für das Einfügen von Berechnungen:

    Select Case True
   Case rngCell.Value Like "*Kopfplatte*"
       rngCell.Offset(0, 1).Value = rngCell.Offset(0, 1).Value * 2 ' Beispiel für Berechnung
End Select

Tipps für Profis

  • Nutze Option Explicit am Anfang deines Moduls, um sicherzustellen, dass alle Variablen deklariert werden.
  • Verwende Fehlerbehandlung mit On Error Resume Next und On Error GoTo 0 für robustere Makros.
  • Kommentiere deinen Code, um die Lesbarkeit zu erhöhen, besonders wenn du komplexe Bedingungen verwendest.

FAQ: Häufige Fragen

1. Kann ich Select Case mit mehreren Bedingungen kombinieren?
Ja, du kannst Case-Bedingungen kombinieren, indem du Select Case und logische Operatoren wie And oder Or verwendest.

2. Wie kann ich die Performance bei großen Datenmengen verbessern?
Verwende Application.ScreenUpdating = False und Application.Calculation = xlCalculationManual zu Beginn deines Makros und setze sie am Ende wieder zurück, um die Performance zu erhöhen.

3. Funktioniert dieser Code in allen Excel-Versionen?
Ja, die vorgestellten Methoden sind in den meisten aktuellen Excel-Versionen verfügbar, die VBA unterstützen.

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