Stücklistenbereinigung mit Excel
08.06.2019 19:13:31
Thomas
ich habe zur Verwaltung von Stücklisten ein relativ einfaches Programm zum Filtern erstellt. Das funktioniert, hat aber doch starke Einschränkungen, da ich z.B. im Code bereits festlege, wie viele Zeilen mein Datensatz maximal haben kann und ich zum Löschen der gesamten Zeile das genaue Wort eintragen muss.
Hier mal der Code:
Sub clearSL()
Dim i As Integer
Dim suche As String
Dim spalte As String
'Eingabe der betreffenden Spalte
spalte = InputBox("Eingabe der betreffenden Spalte", "Eingabe Spalte", "ACHTUNG! GROßBUCHSTABE") _
_
_
'Eingabe des zu entfernendes Begriffes
suche = InputBox("Eingabe des zu entfernenden Begriffes", "Eingabe Begriff", "ACHTUNG! _
Schreibweise beachten")
For i = 10 To 300
If Range(spalte & i) Like suche Then
Tabelle1.Rows(i).Select
Tabelle1.Rows(i).Delete
i = i - 1
End If
Next i
End Sub
Das Ziel ist es, dass im ersten Eingabedialog mit dem ich die Spalte auswähle es egal ist, ob ein Groß- oder Kleinbuchstabe eingetragen wird. Das gleiche gilt für die Suche nach dem Wort das sich in dieser Spalte befindet. Außerdem wäre es richtig gut, wenn man auswählen kann ob das Wort 1:1 gleich sein soll oder ob er nach Zellen sucht, die das Wort beinhalten. Zu guter letzt sollte der gesamte Bereich erkannt werden, ohne dass ich in der Zählschleife eine Begrenzung setze.Kann mir da jemand weiterhelfen?
Vielen Dank und liebe Grüße
Tom