VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Werte in zweiter Tabelle in anderer Reihenfolge darstellen

Gruppe

Funktion

Bereich

SVERWEIS

Thema

Werte in zweiter Tabelle in anderer Reihenfolge darstellen

Problem

Die Werte aus Spalte A werden in Spalte C in der Reihenfolge gem. Spalte B dargestellt.

Lösung

Darstellung nur anhand einer Beispielarbeitsmappe möglich.




ClassModule: frmAlign

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub UserForm_Initialize()
   Dim arr(1 To 10, 1 To 3)
   Dim iRow As Integer, iCol As Integer
   For iRow = 1 To 10
      For iCol = 1 To 3
         If iCol = 2 Then
            arr(iRow, iCol) = String(8 - _
               Len(Cells(iRow, iCol).Text), " ") & _
               Cells(iRow, iCol).Text
         Else
            arr(iRow, iCol) = Cells(iRow, iCol)
         End If
      Next iCol
   Next iRow
   lstAlign.List = arr
End Sub

StandardModule: Modul1

Sub CallForm()
   frmAlign.Show
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Funktion und SVERWEIS