AW: Kopieren von Senkrecht zu Waagerecht
08.08.2005 13:19:26
Senkrecht
Ok,da du aus diversen Gründen nicht mehr schreibst(Chef,Lust,Überdosis Kokain oder so)gebe ich dir was ich jetzt fertig habe.Die Bezüge stimmen wahrscheinlich nicht, da ich es ja nicht testen konnte!!!!!!.
Also: Wie der Name schon sagt, löscht alle doppelten Einträge aus D
Sub gleiche_loeschen()
Dim i, a, ende
ende = Cells(Rows.Count, 4).End(xlUp).Row
For i = 2 To ende
For a = 2 To ende
If i = a Then
Else
If Range("d" & i).Value = Range("d" & a).Value Then
Rows(a).ClearContents
End If
End If
Next a
Next i
End Sub
Das kopiert alles aus D(D2,d3,d4 usw) in die Spalten c5,e5,f5,.. .
Sub kopieren()
Dim a, b, ende
b = 1
ende = Sheets(1).Cells(Rows.Count, 4).End(xlUp).Row
For a = 1 To ende
b = b + 1
Sheets(3).Cells(5, a).Value = Sheets(1).Range("d" & b).Value
Next a
End Sub
Also viel spass damit (-:
Gruß UN1