Office: per VBA Zeile in der Liste löschen

Hallo Leute,

ich brauche eure Hilfe. In einer Liste sollen regelmäßig Einträge vorgenommen werden. Hierzu müssen die Felder Name, Nr. alt, Stück, Bezeichnung, Datum, Kst, Palettennummer, Zusatzinfo und Kommentar ausgefüllt werden. Die Ware, welche in die Liste eingetragen wird, soll mit einem Zettel beschriftet werden. Dies soll automatisch mit einem Klick auf den Button "Zettel drucken" passieren. nach einem Klick soll nach der Palettennummer per InputBox abgefragt werden. Falls die Eingabe numerisch oder nicht leer ist, dann soll in der Spalte G nach der eingegebenen Nummer gesucht werden. Wenn die Nummer in der Liste vorhanden ist, dann soll die gefundene Zeile in das Tabellenblatt "Daten" ab Zelle A37 kopiert werden. Anschließend sollen die kopierte Daten in das Tabellenblatt "Drucken" übernommen werden. Dies soll über diesen Umweg mit dem Tabellenblatt "Daten" passieren, da ich der Formel noch die kopierte Daten bearbeiten muss.

Also wenn die Palette in der Liste gefunden wurde, dann sollen die Daten kopiert werden und anschließend das Tabellenblatt "Drucken" gedruckt werden und eine Meldung erscheinen, dass gedruckt wurde.
Wenn die Eingabe aber leer oder nicht numerisch ist, dann soll eine Fehlermeldung erscheinen.
Wenn die Nummer in der Liste nicht gefunden werden kann, dann soll auch eine Fehlermeldung erscheinen.

Da ich mich mit Makros nicht besonders auskenne, tue ich mir teilweise sehr schwer. Ich habe es durch Recherchieren soweit hinbekommen, dass alles funktioniert, bis auf dass, wenn die Nummer in der Liste nicht gefunden werden kann. In solch einem Fall erhalte ich die Fehlermeldung "Laufzeitfehler 424. Objekt erforderlich". Ich kann mir gut vorstellen, dass das Makro von mir kompliziert programmiert wurde. Was muss wie geändert werden?

 

Im Betreff steht Löschen im Beitrag nicht. Was nun?

 

Oohhh, da habe ich mich vertan. Der Betreff sollte heißen "Tabellenblatt drucken, wenn eingegebene Nummer in Liste vorhanden".

Kann ich den Betreff nicht mehr abändern?

 

Benutze Autofilter und Kopiere den sichtbaren Bereich, Start, Bearbeiten, Suchen..., Gehe zu, Inhalte, sichtbare Zellen.
Excel hat auch einen Makrorecorder.

Gruß Hajo

 

Ich steh etwas auf dem Schlauch. Soll ich den sichtbaren Bereich meiner Liste kopieren oder von dem Zettel, der ausgedruckt werden soll?
Ich finde nur "Sortieren und Filtern" aber nicht Autofilter.

Wenn ich das ganze damit hinbekomme, wie kann ich dann die Eingabe auf numerisch und nicht leer prüfen?

Ist meine Makro nicht brauchbar?

 

kopieren brauchst Du nicht falls es zu kompliziert ist. Druke einfach nach Autofilter.

<a href="Homeseite - Hajo's Excelseiten" target="_blank" title="Hajo&#039;s Excelseiten">Gruß Hajo</a>

 

Hallo,

bitte etwas Geduld, bi da was am programmieren.

 

Super. Schon mal vielen Dank.

 

Hallo,

im Anhang findest du die überarbeitete Datei. Die Bedienung habe ich auf das Blatt Drucken ausgelagert. Dort kannst du mit dem Kombinationsfeld die Palettennummer auswählen. Angezeigt werden alle Nummern, die es auf dem Blatt Palettenbeschriftung gibt. Mit der Auswahl wird angezeigt, was aktuell gedruckt wird. Die Schaltfläche Zettel drucken löst den Druckvorgang aus.
Den Quelltext habe ich mit Kommentaren versehen, damit du nachvollziehen kannst, was da ausgelöst wird.

 

