Die Formel kenne ich.
Allerdings bringt mir das nichts, weil ich das automatisieren und mit den Daten in einem anderen Programm weiterarbeiten muss - mittlerweile habe ich es geschafft, dass ich die erste Zeile schon richtig einfügen kann, allerdings dürfte es bei der Schleife irgendwo hapern, kann mir da jemand helfen?
Sub DatenInZwischenablage()
Dim Speicher As dataobject
Dim Help
Dim x As Long
Dim z As Long
x = 1
z = 18
Set Speicher = New dataobject
Do While Cells(z, 1).Value <> ""
Help = Cells(z, 1).Value
If Help <> Cells(z + 1, 1).Value Then
strTmp = Cells(z, 1).Value & ";" & Cells(z, 7).Value
Speicher.SetText strTmp
Speicher.PutInClipboard
Sheets("Tabelle1").Select
Cells(x, 1).Select
ActiveCell.PasteSpecial
x = x + 1
z = z + 1
End If
x = x + 1
z = z + 1
Loop
Sheets("Tabelle1").Select
Columns("A:A").Select
Selection.Copy
End Sub
|