Sortieren von Tabellenblättern nach Zelleninhalt
13.11.2005 13:20:49
Christoph
ich will meine Tabellenblätter sortieren, jedoch nicht nach dem Namen des Tabellenblattes sondern nach Zelleninhalt.
In jedem Tabellenblatt steht in der betreffenden Zelle eine Spannung in der Form XkV, wobei X für einen Spannungswert steht. Die Tabellenblätter sollen nun aufsteigend sortiert werden.
Mein Vorschlag sieht so aus
Public
Sub Sort_Sheets()
Dim merk As Integer, i As Integer, j As Integer, max As Integer, spannnung_1 As Integer, spannung_2 As Integer
max = Sheets.Count
For i = 1 To max - 1
merk = i
For j = i + 1 To max
spannung_1 = Val(Left$(Sheets(merk).Cells(1, 2), InStr(1, Sheets(merk).Cells(1, 2), "k") - 1))
spannung_2 = Val(Left$(Sheets(j).Cells(1, 2), InStr(1, Sheets(j).Cells(1, 2), "k") - 1))
If spannung_1 > spannung_2 Then
merk = j
End If
Next j
If merk > i Then Sheets(merk).Move Sheets(i)
Next i
End Sub
Funktioniert leider nicht. Bisher habe ich den Fehler noch nicht gefunden. Kann mir jemand helfen?
Gruß
Christoph