Office: Select Case mit String

Barbara123 · 29. März 2010

Hallo,

ich hab das Problem dass ich nicht die ersten drei Buchstaben des Strings feststellen kann welches aus einem Excel Sheet gelesen wird
hier zunächst mein Quellcode:

Code:

For i = 1 To .UsedRange.Rows.Count

Select Case Cells(i, 5)

Case "Getriebe"
'CODE
Case "ABS"
'CODE
'für die ersten 3 Buchstaben des Strings
'habe ich folgendes schon ausprobiert
'1. Case Left(.Cells(i, 5), 3) = "ESP" ' falsch
'2. Case .Subroutine (0,3) = "ESP" ' fehlermeldung
'3. Case. .StartsWith (0,3) = "ESP" ' fehlermeldung

'Der String ESP beinhaltet in der Tabelle mehr als 3 Buchstaben.
z.B ESP2345E34N

Next i
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gibt es denn eine andere funktionierende Methode womit ich nur die ersten 3 buchstaben aus der excel tabelle auslesen kann?

danke für die Hilfe

:)

pefeu · 31. März 2010

Hallo Barbara,

warum versuchst Du es nicht so:

Option Explicit

Public Sub Test()

Dim i As Integer

For i = 1 To .UsedRange.Rows.Count

Select Case Left(Cells(i, 5).Value, 3)
Case "Get"
'CODE
Case "ABS"
'CODE
Case "ESP"
'Code
End Select

Next i

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code eingefügt mit

Barbara123 · 31. März 2010

Hallo Peter,

problem ist das nicht bei jedem Case auf 3 Buchstaben abgeschnitten werden soll. mal 2 Buchstaben, mal 5 Buchstaben ,

ich dacht es gibt vielleicht ne möglichkeit dies im select case abzufragen,

naja ich hab das jetzt etwas umständlicher gelöst

trotzdem danke

Office: Select Case mit String

Select Case mit String

Select Case mit String

Select Case mit String - Similar Threads - Select Case String

select Case mehrere Bedingungen ??

Instr() und select case

Select Case Problem (weitere Bedingung einfügen)

Select Case statt mehrere IF Anweisungen?

Select Case Abfrage

vba Zeilenhöhe und breite, Format ändern in select case sche

Dropdown / SVerweis / Select Case?