Hallo43334
Grünschnabel
Hallo,
habe mit der Aufnahme Funktion von Excel diesen Code aufgenommen. Ich möchte folgendes machen
Schritt 1 Ich kopiere von Hand eine Tabelle in Excel in den Spalten A&C
Schritt 2 Ziehe ich Spalte C in Spalte B
Schritt 3 Sortiere ich die Spalte B, dort stehen nur Zahlen, von der größten zur kleinen
Schritt 4 Doppelte Namen entfernen
Somit habe ich die höchste Zahl zu jedem Namen, in der Spalte A stehen nur Namen
Schritt 5 Spalte A die Namen nach A>Z sortieren
Mein Problem ist jetzt, es kann sein das die eingefügte Tabelle nur 100 Zeilen hat oder aber auch 10000 Zeilen. Das kommt immer drauf an. Meine Frage an euch wie kann ich das in den Code mit einbinden ? habe einfach mal probiert das B hoch zusetzten, aber jetzt verschwinden die Zahlen.
Sub Makro1()
'
' Makro1 Makro
' Versuch
'
' Tastenkombination: Strg+f
'
Columns("A:A").ColumnWidth = 18.57
Columns("C:C").Select
Selection.Cut Destination:=Columns("B:B")
Range("A2:B2000").Select
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("B2:B21" _
), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Tabelle1").Sort
.SetRange Range("A2:B2000")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveSheet.Range("$A$2:$B$2000").RemoveDuplicates Columns:=1, Header:=xlNo
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("A2"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Tabelle1").Sort
.SetRange Range("A2:B2000")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
habe mit der Aufnahme Funktion von Excel diesen Code aufgenommen. Ich möchte folgendes machen
Schritt 1 Ich kopiere von Hand eine Tabelle in Excel in den Spalten A&C
Schritt 2 Ziehe ich Spalte C in Spalte B
Schritt 3 Sortiere ich die Spalte B, dort stehen nur Zahlen, von der größten zur kleinen
Schritt 4 Doppelte Namen entfernen
Somit habe ich die höchste Zahl zu jedem Namen, in der Spalte A stehen nur Namen
Schritt 5 Spalte A die Namen nach A>Z sortieren
Mein Problem ist jetzt, es kann sein das die eingefügte Tabelle nur 100 Zeilen hat oder aber auch 10000 Zeilen. Das kommt immer drauf an. Meine Frage an euch wie kann ich das in den Code mit einbinden ? habe einfach mal probiert das B hoch zusetzten, aber jetzt verschwinden die Zahlen.
Sub Makro1()
'
' Makro1 Makro
' Versuch
'
' Tastenkombination: Strg+f
'
Columns("A:A").ColumnWidth = 18.57
Columns("C:C").Select
Selection.Cut Destination:=Columns("B:B")
Range("A2:B2000").Select
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("B2:B21" _
), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Tabelle1").Sort
.SetRange Range("A2:B2000")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveSheet.Range("$A$2:$B$2000").RemoveDuplicates Columns:=1, Header:=xlNo
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("A2"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Tabelle1").Sort
.SetRange Range("A2:B2000")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub