Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
1980to1984
1980to1984
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Teil-String bei Select Case

Forumthread: Teil-String bei Select Case

Teil-String bei Select Case
06.06.2024 10:34:50
earlycon
Ein freundliches Hallo zusammen,
ich importiere per VBA eine .csv-Datei in Excel und mit einer For-Next-Schleife gehe ich dann Spalte D durch und werte die Zellen mit Select Case aus. 


...

lRow = Sheets("Datenbank").Cells(Rows.Count, 1).End(xlUp).Row

For ZeileAusw = 14 to lRow

...

Select Case Cells(zeileAusw, 4)

...

Case "Anforderung*"

Case "Anforderung f??r alle TP"

Unglücklicher Weise werden für einen Bereich die Umlaute beim importieren falsch interpretiert und so dargestellt: "Anforderung f├╝r alle TP". Wenn ich diesen Text kopiere und in VBA einfüge, wird dieser so dargestellt: "Anforderung f??r alle TP". Damit wird der Zellwert bei der Case-Prüfung allerdings nicht erkannt. Kennt Ihr eine Möglichkeit, wie ich mit Select Case auch nur einen Teil-String verwenden oder mein Problem anderweitig lösen kann ?

Besten Dank und viele Grüße
Stefan

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Teil-String bei Select Case
06.06.2024 10:46:55
Oberschlumpf
Hi Stefan,

versuch es mal so (ungetestet): 


Select Case True 'pruft, ob das, was in Case steht, WAHR ist; oder halt zutrifft

...

Case Instr(Cells(zeileAusw, 4), "Anforderung") > 0, Instr(Cells(zeileAusw, 4), "alle TP") > 0 '2 Bedingungen: als Texteile in Zelle müssen "Auswertung" und "alle TP" enthalten sein

'hier dein Code, wenn WAHR

Hilfts?

Ciao
Thorsten
Anzeige
AW: Teil-String bei Select Case
06.06.2024 11:25:47
earlycon
Hi Thorsten,

vielen Dank wieder einmal für Deine Hilfe 😉 Leider bekomme ich bei Case InStr... einen "Anwendungs-oder objektdefinierter Fehler" zurück. Jetzt wo ich InStr kenne, kann ich den Fehler gar nicht nachvollziehen. Excel meckert selbst, wenn als Suchtext nur ein "A" angegeben wird...

Hast Du noch eine Idee ?

Viele Grüße
Stefan
Anzeige
AW: Teil-String bei Select Case
06.06.2024 13:29:16
Piet
Hallo

gleich zwei einfache Tipps von mir, aus der Excel Praxis. Setze bitte VOR Select Case den Wert in eine Text Variable.
Txt = Cells(zeileAusw, 4) --> das verkürzt deine Schreibweise in der nachfolgenden Auswertung, ist übersichtlicher!

Den Anwendungsfehler vermutet ich im Komma, du musst hier AND verwenden! Auf > 0 kannst du verzichten!
Case InStr(Txt, "Anforderung") And InStr(Txt, "alle TP")

mfg Piet
Anzeige
AW: Teil-String bei Select Case
06.06.2024 13:45:49
earlycon
Hi Piet,
herzlichen Dank für Deine Rückmeldung (und natürlich auch von Daniel und Thorsten). Deine Ratschläge sind nur logisch und ich habe sie assimiliert 😉.
Ich weiß nicht, ob es an der Variablen gelegen hat, aber jetzt funktioniert es wunschgemäß 👍🏼 Top, ich freue mich...

Nochmals danke und allen einen schönen Tag
Stefan
Anzeige
AW: Teil-String bei Select Case
06.06.2024 11:57:03
Oberschlumpf
Hi Stefan,

so jetzt sofort hab ich nich ne weitere Idee....das wäre ja nur Raten...der eine kanns gut..ich mag es nich so.

Besser würde ich finden, wenn du uns bitte per Upload eine Bsp-Datei mit genügend Bsp-Daten zeigst und natürlich deinem Code, der zumindest vollständig ist.

Ciao
Thorsten
Anzeige
AW: Teil-String bei Select Case
06.06.2024 10:58:10
daniel
Hi

in dem Fall wahrscheinlich so: 

Select Case True

    Case Cells(zeileAusw, 4) like "Anforderung*"


etwas intuitiver ist hier aber If Then Elseif wenn man mehrere Fälle prüfen mss 
If Cells(zeileAusw, 4) like "Anforderung*" then

...

ElseIf Cells(zeileAusw, 4) like "Bedinung* "then

...


Gruß Daniel

Anzeige
AW: Teil-String bei Select Case
06.06.2024 11:32:24
earlycon
Hi Daniel,

vielen Dank auch Dir. Ich habe gerade schon bei Thorsten geschrieben, dass ich beim Case... (obwohl genauso geschrieben) einen "Anwendungs- oder objektdefinierter Fehler" erhalte. Kann ich mir nicht erklären...

Viele Grüße
Stefan
;

Forumthreads zu verwandten Themen

Per VBA ohne select sortieren
Steffen


Hallo
gibt es eine Möglichkeit ala :
Rows("2:500").Sort Key1:=Range("A3"), Order1:=xlDescending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom (Dies lößt ein VBA Fehler aus)
eine Tabelle zu sortieren ich konnte das sortieren bisher immer n...
29.10.2008 12:16:00
Thread-ID: 1020228
4 Beiträge
InputBox oder Select Case
BerndM

Hallo Freaks,
ich habe nachstehenden Code, der an sich funktioniert, nur leider keine Prüfung vornimmt, ob die Eingabe korrekt erfolgt ist. Wie BITTE muss der Code ergänzt werden, um dies zu gewährleisten?
Vielen Dank vorab f.d. Hilfe.
Die Datei https://www.herber.de/bbs/user/61719....
10.05.2009 17:41:07
Thread-ID: 1074180
6 Beiträge
Code mir Select Case optimieren
Edie

Hallo zusammen,
würde gerne den nachfolgenden Code optimieren. Aber wie?
Kann mir jemand dabei helfen?
Sub Test() Dim Bereich As Range Set Bereich = Range("A1") Select Case Bereich Case Is = 7 ActiveCell.Offset(0, 1).Value = ActiveCell.Value / 7 ActiveCell.Offset(1, 1).Value = Act...
03.06.2009 16:04:11
Thread-ID: 1078904
4 Beiträge
Zeitwerte in Select Case
Marcel

Hallo Zusammen,
ich habe ein Problem und zwar möchte ich für unsere Firma ein kleines Telefon-Auswertungs-Programm schreiben in der die Gesprächsdauer einer bestimmten Nummer ausgewertet wird.
Die Gesprächsdauer wird von jedem Anruf in einer Datenbank protokolliert.
Ich habe nun die...
04.08.2009 12:33:06
Thread-ID: 1093460
12 Beiträge
Zeitwerte in Select Case
Marcel

Hallo Zusammen,
ich habe ein Problem und zwar möchte ich für unsere Firma ein kleines Telefon-Auswertungs-Programm schreiben in der die Gesprächsdauer einer bestimmten Nummer ausgewertet wird.
Die Gesprächsdauer wird von jedem Anruf in einer Datenbank protokolliert.
Ich habe nun die...
04.08.2009 13:07:33
Thread-ID: 1093496
4 Beiträge
aus If Abfrage - SelectCase Abfrage
Peter

Hallo,
wie erstellt man aus der den If Abfragen Select Case Abfragen?
(zur besseren Übersicht)
Danke Peter
Sub BenannteZellensuche() Dim benannteBereiche As Object Dim VglName As String For Each benannteBereiche In ThisWorkbook.Names VglName = benannteBereiche.Name If InStr(VglN...
31.10.2009 01:06:07
Thread-ID: 1113433
2 Beiträge
Anzeige
VBA - Case bringt alles durcheinander
Günther

Hallo,
anhand der Beispielmappe können Fachleute sicherlich nachvollziehen, welches Problem ansteht.
Ich war bis zum Einbau der SELECT CASE Geschichte bei Comboboxen sehr zufrieden. Allerdings war mein Gedanke die Anwendung so bedienerfreundlich als möglich zu erstellen. Dazu wollte ic...
12.11.2009 20:26:26
Thread-ID: 1116669
21 Beiträge
Anzeige
Case Select Rückgabe
Andy

Hallo Leute,
ich habe ein Problem mit Select Case, leider bekomm ich nicht die gewünschten Meldungen. Kann mir hier jemand weiterhelfen. Als Meldung bekomm ich bei Y Y immer Auto, ansonsten XXX/YYY.
Kann mir jemand sagen was ich falsch mache, ich steh grad voll auf dem Schlauch. Meiner...
10.09.2010 12:25:33
Thread-ID: 1176837
3 Beiträge
Änderung Code Select Case
Claudia

Hallo zusammen,
ich nutze folgendes Makro, mit Hilfe aus dem Forum. Private Sub färben() Application.ScreenUpdating = True ' Fülfarbe ' für Schrift RaZelle.Font.ColorIndex Dim RaBereich As Range ' Variable für Bereich Dim RaZelle As Range ' Variable für Z...
20.10.2010 11:42:51
Thread-ID: 1183166
9 Beiträge
Button merken... Select Case
abu

Hallo zusammen,
habe folgendes Problem und hoffe auf einen Loesungsansatz.
Mit hilfe eines Buttons wird man durch ein Menu gefuehrt und kehrt anschliessend wieder zum Ausgangspunkt zurueck.
Nun moechte ich das gleiche nochmal machen allerdings mit einigen Aenderungen im Code. Da ich...
21.12.2010 16:56:41
Thread-ID: 1192406
5 Beiträge
Variable Select Case-Funktion
Stefan

Hallo zusammen
Auch in diesem Jahr hoffe ich auf eure Unterstützung:
In einer vorhandenen Pendenzenliste habe ich bedingte Formatierungen mit Select Case eingerichtet, welche einwandfrei funktionieren. Dabei können in Abhängigkeit der Personenauswahl und Status 6 verschiedene Farben, Sc...
20.01.2011 18:58:03
Thread-ID: 1196618
9 Beiträge
If ElseIf oder Select Case? Hilfe!....
Lars

Hallo Liebe Excelgemeinde,
ich benötige nochmal von Euch Hilfe. Ich habe eine Listbox auf einer Userform, in welcher welcher per Multiselect-Auswahl einzelne, oder mehrere Datensätze ausgewählt werden können. Die dafür erforderlichen Daten befinden sich in einem Tabellenblatt "Daten" der Ar...
14.08.2011 15:43:01
Thread-ID: 1226038
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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