Anzeige
Archiv - Navigation
652to656
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

spalten kopieren und sortieren

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
Anzeige
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ß aus’m Pott
Udo

Anzeige
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

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige