Problem mit eindeutiger Zuordnung
19.12.2017 12:12:42
Rahel
ich möchte mit VBA in verschiedenen Sheets (IPC0 bis IPC10) abhängig von der Anzahl an eingetragenen IPC Klassen in den Spalten F bis O jede Zeile bspw. in IPC3:
1. 3 mal kopieren
2. die Werte in den Spalten F bis H "spezifisch" verteilen.
Ziel ist es also, am Ende jede Zeile 3 mal, dafür aber mit einer einzigen IPC Klasse in der Tabelle zu haben. Aus der Ursprungszeile sollen demnach die IPC Klassen aus Spalte G und H (die auf die beiden kopierten Zeilen verteilt wurden) gelöscht werden.
(Für IPC 4 sollten die Zeilen analog 4 mal kopiert werden und die IPC Klassen spezifisch auf diese 4 Kopien verteilt werden).
Ich hoffe, es ist verständlich was ich umsetzen möchte.
Hier mein eher trauriger erster Versuch:
Option Explicit
Sub Unique()
Dim i As Long, lngLastRow As Long, lngNext As Long
Dim objSheet As Object
Dim IPC3 As Worksheet
Set IPC3 = ActiveWorkbook.ActiveSheet
With Sheets("IPC3")
IngLastRow = Application.Max(2, .Cells(.Rows.Count, 1).End(xlUp).Row)
For i = 2 To IngLastRow
.EntireRow(lngIndex).Copy Destination:=.Offset(1, 0)
Next
End With
End Sub
Ich freue mich auf eure Ideen und bin schon jetzt ganz dankbar, wenn ihr mir weiterhelfen könnt!!!
Anbei noch die Datei:
https://www.herber.de/bbs/user/118420.xlsm