Inhalte einfügen - transponieren

Computer: Software & Programmierung Office Software
1

Folgendes Problem:

In Spalte A stehen die Zahlen 1 bis n. Jede Zahl kommt unterschiedlich oft vor.
In Spalte B stehen werte zu diesen Zahlen

Nun sollen die Werte aus der Spalte B in die Spalten C bis D oder auch mal Z an die erste Zahl der Spalte A kopiert werden. Jeweils mit Inhalte einfügen – Transponieren ist mir aber zu mühselig.

Kennt jemand eine Makromöglichkeit, das die Werte kopiert und Transponiert und dabei einen Wechsel der Zahl in A erkennt?

Danke und Gruß
Ingmar Schumann

2

Entschuldige aber bitte formulier das nochmal um.

Ich habe leider keinen Dunst, wie du jetzt was wohin verschieben willst

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

3

Neuer Versuch:
Eine Tabelle enthält z.B. name, vorname, geb.dat, kennnummer (eindeutig zur Person zuzuordnen) und Bemerkungen.
Leider wurde für jede neue Bemerkung ein neuer Satz mit name vorname, geb.dat, kennnummer neu in die nächste Zeile geschrieben.
Somit habe ich zu jeder Kennummer unterschiedlich viele Sätze. Nun möchte ich für jeden Kennummer nur noch einen Satz und die Bemerkung aus dem 2. Satz rechts neben die Bemerkung aus dem 1. Satz usw.

Kopieren, Inhalte einfügen - Transponieren, überflüssige Sätze löschen klappt gut aber wenn ich das bei 1500 Personen von Hand machen will, brauche ich ne Woche dafür.

Ich brauche nun etwas, was den Bereich rechts neben der Kennummer unter Bemerkungen kopiert und transponiert, neben dem ersten Satz einfügt und merkt, wenn eine neue Kennnummer beginnt und da fortfährt. ggf. auch noch die nun überflüssigen Sätze löscht.

Hoffe mal, es ist nun verständlich

Mit freundlichen Grüßen

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

4

Hui - Keine Ahnung
ja das ist jetzt verständlicher,

allerdings kann ich dir da leider nicht weiter helfen.

Da musst du mit VBA-Schleifen arbeiten und da kenne ich mich leider noch nicht mit aus.

Gruß Max

5

Hallo Ingmar,

folgendes Makro führt die gewünschten Aktionen aus. Du muß ggf. noch die Startzeiel und die Spaltennummern für Kennnummer und Bemerkung anpassen.

Gruß
Farnz

Sub Bemerkungen()
 Dim wks As Worksheet, Zeile As Long, SpalteK As Integer, SpalteB As Integer, SpalteBem As Integer
 Set wks = ActiveSheet
 Zeile = 2 ' 1. Zeile mit daten
 SpalteK = 4 ' Spalte mit dem Kennnummer
 SpalteB = 5 ' Spalte mit Bemerkungen
 Do Until IsEmpty(wks.Cells(Zeile, SpalteK))
 KennNr = wks.Cells(Zeile, SpalteK)
 SpalteBem = SpalteB + 1
 Do Until KennNr wks.Cells(Zeile + 1, SpalteK)
 wks.Cells(Zeile, SpalteBem) = wks.Cells(Zeile + 1, SpalteB)
 SpalteBem = SpalteBem + 1
 wks.Rows(Zeile + 1).Delete
 Loop
 Zeile = Zeile + 1
 Loop
End Sub

Neuer Versuch:
Eine Tabelle enthält z.B. name, vorname, geb.dat, kennnummer
(eindeutig zur Person zuzuordnen) und Bemerkungen.
Leider wurde für jede neue Bemerkung ein neuer Satz mit name
vorname, geb.dat, kennnummer neu in die nächste Zeile
geschrieben.
Somit habe ich zu jeder Kennummer unterschiedlich viele Sätze.
Nun möchte ich für jeden Kennummer nur noch einen Satz und die
Bemerkung aus dem 2. Satz rechts neben die Bemerkung aus dem

  1. Satz usw.

Ich brauche nun etwas, was den Bereich rechts neben der
Kennummer unter Bemerkungen kopiert und transponiert, neben
dem ersten Satz einfügt und merkt, wenn eine neue Kennnummer
beginnt und da fortfährt. ggf. auch noch die nun überflüssigen
Sätze löscht.