Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Excel-Verzweifelter am Oktober 14, 2012, 10:53:30 Vormittag

Titel: Office 2007: Excel - Spaltenvergleichen und Postion herausschreiben
Beitrag von: Excel-Verzweifelter am Oktober 14, 2012, 10:53:30 Vormittag

Hallo zusammen

Ich muss mehrere hundert URLs vergleichen und die Positon herausschreiben.

Ausgangslage im Detail:

Ich habe drei Spalten.
Spalte A ist die Nummerierung (1 bis ....)
Spalte B ist eine Auflistung von URLs (Diese Spalte ist der Master)
Spalte C habe ich eine Auflistung von URLs die fast zu 100% aus den Angaben von Spalte B besteht, aber in sehr unterschiedlicher Reihenfolge

Ziel ist es, dass ich hinter der URL von C die Positions Nummer von B erhalten.

Im Anhang habe ich ein Muster. Wobei ich die Spalte D manuell gemacht habe. Dies sollte nun automatisiert möglich sein...

Vielen Dank für eure Hilfe.
Grüsse, ein Verzweifelter  ;)

Titel: Antw:Office 2007: Excel - Spaltenvergleichen und Postion herausschreiben
Beitrag von: Beverly am Oktober 15, 2012, 09:27:12 Vormittag

Hi,

Code: [Auswählen]

Sub Nummerierung()
   Dim lngZeile As Long
   Dim lngZiel As Long
   For lngZeile = 2 To IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
      If Not IsError(Application.Match(Cells(lngZeile, 2), Columns(3), 0)) Then
         lngZiel = Application.Match(Cells(lngZeile, 2), Columns(3), 0)
         Cells(lngZiel, 4) = Cells(lngZeile, 1)
      End If
   Next lngZeile
End Sub

Bis später,
Karin