eine Frage über VB
04.05.2006 17:05:05
vivi
Es gibt 2 Tabellen in eine Mappe.
z.B. Im Tabelle1 sind die NAME von den Studenten und die Note. Jetzt will ich die höchste 10 Noten finden. Ich will die NAME entsprechend dieser Noten finden und in Tabelle2 einfügen.
Ich habe die Programm geschrieben, aber immer kann nicht richtig funktioniert werden.
Könntest ihr mir helfen?
---------------------------------------------------------------------
Sub NAMEundNOTE()
Dim j 1 As Integer
j1=1
For m = 1 To 10
Worksheets("Tabelle1").Select
Set Ber1 = Range("D36, F36, H36, J36, L36, N36, P36, R36, T36, V36, X36, Z36, AB36, AD36, AF36, AH36, AJ36, AL36, AN36, AP36, AR36, AT36, AV36, AX36, AZ36")
Range(Application.WorksheetFunction.Large(Ber1, m)).Select
k = ActivateCell.Column
Cells(2, k).Select
Selection.Copy
Worksheets("Tabelle2").Select
Cells(1, j1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
j1 = j1 + 1
Next m
-------------------------------------------------------------------------
Gruß
vivi