ich hab mal ne kurze Frage.
Wenn ich schreibe:
Sub
if xxx = 100 and yyy = 100 and aaa = 100 and bbb = 100
End sub
dann kann ich das ja theoretisch xbeliebig lange fortsetzen. Gibt's da ne Abkürzung?
Dank im Voraus
Geir
dim arr
arr = array(xxx, yyy, aaa, bbb)
if Worksheetfunction.Min(arr) = 100 and Worksheetfunction.Max(arr) = 100 then
in bezug auf die Performance wäre hier sogar die "Verlängerung" sinnvoll:
If xxx = 100 Then
if yyy = 100 Then
if aaa = 100 then
if bbb = 100 then
Option Explicit
Public Sub test()
Dim objOLEObject As OLEObject
With ActiveSheet
For Each objOLEObject In .OLEObjects
With objOLEObject
If .progID = "Forms.Frame.1" Then _
If .Object.BackColor = RGB(155, 190, 21) Then _
Exit For
End With
Next
If Not objOLEObject Is Nothing Then _
.Label1.Visible = True
End With
End Sub