Knoten in For Schleife
26.01.2006 23:56:06
Daniel
Hier ist mein Code, dh. eigentlich ist er nicht direkt von mir. Ich habe ihn hier im Forum bekommen und ihn dann ein Bisschen kaputt gebastelt.
Es soll die Zeichenfolge Rang gesucht werden danach soll die Rangfolge für die Spalte links neben der Rangspalte unter der Rangspalte eingetragen werden.
Das funktioniert aber nur für das erste Tabellenblatt. Wo ist mein Knoten und wie kann man das ganze evtl. noch optimieren. Würde Euch nicht nerven, wenn ich nicht selber schon wieder so lange daran verzweifeln würde.
Dankeschön,
Daniel
Die Arbeitsmappe:
https://www.herber.de/bbs/user/30423.xls
Der Code:
Sub Rang_suchen_und_eintragen()
Dim rngZelle As Range, z$, s%
Dim myObject As Object
Dim ws As Worksheet
For Each Worksheet In ActiveWorkbook.Sheets
Set myObject = Range("A1:A15")
Set pruef = Cells(65535, 256)
For Each col In myObject
Cells.Find(What:="Rang", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Set pruef = ActiveCell.Offset(1, 0)
'If IsEmpty(pruef.Offset(1, 0)) Then Exit For
Spalte = ActiveCell.Column
z = Cells(65536, Spalte - 1).End(xlUp).Row
adr = Cells(2, Spalte - 1).Address(0, 0)
ber = Range(Cells(2, Spalte - 1), Cells(z, Spalte - 1)).Address
Cells(2, Spalte).Formula = "=Rank(" & adr & "," & ber & ")"
Cells(2, Spalte).Copy Destination:=Range(Cells(3, Spalte), Cells(z, Spalte))
Next col
Next Worksheet
End Sub