Office: VBA programmieren

Hallo Leute,

Bisher hatte ich meine Probleme immer mit dem mitlesen lösen können. Nun ist es soweit und ich brauche eure Hilfe.

Ich habe ein Tabellenblatt, nennen wir es mal "Palettenliste", mit mehreren Einträgen. Ich möchte nun über einen Button, in diesem Tabellenblatt, eine Palettennummer eingeben können. Es soll bei einem Klick auf den Button ein Eingabefenster aufgehen. Hier sollten nur Zahlen eingeben werden. Falls Buchstaben eingegeben werden, dann soll eine Meldung "Ungültige Eingabe" erscheinen und erneut das Eingabefenster erscheinen, bis eine Zahl eingegeben wird. Falls ohne eine Eingabe auf Enter oder OK-Button geklickt wird, dann soll ebenfalls erneut das Eingabefenster erscheinen. Bei einem Klick auf den Abbrechen-Button soll sich das Eingabefenster schließen.

Nun zu meiner eigentlichen Frage.
Wenn ich eine Zahl eingegeben habe, soll dieser in der Spalte G gesucht werden. Wenn die Zahl in dieser Spalte vorhanden ist, dann soll die komplette Zeile (A bis H) gelöscht werden, also die darunter liegenden Zeilen nach oben verschoben. Falls die eingegebene Zahl in der Spalte G nicht gefunden werden kann, dann soll ein Ausgabetext "Nicht gefunden!" erscheinen und abbrechen.

Ich wäre sehr dankbar, wenn mir jemand helfen könnte.

Vielen Dank schon mal im voraus.

 

Moin

Ganz schön viel Aufwand nur um eine Zeile zu löschen.
Im Allgemeinen werden Tabellen-Zeilen auch nicht gelöscht sondern erhalten ggf. ein Kennzeichen.

 

Hallo badboyxx
bin zwar kein VBA Spezialist aber ich habe das gefunden. Vielleicht hilfts.

Code:

https://www.automateexcel.com/de/vba/gesamte-zeile-spalte-loeschen/

Ich würde das Thema Eingabe Nummer mit einem UserForm und MsgBoxen angehen.
Frage mich bitte nicht wie, ich würde mich durch viel probieren und lesen durch kämpfen.
Tip von einem Anfänger. Lade am besten immer eine Beispieldatei hoch.
Gruß
Martin

 

Ich habe meine Beispieldatei hochgeladen. Diese ist etwas abgespeckt, da das Original sensible Daten beinhaltet.

Das mit dem Eingabefeld funktioniert. Schön wäre es, wenn man ohne eine Eingabe Enter drückt, nichts eingibt und OK anklickt oder abbricht, dass dann keine Meldung erscheint und das Fenster schließt. Momentan kommt die Meldung "Ungültige Eingabe".
Wenn die eingegebene Nummer in der Liste gefunden wird (ab Zeile 13), wird die komplette Zeile gelöscht und nach oben verschoben. Zusätzlich kommt die Meldung "Palette gelöscht". Das passt mal soweit. Was aber noch nicht geht, ist, dass wenn eine Nummer in der Liste nicht gefunden wird, dann die Infomeldung "Palette nicht gefunden" kommt.
In meiner Beispieldatei passiert in solch einem Fall einfach nichts, es komm keine Meldung, dass die Nummer nicht gefunden werden konnte. Bei einer größeren Liste merkt man halt nicht, dass man sich evtl. vertippt hat.

Kann mir da vielleicht noch jemand Hilfestellung geben.

 

Ich konnte mein Problem nun selbst lösen. Wenn der Code folgend aussieht, dann funktioniert es:

Code:

Sub Palette_loeschen()
    Dim userInput As Variant
    Dim searchValue As Variant
    Dim searchRange As Range
    Dim foundCell As Range
   
    userInput = InputBox("Palettennummer eingeben:", "Palette aus Liste löschen")
   
    If IsNumeric(userInput) And userInput <> "" Then
        searchValue = CLng(userInput)
        Set searchRange = Range("G14:G" & Cells(Rows.Count, "G").End(xlUp).Row)
       
        Set foundCell = searchRange.Find(what:=searchValue, LookIn:=xlValues, lookat:=xlWhole)
       
        If Not foundCell Is Nothing Then
            foundCell.EntireRow.Delete
            MsgBox "Palette " & searchValue & " gelöscht"
        Else
            MsgBox "Palette nicht gefunden"
        End If
    Else
        MsgBox "Eingabe ungültig oder leer"
    End If
End Sub

Vielen Dank für eure Hilfe.