Hallo zusammen,
bitte um einen kleinen Tipp.
Wie kann ich den if-Block mit den ganzen elseif-Befehlen effizienter und kürzer gestalten?
Vielleicht mit einem Array? Wenn ja, könnt ihr mir sagen wie ich das einbaue?
Danke schonmal.
Mein Code ist Folgender:
Sub equalizer()
Dim a As Integer
Dim i As Long
' Die Werte zur letzten Zeile und letzten Spalte
maxL = Cells(Rows.Count, 1).End(xlUp).Row ' Letzte Zeile
maxS = Cells(1, Columns.Count).End(xlToLeft).Column ' Letzte Spalte
' Hier wird der Bildbereich durchlaufen der durchsucht werden soll
For a = 1 To maxS
If Cells(1, a) Like "*Menge*" Then
For i = 2 To maxL
If Cells(i, a) = "0,1" Then
Cells(i, a) = "ARSCH"
ElseIf Cells(i, a) = "0,01" Then
Cells(i, a) = "ARSCH"
ElseIf Cells(i, a) = "0" Then
Cells(i, a) = "ARSCH"
ElseIf Cells(i, a) = "00" Then
Cells(i, a) = "ARSCH"
End If
Next i
End If
Next
End Sub |