Mit Kopieren von Wert Zeilenumbruch erzeugen
21.11.2018 13:42:13
Wert
ich habe ein Makro (kopiern) welches mir Werte in zwei Sheets vergleicht und anschließend von Sheet Namensliste aus der ausgewählten Zeile den Inhalt in Sheet Details kopiert.
Problem:
Wert aus Spalte F (Maier, Mueller, Scholz) in Sheet Namensliste kann mehrmals vorkommen und so auch unterschiedliche IDs dazu (Spalte A aus Sheet Details) haben.
Ich möchte jetzt dass wenn schon eine ID zu Maier angelegt wurde, die nächste dann darunter reinkopiert wird und nicht überschrieben. Wie kann ich denn einen Zeilenumbruch automatisch erzeugen (manuell mit alt + enter)?
Problemzeile ist markiert. Bin über jeden Tipp dankbar!
Sub kopieren2()
With Worksheets("Namensliste")
letzteZeile = .Cells(Rows.Count, 6).End(xlUp).Row
For Each zelle In .Range("F3:F" & letzteZeile)
On Error Resume Next
If Not IsEmpty(zelle) Then
Var1 = Sheets("Namensliste").Range("F" & zelle.Row).Value
With Worksheets("Details")
For Each aktzelle In .Range("C3:C20")
On Error Resume Next
If aktzelle.Value = zelle.Value Then
If Not isEmpty(Range("F" & aktzelle.Row) Then
Set c = Sheets("Namensliste").Range("A" & zelle.Row)
Set tt = Sheets("Details").Range("F" & aktzelle.Row)
c.Copy Destination:=Range("F" & aktzelle.Row).Value & Chr(10) & tt 'hier Problem, da _
bestehender Wert einfach überschrieben wird
Else
End If
End If
Next aktzelle
End With
End If
Next zelle
End With
End Sub
Anzeige