ich möchte, wenn möglich, 2 unterschiedliche Spalten in einer Schleife abarbeiten lassen.
Hier mein Code:
Sub TextinSpalten()
' es werden die Textformatierten Zellen in Zahlen umgewandelt
Dim z As Range, lLetzteT1 As Long
Set wksT1 = Worksheets("Temp1")
lLetzteT1 = IIf(wksT1.Range("B65536") <> "", 65536, wksT1.Range("B65536").End(xlUp).Row)
For Each z In wksT1.Range("B1:B" & lLetzteT1)
z.Value = z.Value * 1
Next z
End Sub
In "Range("G1:G2" & lLetzteT1)" soll das gleiche ablaufen wie schon in Spalte "B".
Einige Schreibweisen habe ich schon versucht aber... oder bleibt mir nichts anderes üblich als eine zusätzlich neue "Sub" zu erstellen.
Mir geht es hierbei lediglich um die Schnelligkeit der Abarbeitung.
Gruß Korl