Thema Datum  Von Nutzer Rating
Antwort
17.05.2019 15:54:18 Samuel
NotSolved
17.05.2019 16:14:42 Mackie
NotSolved
Rot Zahl Wertebereich zuordnen
 17.05.2019 19:21:39 Gast55677
NotSolved

Ansicht des Beitrags:
Von:
Gast55677		 Datum:
17.05.2019 19:21:39		 Views:
443		 Rating:
     
Antwort:
  Ja
Thema:
Zahl Wertebereich zuordnen

flexibler

Sub Test()
Dim arrS, arrW
Dim c As Range
Dim x As Long

   arrS = Array(1.5, 4, 10, 20)
   arrW = Array(100, 90, 60, 20, 1)
   
   For Each c In ActiveSheet.UsedRange.Columns(1).Cells
      For x = LBound(arrS) To UBound(arrS)
         If c.Value < arrS(x) Then Exit For
      Next x
      If x > UBound(arrS) Then
         c.Offset(, 1).Value = arrW(UBound(arrW))
      Else
         c.Offset(, 1).Value = arrW(x)
      End If
   Next c
   
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

Thema Datum  Von Nutzer Rating
Antwort
17.05.2019 15:54:18 Samuel
NotSolved
17.05.2019 16:14:42 Mackie
NotSolved
Rot Zahl Wertebereich zuordnen
 17.05.2019 19:21:39 Gast55677
NotSolved