Microsoft Excel

Herbers Excel/VBA-Archiv

Liste für Import bearbeiten

Betrifft: Liste für Import bearbeiten von: Michael Dockhorn
Geschrieben am: 26.03.2007 10:28:03

Hallo,
ich hatte mein Problem vor einiger Zeit schon mal gepostet, aber leider hatte ich keine für mich praktikable Lösung finden können. Ich versuche es also noch mal – ich versuche das Problem deutlich zu beschreiben:

Ich habe eine Liste mit folgendem Tabellenaufbau:

PNR NAME LOA 100 LOA 200 LOA 300 LOA 301 LOA 302 LOA 303
111 Testmann 250,00 € 150,00 € 50,00 € 100,00 € 200,00 €
222 Musterfrau 100,00 € 1.000,00 €
333 BeispielAzubi 50,00 € 90,00 € 150,00 €

Anzahl der LOA kann nach rechts flexibel sein, ist aber im Moment auf 10 beschränkt. Nach unten ist die Liste ebenfalls in der Länge flexibel.

Ich möchte die Liste nun so umsortieren, dass ich die LOA jeweils als Eintrag in der Zeile habe und davor der entsprechende Name und die Personalnummer, leere LOA können weggelassen werden:

PNR NAME LOA Wert
111 Testmann LOA 100 250,00 €
111 Testmann LOA 200 150,00 €
111 Testmann LOA 300 50,00 €
111 Testmann LOA 302 100,00 €
111 Testmann LOA 303 200,00 €
222 Musterfrau LOA 100 100,00 €
222 Musterfrau LOA 300 1.000,00 €
222 Musterfrau LOA 303 100,00 €
333 BeispielAzubi LOA 100 50,00 €
333 BeispielAzubi LOA 200 90,00 €
333 BeispielAzubi LOA 300 150,00 €

Mir schwebt eine Lösung per VBA vor, aber leider fehlt mir hier eine Idee wie ich da vorge-hen kann. Ich hoffe Ihr könnt mir helfen.

Micha

  


Betrifft: AW: Liste für Import bearbeiten von: Oberschlumpf
Geschrieben am: 26.03.2007 10:45:14

Hi Michael

Gut wäre eine Bsp-Datei von dir, in der du

...einige Zeilen so reinschreibst, wie es jetzt aussieht
...und einige Zeilen reinschreibst, wie es aussehen soll
...einige Erklärungen in der Datei wären auch nicht schlecht

Ciao
Thorsten


  


Betrifft: AW: Liste für Import bearbeiten von: Michael Dockhorn
Geschrieben am: 26.03.2007 11:07:21

Hallo Thorsten,

Hier ist mal eine Beispieldatei. Ich müsste noch erwähnen, dass ich die umsortierten Daten gern in einem anderen Sheet hätte.

Micha

https://www.herber.de/bbs/user/41393.xls


  


Betrifft: AW: Liste für Import bearbeiten von: Rudi Maintaire
Geschrieben am: 26.03.2007 10:52:32

Hallo,
  Sub tt()
     Dim lngRow As Long, iCol As Integer
     Dim wksQuelle As Worksheet, wksZiel As Worksheet
     Application.ScreenUpdating = False
     Set wksQuelle = Sheets(1)
     Set wksZiel = Sheets(2)
     For lngRow = 2 To wksQuelle.Cells(Rows.Count, 1).End(xlUp).Row
        For iCol = 3 To wksQuelle.Cells(lngRow, 255).End(xlToLeft).Column
           With wksZiel.Cells(Rows.Count, 1).End(xlUp)
              .Offset(1, 0) = wksQuelle.Cells(lngRow, 1)
              .Offset(1, 1) = wksQuelle.Cells(lngRow, 2)
              .Offset(1, 2) = wksQuelle.Cells(1, iCol)
              .Offset(1, 3) = wksQuelle.Cells(lngRow, iCol)
           End With
        Next iCol
     Next lngRow
     Application.ScreenUpdating = True
  End Sub
  

Gruß
Rudi

Eine Kuh macht Muh, viele Kühe machen Mühe


  


Betrifft: AW: Liste für Import bearbeiten von: Michael Dockhorn
Geschrieben am: 26.03.2007 11:11:29

Hallo Rudi,

vielen Dank für den Code, habe ihn noch ein bischen angepasst, so dass es jetzt prima funzt.

Danke!

Micha


 

Beiträge aus den Excel-Beispielen zum Thema "Liste für Import bearbeiten"