spalten kopieren und sortieren

Forumthread: spalten kopieren und sortieren

19.08.2005 12:58:01

mike

Hallo Gemeinde
ich habe folgendes problem.
Ich möchte die Einträge von Tabelle1 in Tabelle 2 Kopieren
habe da ein Macro gemacht funktioniert ganz gut.


Sub User_kopieren()
Sheets("Liste").Select
Columns("B:B").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Liste").Select
Columns("A:A").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2").Select
Columns("B:B").Select
ActiveSheet.Paste
ActiveSheet.Shapes("Liste_sortieren").Select
Application.CutCopyMode = False
Selection.Cut
Cells.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
End Sub

jetzt möcht ich noch, das doppelte einträge gelöscht werden
und in eine weitere Spalte eine Formel eingetragen wird
ist das möglich -
Hier sind wohl die Ecxel Profies gefragt -die gibts ja auch hier -Gott sei Dank

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: spalten kopieren und sortieren

19.08.2005 13:17:38

Uduuh
AW: spalten kopieren und sortieren

19.08.2005 13:25:48

Martina

AW: spalten kopieren und sortieren

19.08.2005 13:17:38

Uduuh

Hallo,
natürlich geht das.


Sub User_kopieren()
Dim i As Integer
With Sheets("Tabelle2")
Sheets("Liste").Columns("B:B").Copy .Range("A1")
Sheets("Liste").Columns("A:A").Copy .Range("B1")
.Shapes("Liste_sortieren").Cut
Application.CutCopyMode = False
Cells.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
For i = .Cells(65536, 1).End(xlUp).Row To 3 Step -1
If .Cells(i, 1) = .Cells(i - 1, 1) And .Cells(i, 2) = .Cells(i + 1, 2) Then
.Rows(i).Delete
End If
Next i
.Range(.Cells(1, 1), .Cells(65536, 1).End(xlUp)).Offset(0, 2).FormulaR1C1 = "=RC[-2]&RC[-1]"
End With
End Sub

Gruß ausm Pott
Udo

AW: spalten kopieren und sortieren

19.08.2005 13:25:48

Martina

Hallo,
so in etwa:


Sub Makro3()
Sheets("Tabelle2").Range("A:A").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Tabelle2").Range("A:A"), CopyToRange:=Sheets("Liste").Range("A1") _
, Unique:=True
Sheets("Liste").Activate
Sheets("Liste").Range("A:A").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
End Sub

MfG
Martina

Beliebteste Forumthreads (12 Monate)

Forumthread: spalten kopieren und sortieren

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread