Array-Beschleuniger gesucht
Franz
Ist so etwas OK oder kann man dies noch beschleunigen?
Ich verstecke den Wert 1,2 oder 3 (byL) in Cells(30,2) in Abhängigkeit des Tabellennamens.
Sub VersionSuche
Dim byL as byte
For i = 1 To Worksheets.Count
If Sheets(i).Name = "Einstellungen" Then
byL = 1 'German
With Sheets(i).Cells(30, 2)
.Name = "cellL"
.Value = byL
.NumberFormat = """"""
End With
Exit For
End If
If Sheets(i).Name = "MySettings" Then
byL = 2 'Englisch
With Sheets(i).Cells(30, 2)
.Name = "cellL"
.Value = byL
.NumberFormat = """"""
End With
Exit For
End If
If Sheets(i).Name = "Paramètres" Then
byL = 3 'French
With Sheets(i).Cells(30, 2)
.Name = "cellL"
.Value = byL
.NumberFormat = """"""
End With
Exit For
End If
Next i
End Sub
Tschüss.Franz D.