Liebe Forenmitglieder,
ermutigt von der mir geleisteten großartigen Hilfe möchte ich ein VBA Problem schildern, das ich mit meinen Makro Kenntnissen bisher nicht lösen konnte.
In einer Tabelle seien ab Zeile 6 die Spalten 1-7 mit Werten gefüllt, es können zukünftig aber noch mehr Spalten mit Werten dazukommen. Diese würde ich aber auf einem anderen Blatt speichern, sodass meine Prozedur möglichst flexibel bleiben sollte, also mit variablen Zellbezügen.
Anbei meine bisherige Prozedur:
Sub Auswertung_Zbereiche()
Dim ObjCells As Object
Dim i As Integer
Dim i2 As Integer
Dim k As Integer
i2 = ActiveSheet.UsedRange.Rows.Count
k = Cells(6, Columns.Count).End(xlToLeft).Column + 1
MsgBox "Erste freie Zelle in Zeile 6 ist in Spalte: " & k
For i = 1 To i2
Cells(i, 1).Select
Set ObjCells = ActiveCell
Select Case ObjCells.Value
Case 1 To 5
Cells(i, k) = 1
Case 6 To 9
Cells(i, k) = 2
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
Wie kann man k dazu veranlassen die wirklich nächste freie Spalte, die die MessageBox auch ausgibt, für die Rangfolgeauswertung zu benutzen.