Zelleninhalt umdrehen
02.11.2003 09:42:26
Max M.
habe folgendes Makro, dass aber leider nur den aktiven Zelleninhalt umdreht
Sub umdrehen()
neu = ""
Dim alt As String
Dim LoI As Long
alt = ActiveCell.Value
For LoI = Len(alt) To 1 Step -1
If IsNumeric(Mid(alt, LoI, 1)) = False Then
neu = Mid(alt, LoI + 1, Len(alt) - LoI) & Mid(alt, 1, LoI)
Exit For
End If
Next LoI
ActiveCell.Value = neu
End Sub
Kann mir einer von Euch das Makro neu Schreiben, dass alle diese Zelleninhalte
For J = 1 To 10 Step 2 'Zeile 1 bis Zeile 10
For i = 1 To 11 Step 1 'Spalte 1(A) bis Spalte 11(K)
umgedreht werden???
Max M.