Arbeiten mit Select Case

Hallo Hans,

du musst auch nicht bei jedem Case der Zelle einen Wert zuweisen. Weise jedem Case einen String zu und nach der Select-Anweisung weist du diesen String der Zelle zu, also z.B.:

Dim myStr As String

Select Case Cells(2, 1).Value

   Case 5

      myStr = "nicht bestanden"

   Case 4

      myStr = "Ausreichend"

   Case 3

      myStr = "Befriedigend"

   Case 2

      myStr = "Gut"

   Case 1

      myStr = "Ausgezeichnet"

End Select
Cells(2, 2) = myStr

Claus

alles bestens ....... danke für Deine Bemühungen ...... Gruss Hans

Hallo Hans,

lass die Anführungszeichen bei den Cells weg. In die Klammern gehört nur die Zeilen- und nach dem Komma die Spaltennummer, also z.B. Cells(2,1)

Claus

Hallo Hans,

du musst auch nicht bei jedem Case der Zelle einen Wert zuweisen. Weise jedem Case einen String zu und nach der Select-Anweisung weist du diesen String der Zelle zu, also z.B.:

Dim myStr As String

Select Case Cells(2, 1).Value

   Case 5

      myStr = "nicht bestanden"

   Case 4

      myStr = "Ausreichend"

   Case 3

      myStr = "Befriedigend"

   Case 2

      myStr = "Gut"

   Case 1

      myStr = "Ausgezeichnet"

End Select
Cells(2, 2) = myStr

Claus

Hallo Hans,

lass die Anführungszeichen bei den Cells weg. In die Klammern gehört nur die Zeilen- und nach dem Komma die Spaltennummer, also z.B. Cells(2,1)

Claus

Herzlichen Dank Claus .....

Wie kann man(n) ...... nur ...... kurz nachdem ich senden an die MC gedrückt hatte, sah ich die

"überflüssigen" Gänsefüsschen .......

Freundlicher Gruss

Hans

Hallo Jürgen,

wenn du das aktive Workbook nicht nur speicherst, sondern auch schließt, kann die txt-Datei gelöscht werden. Also setzte in deinem Select Case Block noch jeweils ein ActiveWorkbook.Close dahinter.

Select Case Val(Application.Version)

Case 8 To 11

ActiveWorkbook.SaveAs Filename:="c:\_Kettler\Dateien\Inventur.xls", FileFormat:=xlWorkbookNormal

ActiveWorkbook.Close

Shell "Explorer.exe /select, c:\_Kettler\Dateien\Inventur.xls", vbNormalFocus

Case 12, 13

ActiveWorkbook.SaveAs Filename:="c:\_Kettler\Dateien\Inventur.xlsx", FileFormat:=xlOpenXMLWorkbook

ActiveWorkbook.Close

Shell "Explorer.exe /select, c:\_Kettler\Dateien\Inventur.xlsx", vbNormalFocus

End Select

Mit freundlichen Grüßen

Claus