Vielen Dank Klaus-Dieter. Das ganze funktioniert soweit, jedoch kommt es regelmäßig vor, dass eine Nummer (also eine Zeile in der Liste) gelöscht wird, wenn die nicht mehr gebraucht wird. In solch einem Fall steht die Nummer nach dem Löschen weiterhin zur Auswahl und es erscheint ein Fehler.
Perfekt wäre es, wenn nach dem Klicken auf "Zettel drucken" eine InputBox erscheint und dann die Nummer in der Liste gesucht wird. Ich habe nämlich weitere Funktionen/Buttons, welche ebenfalls eine InputBox besitzen. Ich möchte dann die alle in einem Tabellenblatt über der Liste darstellen.

Nur mal so eine Frage am Rande. Kann man die Makro von mir nicht gebrauchen?

 

Hallo,

ich fange mal hinten an:

so kann man das nicht sagen, es ist einfach so, dass man im Laufe der Zeit einen eigenen Stil entwickelt, wie man bei der Programmierung vorgeht. Deshalb vermeide ich es, Makros die andere geschrieben haben, umzubauen. Auch finde ich den Weg mit Inputboxen zu arbeiten nicht so elegant.

Hierzu eine Frage: auf welchem Blatt wird gelöscht und warum? In der EDV vermeidet man nach Möglichkeit das Löschen von Daten.

Dir ist schon aufgefallen, dass die Auswahl der Daten jetzt über das Kombinationsfeld erfolgt? Das erscheint mir viel eleganter, als der Weg über die InputBox. Das Kombinationsfeld zeigt nur Palettennummern an, die es auf dem Blatt Palettenbeschriftung auch gibt. Damit bracht man dann auch keine Fehleingaben abfangen, weil es die nicht gibt.

Es ist immer schön, wenn man gleich alle Umfänge kennt, das erspart doppelte Arbeit.

 

Im Tabellenblatt Palettenbeschriftung. Wenn es eine Ware/Box nicht mehr gibt oder nicht mehr benötigt wird, dann soll man die Zeile löschen können.

Ja, ist mir aufgefallen. Alles hat seine Vor- und Nachteile.

Die anderen Funktionen habe ich bereits.

 

Ich habe meine Makro so modifizieren können, dass es so funktioniert, wie im erstem Post beschrieben.

Code:

Sub Drucken()
    '
    ' Palettenzettel wird gedruckt wenn die eingegebene Palettennummer gefunden wurde
    '
    Dim userInput As String
    Dim searchValue As String
    Dim rng As Range
    Dim exists As Boolean
    
    userInput = InputBox("Palettennummer eingeben:", "Palettenbeschriftung ausdrucken")
    
    If userInput = "" Or Not IsNumeric(userInput) Then
        MsgBox "Eingabe ungültig oder leer"
        GoTo LastLine
    End If
    
    searchValue = CStr(userInput)
    Set rng = Worksheets("Palettenbeschriftung").Range("G:G").Find(What:=searchValue, LookIn:=xlValues, LookAt:=xlWhole)
        
    If rng Is Nothing Then
        MsgBox "Palettennummer nicht gefunden"
    Else
        exists = True
        ThisWorkbook.Sheets("Drucken").Visible = xlSheetVisible
        rng.EntireRow.Copy
        Worksheets("Daten").Range("A37").PasteSpecial Paste:=xlPasteAll
        Sheets("Drucken").Range("A1:K28").PrintOut Copies:=2
        ThisWorkbook.Sheets("Drucken").Visible = xlSheetHidden
        MsgBox "Palettenzettel wurde gedruckt"
    End If
    
LastLine:
End Sub

 

Hallo,

wem nicht zu raten ist, dem ist nicht zu helfen.