Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
856to860
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
856to860
856to860
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Liste für Import bearbeiten

Liste für Import bearbeiten
26.03.2007 10:28:03
Michael
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

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

Betreff
Datum
Anwender
Anzeige
AW: Liste für Import bearbeiten
26.03.2007 10:45:00
Oberschlumpf
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
AW: Liste für Import bearbeiten
26.03.2007 11:07:00
Michael
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
AW: Liste für Import bearbeiten
26.03.2007 10:52:32
Rudi
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
Anzeige
AW: Liste für Import bearbeiten
26.03.2007 11:11:29
Michael
Hallo Rudi,
vielen Dank für den Code, habe ihn noch ein bischen angepasst, so dass es jetzt prima funzt.
Danke!
Micha

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige