VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Daniel	Datum: 13.08.2015 10:03:49	Views: 1134	Rating:	Antwort:
Thema: Array?
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

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen