Transponieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Karel,
Soll

Artikelnummer

Breite

Tiefe

Höhe

Sitztiefe

Sitzhöhe

Armlehnenhöhe

Anlieferung

Ausführung

Farbe

Herstellung

Material

Oberfläche

10000

ca. 47cm

ca. 40cm

ca. 59cm

ca. 33cm

ca. 32cm

Rattan

10001

ca. 30 cm

ca. 40 cm

Teakholz

naturbelassen

10002

ca. 50 cm

ca. 57 cm

ca. 100 cm

ca. 43 cm

ca. 50 cm

1 Teil

weiß

Rattan

10003

ca. 50 cm

ca. 57 cm

ca. 100 cm

ca. 43 cm

ca. 50 cm

1 Teil

natur

Rattan

10004

ca. 67 cm

ca. 69 cm

ca. 86 cm

ca. 45 cm

ca. 48 cm

ca. 67 cm

1 Teil

natur

Rattan

10005

ca. 48 cm

ca. 60 cm

ca. 90 cm

ca. 47 cm

Massivholz

natur

handgefertigt

Teak recycelt

unbehandelt

10006

ca. 48 cm

ca. 28 cm

ca. 48 cm

Massivholz

natur

handgefertigt

Teakholz recycelt

unbehandelt

Formeln der Tabelle

Zelle	Formel
B2	{=WENN(ISTFEHLER(VERGLEICH($A2&B$1;Ist!$A$2:$A$1000&Ist!$B$2:$B$1000;0)); "";INDEX(Ist!$C$2:$C$1000;VERGLEICH($A2&B$1;Ist!$A$2:$A$1000&Ist!$B$2:$B$1000;0)))}

Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!

Matrix verstehen

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

« Gruß Sepp »

Hallo Karel,
VBA geht natürlich auch.

Sub transposeList()
  Dim rng As Range
  Dim vntRet As Variant
  Dim strFirst As String
  Dim lngRow As Long

  Dim lngCalc As Long

  On Error GoTo ErrExit

  With Application
    .ScreenUpdating = False
    .EnableEvents = False
    lngCalc = .Calculation
    .Calculation = -4135
    .DisplayAlerts = False
  End With

  With Sheets("Soll")
    For lngRow = 2 To Application.Max(2, .Cells(.Rows.Count, 1).End(xlUp).Row)
      Set rng = Nothing
      strFirst = ""
      Set rng = Sheets("Ist").Columns(1).Find(What:=.Cells(lngRow, 1), LookIn:=xlValues, _
        LookAt:=xlWhole, MatchCase:=False, After:=Sheets("Ist").Cells(1, 1))
      If Not rng Is Nothing Then
        strFirst = rng.Address
        Do
          vntRet = Application.Match(rng.Offset(0, 1), .Rows(1), 0)
          If IsNumeric(vntRet) Then
            .Cells(lngRow, vntRet) = rng.Offset(0, 2).Value
          End If
          Set rng = Sheets("Ist").Columns(1).FindNext(rng)
        Loop While Not rng Is Nothing And strFirst <> rng.Address
      End If
    Next
  End With

  ErrExit:

  With Err
    If .Number <> 0 Then
      MsgBox "Fehler in Prozedur:" & vbTab & "'transposeList'" & vbLf & String(60, "_") & _
        vbLf & vbLf & IIf(Erl, "Fehler in Zeile:" & vbTab & Erl & vbLf & vbLf, "") & _
        "Fehlernummer:" & vbTab & .Number & vbLf & vbLf & "Beschreibung:" & vbTab & _
        .Description & vbLf, vbExclamation + vbMsgBoxSetForeground, _
        "VBA - Fehler in Prozedur - transposeList"
      .Clear
    End If
  End With

  On Error GoTo 0

  With Application
    .ScreenUpdating = True
    .EnableEvents = True
    .Calculation = lngCalc
    .DisplayAlerts = True
    .StatusBar = False
  End With

  Set rng = Nothing
End Sub

« Gruß Sepp »

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread