AW: Select Case mit Rest
13.10.2011 08:07:49
Reinhard
Hallo Det,
bitte gib immer an in welcher Zeile der Fehler kommt.
Probiere mal nachfolgenden Code, was wird im Fehlerfall anhgezeigt?
Gruß
Reinhard
Sub SchichtADAT1()
'D.Krüger
'Dimmensionierung der Variablen
Dim Zeile As Long 'Zeilenvariable
Dim Spalte As Long 'Spaltenvariable
Dim anfSpalte As Long 'Anfang der Spalte
Dim anfZeile As Long 'Anfang der Zeile
Dim endeZeile As Long 'Ende Zeile
Dim endeSpalte As Long 'Ende Spalte
Dim AktZeile As Long 'Aktuelle Zeile
Dim AktSpalte As Long 'Aktuelle Spalte
Dim ZeileDatum As Long 'Zeile wo Datum steht
Dim N As Integer
anfSpalte = 6 'Anfangswert der Spalte
endeSpalte = 371 'Ende der Schleife bei Spalte
anfZeile = 5 'Anfangswert der Zeile
endeZeile = 8 'Ende der Schleife bei Zeile
ZeileDatum = 8 'Zeile wo Datum steht
On Error GoTo hell
For Spalte = anfSpalte To endeSpalte 'Schleife für Spalte
For Zeile = anfZeile To endeZeile 'Schleife für Zeile
Select Case Cells(Zeile, Spalte).Value Mod 28
Case 16, 17, 25, 26, 6, 7
'Färbe das selectierte Feld hellgelb
Cells(Zeile, Spalte).Interior.ColorIndex = 36
Cells(Zeile, Spalte).Font.ColorIndex = 1
Case 18, 19, 27, 0, 9, 10
'Färbe das selectierte Feld gelbbraun
Cells(Zeile, Spalte).Interior.ColorIndex = 40
Cells(Zeile, Spalte).Font.ColorIndex = 1
Case 20, 21, 2, 3, 11, 12
'Färbe das selectierte Feld hellgrün
Cells(Zeile, Spalte).Interior.ColorIndex = 35
Cells(Zeile, Spalte).Font.ColorIndex = 1
Case 23, 24, 4, 5, 13, 14
'Färbe das selectierte feld blassblau
Cells(Zeile, Spalte).Interior.ColorIndex = 37
Cells(Zeile, Spalte).Font.ColorIndex = 1
Case 22, 1, 8, 15
'Färbe das selectierte Feld hellrosa
Cells(Zeile, Spalte).Interior.ColorIndex = 38
Cells(Zeile, Spalte).Font.ColorIndex = 1
End Select
Next Zeile
Next Spalte
Exit Sub
hell:
MsgBox "Zei: " & Zeile & Chr(10) & "Spa: " & Spalte & Chr(10) & "Wert: " & Cells(Zeile, Spalte). _
Value
For N = 1 To Len(Cells(Zeile, Spalte).Value)
MsgBox Asc(Mid(Cells(Zeile, Spalte).Value, N, 1))
Next N
End Sub