Collapse column

Autor Thema: Office 2007: Excel - Spaltenvergleichen und Postion herausschreiben  (Gelesen 1139 mal)

Offline Excel-Verzweifelter

  • Newbie
  • *
  • Beiträge: 1
    • Profil anzeigen
  • Office-KnowHow: Amateur
  • VBA-KnowHow- : Mittelmäßig
  • Version [Office] : Office 2010
Office 2007: Excel - Spaltenvergleichen und Postion herausschreiben
« 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  ;)

Keine Lösung gefunden? Du kannst Dich gerne an unser erfahrenes Experten-Team wenden und Dein Anliegen in Auftrag geben.
>>> Schnell und einfach ein unverbindliches Angebot anfordern. Per E-Mail an anfrage@excel-inside.de oder per Online-Formular
<<<

!!! Wichtige Information
!!! Dieses Forum steht aus technischen Gründen ab dem 11. September 2019 nur noch im Lesemodus zur Verfügung.
Das NEUE Office-Fragen-Forum kannst du aber unter der gewohnten Domain https://office-fragen.de wie gewohnt nutzen.

- Wir freuen uns auf deinen Besuch im neuen Forum.

Offline Beverly

  • Full Member
  • ***
  • Beiträge: 129
    • Profil anzeigen
  • Office-KnowHow: Fortgeschritten
  • VBA-KnowHow- : Gut
  • Version [Office] : Office 2010
Antw:Office 2007: Excel - Spaltenvergleichen und Postion herausschreiben
« Antwort #1 am: Oktober 15, 2012, 09:27:12 Vormittag »
Hi,

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

Wenn du dich noch intensiver mit Excel beschäftigen möchtest, dann empfiehlt sich ein Online-Kurs,
in dem du sehr viel über Excel erfährst und das gelernte umgehend in der Praxis anwenden kannst.