Hallo Forum,
ih bin ein in VBA noch niht besonders fit, sodass ich bisher den Fehler in meiner folgenden Prozedur nicht finden konnte. Ich mache eine SelectCase Auswertung von Zahlen zwischen 1 und Hundert, die ich in Gruppierungen einteilen möchte. Diese Gruppierungen möchte ich aber nicht 1 bis 7 benennen sondern a bis g.
Option Explicit
Sub Auswertung_Zbereiche()
Dim a, b, c, d, e, f, g As String
Dim ObjCells As Object
Dim i As Integer
Dim i2 As Integer
Dim k As Integer
'i2 = ActiveSheet.UsedRange.Rows.Count
i2 = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 'Maximum Zeile ermitteln
k = Cells(6, Columns.Count).End(xlToLeft).Column + 1 'nächste freie Spalte in Zeile 6
MsgBox "Erste freie Zelle in Zeile 6 ist in Spalte: " & k
For i = 1 To i2
Set ObjCells = Cells(i, 4)
Select Case ObjCells.Value
Case 1 To 5
Cells(i, k) = 1 'a würde nicht ausgeführt werden
Case 6 To 9
Cells(i, k) = 2 'b würde nicht ausgeführt werden
Case 10 To 13
Cells(i, k) = 3
Case 14 To 16
Cells(i, k) = 4
Case 17 To 18
Cells(i, k) = 5
Case 19 To 20
Cells(i, k) = 6
Case 21 To 100
Cells(i, k) = 7
End Select
Next i
End Sub |