Werte suchen (Eingabe)&dann ganze Zeile löschen
Bubu
ich habe folgendes Problem, von dem ich hoffe hier befreit zu werden.
Ich habe eine täglich wechselnde Liste mit ausgehenden Flügen eines Flughafen (an die 400 Flüge). Jeder Flug hat mindestens 1, über 2 bis manhmal 3 verschiedene Abflugszeiten, die sich falls vorhanden in unterschiedlichen Zeilen befinden.
So sieht Blatt 1 ungefähr aus:
Mein Wunsch ist es nun - Flüge, die fälschlicherweise in diese Exceldatei exportiert werden zu löschen (täglich an die 30-40). Dabei ist es allerdings wichtig nicht nur die nach dem Zahlen Kürzel des Fluges (Spalte 3) zu suchen sondern auch die Airline (Spalte 2) mit abzugleichen, da manchmal Flüge die gleichen Kürzel haben aber von unterschiedlichen Airlines sind.
Ich möchte gerne eine Eingabe haben, die mir ermöglicht folgenden Ablauf zu generieren:
Makro wird gestartet und es wird gefragt nach welcher Airline gesucht werden soll. danach werden die Flüge (bspw. 4563; 3456; 9372; 4924 usw.) durch ein "," oder sonst irgendwie voneinander getrennt können eingegeben. hierbei müsste dann beachtet werden, dass es zu jedem Flug, wie erwähnt bis zu drei Flügen gibt und so die Schleife 3 mal bei jeder Zahl durchlaufen werden müsste.
Am Ende wäre eine Anzeige schön, die mir anzeigt welche Daten denn nun rausgelöscht wurden.
Bißher bin ich mit eigener Kraft bis zu diesem Punkt gekommen - nicht ausgerift genug und für weiteres fehlt mir einfach das wissen.
Sub DeleteAirBerlinFundidos()
Dim i As Integer
Dim lz As Integer
Dim SuBe1 As String
Dim SuBe2 As String
On Error Resume Next
SuBe1 = InputBox("Which flight should be deleted?")
lz = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lz
If Sheets(1).Cells(i, 3).Value = SuBe1 And Sheets(1).Cells(i, 2).Value = "BER" Then
End If
Next i
End Sub
Vielen Dank im Voraus für alle Antworten und Hilfestellungen.