Hallo zusammen,
ich habe eine Tabelle aus 3 Spalten. Spalte A enthält über 6.000 Einträge für 49 verschiedene Städte, Spalte B entält die Zuweisungen der Städte an Abkürzungen, die beliebig sein können. Sprich jede Stadt kann mit jeder Abkürzung verknüpft sein. Spalte C enthält ein Datum. Es gibt jedoch Zellen in der Spalte C, wo das Datum fehlt, die ich gerne suchen und in einer Tabelle ausgeben würde. Die Zeilennummer mit Ausgabe der Kombination aus der Stadt (A) & Abkürzung (B) ist erforderlich.
Ich habe leider nicht viel Erfahrung und habe bisher nur das hier fabriziert. Würde mich freuen, falls mich hier jemand unterstützen kann.
Option Explicit
Sub CreatedDate()
Dim i As Integer
For i = 2 To 22
If Cells(i, 1).Value = "Panama" And Cells(i, 2).Value = "F" Then
Cells(i, 3).Value = "Kein Datum"
End If
Next
End Sub
Mein Versuch nach allen Kombinationen zu suchen ist fehlgeschlagen:
Option Explicit
Sub CreatedDate()
Dim i As Integer
For i = 2 To 22
If Cells(i, 1).Value = "Peking" Or "Tokio" Or "London" Or "Rom" Or "Lissabon" Or "Panama" Or "Budapest" Or "Prag" Or "Dublin" Or "Luxemburg" And Cells(i, 2).Value = "A" Or "B" Or "C" Or "D" Or "E" Or "F" Or "G" Or "H" Or "I" Or "J" Then
Cells(i, 3).Value = "Kein Datum"
End If
Next
End Sub
Liebe Grüße
Yannick
|