VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Nach DropDown-Auswahl Währungswerte umstellen

Gruppe

Feature

Bereich

Gültigkeit

Thema

Nach DropDown-Auswahl Währungswerte umstellen

Problem

Über Dropdownfeld-Auswahl in Zelle E2 werden die Werte aus der ausgeblendeten Spalte A wahlweise in EURO oder USD dargestellt.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.




StandardModule: basMain

Sub Zufall()
   Dim rngA As Range
   Dim iRow As Integer, iZufall As Integer
   Randomize
   iRow = Selection.Rows.Count
   Columns(2).ClearContents
   For Each rngA In Selection.Cells
      iZufall = Int((iRow * Rnd) + 1)
      Do While Not IsEmpty(Cells(iZufall, 2))
         iZufall = Int((iRow * Rnd) + 1)
      Loop
      Cells(iZufall, 2).Value = rngA.Value
    Next rngA
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Feature und Gültigkeit