Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datensatz löschen InputBox

Forumthread: Datensatz löschen InputBox

Datensatz löschen InputBox
22.08.2005 09:37:33
rudiflei
In meiner Tabelle „Auswertung“ stehen ab Zeile „13“ Datensätze (Spalten „B“ bis „L“) untereinander, die jeweils in der Spalte B mit einer Auftragsnummer beginnen.
Mittels einer InputBox soll die Zeile mit der einzugebenden Auftragsnummer gelöscht werden.
Mitteilung: Soll die Auftragsnummer wirklich xxxxx geschlöscht werden?
J/N.
Als Ausgabe erwarte ich:
Auftragsnummer xxxxxx wurde gelöscht bzw. Auftragsnummer xxxxxxx wurde nicht gefunden.
OK
Kann mir jemand helfen?
Gruß rudflei
Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datensatz löschen InputBox
22.08.2005 12:06:39
Andi
Hi,
wenn die ganze Zeile und nicht nur der Inhalt gelöscht werden soll, dann so:

Sub loeschen()
Dim art_nr As Double
Dim zelle As Range
art_nr = InputBox("Bitte eine Artikelnummer eingeben:")
Set zelle = Worksheets("Tabelle1").Columns(2).Find(art_nr)
If zelle Is Nothing Then
MsgBox ("Artikelnummer " & CStr(art_nr) & " nicht gefunden")
Exit Sub
End If
Rows(zelle.Row).Delete
MsgBox ("Artikel " & CStr(art_nr) & " gelöscht")
End Sub

Wenn die Artikelnummer mehrfach vorkommt, dann wird nur der erste Eintrag gelöscht.
Schönen Gruß,
Andi
Anzeige
AW: Datensatz löschen InputBox
23.08.2005 12:39:56
Rudi 

Sub loeschen()
Sheets("Auswertung").Select
Dim art_nr As Double
Dim zelle As Range
Hallo Andy,
Wenn ich die InputBox abbreche, erhalte ich folgenden Fehler:
Laufzeitfehler 13, Typen unverträglich. Hast Du eine Idee wie wir das verhinder können?
Der Code sieht zur Zeit so aus:


Sub loeschen()
Sheets("Auswertung").Select
Dim art_nr As Double
Dim zelle As Range
art_nr = InputBox("Bitte eine Auftragsnummer eingeben:")
Set zelle = Worksheets("Auswertung").Columns(2).Find(art_nr)
If zelle Is Nothing Then
MsgBox ("Auftragsnummer " & CStr(art_nr) & " nicht gefunden")
Exit Sub
End If
Rows(zelle.Row).Delete
MsgBox ("Auftrag " & CStr(art_nr) & " gelöscht")
End Sub



gruß rudiflei
Anzeige
AW: Datensatz löschen InputBox
23.08.2005 17:00:32
Andi
Hi,
probier mal das:

Sub loeschen()
Dim art_nr As String
Dim zelle As Range
art_nr = InputBox("Bitte eine Artikelnummer eingeben:")
If art_nr = "" Then Exit Sub
Set zelle = Worksheets("Tabelle1").Columns(2).Find(art_nr)
If zelle Is Nothing Then
MsgBox ("Artikelnummer " & CStr(art_nr) & " nicht gefunden")
Exit Sub
End If
Rows(zelle.Row).Delete
MsgBox ("Artikel " & CStr(art_nr) & " gelöscht")
End Sub

Schönen Gruß,
Andi
Anzeige
AW: Datensatz löschen InputBox
24.08.2005 08:50:05
Rudi
Hallo Andi,
danke. Der Laufzeitfehler ist weg.
Allerdings noch ein kleiner Schönheitsfehler:
wenn der der Datensatz nicht gefunden wurde oder ich die InputBox mittels des ABBRECHEN Buttons abbreche, bleibt Excel im Sheet "Auswertung" stehen, es soll aber in beiden Fällen ins Sheet "Maske" zurückspringen.
Der aktuelle Code sieht so aus:

Sub AuftragLoeschen()
Application.ScreenUpdating = False
Sheets("Auswertung").Select
Dim art_nr As String
Dim zelle As Range
art_nr = InputBox("Bitte eine Auftragsnummer eingeben:")
If art_nr = "" Then Exit Sub
Set zelle = Worksheets("Auswertung").Columns(2).Find(art_nr)
If zelle Is Nothing Then
MsgBox ("Datensatz " & CStr(art_nr) & " nicht gefunden")
Exit Sub
End If
Rows(zelle.Row).Delete
MsgBox ("Datensatz " & CStr(art_nr) & " gelöscht")
Sheets("Maske").Select
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Datensatz löschen InputBox
24.08.2005 09:06:32
Andi
Guten Morgen!
So?

Sub AuftragLoeschen()
Application.ScreenUpdating = False
Sheets("Auswertung").Select
Dim art_nr As String
Dim zelle As Range
art_nr = InputBox("Bitte eine Auftragsnummer eingeben:")
If art_nr = "" Then
Sheets("Maske").Select
Exit Sub
End If
Set zelle = Worksheets("Auswertung").Columns(2).Find(art_nr)
If zelle Is Nothing Then
MsgBox ("Datensatz " & CStr(art_nr) & " nicht gefunden")
Sheets("Maske").Select
Exit Sub
End If
Rows(zelle.Row).Delete
MsgBox ("Datensatz " & CStr(art_nr) & " gelöscht")
Sheets("Maske").Select
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Datensatz löschen InputBox
22.08.2005 12:12:47
Harald
Hallo rudflei
der Quellcode stammt von der famosen Excel-CD von Herber und ist ungetestet händisch angepasst, da ich deine Datei nicht nachbauen kann.
In das Standard-Modul kopieren

Sub Loeschen()
Dim rngFind As Range
Dim var As Variant
Dim sWkn As String
sWkn = Application.InputBox( _
prompt:="Wie lautet Auftragsnummer des zu löschenden Datensatz?", _
Title:="Löschung von Datensatz", _
Default:="123461")
If sWkn = "" Then Exit Sub
var = Application.Match(CLng(sWkn), Columns(2), 0)
If IsError(var) Then
Beep
MsgBox "Datensatz-Nummer wurde nicht gefunden!"
Else
If MsgBox( _
prompt:="Soll der gefundene Datensatz gelöscht werden?", _
Buttons:=vbQuestion + vbYesNo _
) = vbNo Then Exit Sub
Rows(var).Delete
MsgBox ("Datensatz " & var & " wurde gelöscht")
End If
End Sub

Viel Erfolg
Harald
Anzeige
AW: Datensatz löschen InputBox
22.08.2005 21:22:32
Rudi
Hallo Harald,
das funktioniert soweit hat aber einen Schönheitsfehler,
denn wenn ich die Inputbox abbreche erhalte ich den Laufzeitfehler 13 (Typen unverträglich mit dem Bezug auf die Zeile:
var = Application.Match(CLng(sWkn), Columns(2), 0)
können wir das noch abstellen?
gruss rudiflei
Anzeige
AW: Datensatz löschen InputBox
23.08.2005 07:35:48
Harald
Hallo Rudi,
der Fehler liegt wohl an "var", das selbst eine vba-Abkürzung ist und daher nicht als Variable eingesetzt werden kann. Nimm einfach bei jedem!!! var das r am Schluss weg.
Mit va as variant hab ich den Code ok-getestet.
Gruß
Harald

Sub Loeschen()
Dim rngFind As Range
Dim va As Variant
Dim sWkn As String
sWkn = Application.InputBox( _
prompt:="Wie lautet Auftragsnummer des zu löschenden Datensatz?", _
Title:="Löschung von Datensatz", _
Default:="123461")
If sWkn = "" Then Exit Sub
va = Application.Match(CLng(sWkn), Columns(2), 0)
If IsError(va) Then
Beep
MsgBox "Datensatz-Nummer wurde nicht gefunden!"
Else
If MsgBox( _
prompt:="Soll der gefundene Datensatz gelöscht werden?", _
Buttons:=vbQuestion + vbYesNo _
) = vbNo Then Exit Sub
Rows(va).Delete
MsgBox ("Datensatz in Zeile " & va & " wurde gelöscht")
End If
End Sub

Anzeige
AW: Datensatz löschen InputBox
23.08.2005 12:28:19
Rudi
Hallo Harald,
das Problem besteht immer noch. Der Code sieht bei mir so aus:

Sub DatensatzLoeschen()
Application.ScreenUpdating = False
Sheets("Auswertung").Select
Dim rngFind As Range
Dim va As Variant
Dim sWkn As String
sWkn = Application.InputBox( _
prompt:="Wie lautet Auftragsnummer des zu löschenden Datensatz?", _
Title:="Löschung von Datensatz", _
Default:="")
If sWkn = "" Then Exit Sub
va = Application.Match(CLng(sWkn), Columns(2), 0)
If IsError(va) Then
Beep
MsgBox "Datensatz-Nummer wurde nicht gefunden!"
Else
If MsgBox( _
prompt:="Soll der gefundene Datensatz gelöscht werden?", _
Buttons:=vbQuestion + vbYesNo _
) = vbNo Then Exit Sub
Rows(va).Delete
MsgBox ("Datensatz " & va & " wurde gelöscht")
Application.Goto Reference:="MNAME"
Application.ScreenUpdating = True
End If
End Sub

gruß rudiflei
Anzeige
AW: Datensatz löschen InputBox
23.08.2005 12:48:21
Harald
Ja klar...ich Narr. Wenn ich deine erste Rückmeldung mal ordentlich gelesen hätte, wär die Sache schon gegessen.
Habe On Error-Routine eingebaut...läuft nun.

Sub DatensatzLoeschen()
Application.ScreenUpdating = False
Sheets("Tabelle1").Select
Dim rngFind As Range
Dim va As Variant
Dim sWkn As String
On Error GoTo ende
sWkn = Application.InputBox( _
prompt:="Wie lautet Auftragsnummer des zu löschenden Datensatz?", _
Title:="Löschung von Datensatz", _
Default:="")
If sWkn = "" Then Exit Sub
va = Application.Match(CLng(sWkn), Columns(2), 0)
If IsError(va) Then
Beep
MsgBox "Datensatz-Nummer wurde nicht gefunden!"
Else
If MsgBox( _
prompt:="Soll der gefundene Datensatz gelöscht werden?", _
Buttons:=vbQuestion + vbYesNo _
) = vbNo Then Exit Sub
Rows(va).Delete
MsgBox ("Datensatz " & va & " wurde gelöscht")
Application.Goto Reference:="MNAME"
Application.ScreenUpdating = True
End If
ende:
End Sub

Gruß
harald
Anzeige
AW: Datensatz löschen InputBox
23.08.2005 17:31:22
Rudi
Danke, prima soweit.
No ne winzige Kleinigkeit.
Wenn ich abbrech ist der Laufzeitfehler weg.
Das Makro bleibt allerdings im Sheet "Auswertung", es soll
aber zurück zum Sheet "Maske", Feldnamen: MNAME" springen.
gruß rudiflei
AW: Datensatz löschen InputBox
23.08.2005 18:34:22
Harald
Das tut Application.Goto Reference:="MNAME" und sollte dann natürlich zwischen ende: und End Sub...ebenso der screenupdate
MsgBox ("Datensatz " & va & " wurde gelöscht")
End If
ende:
Application.Goto Reference:="MNAME"
Application.ScreenUpdating = True
End Sub
Gruß
Harald
Anzeige
AW: Datensatz löschen InputBox
24.08.2005 08:55:17
Rudi
Danke Harald, funktioniert prima so.
Danke für Rückmeldung o.w.T
24.08.2005 09:54:51
Harald
Gruß
Harald
;

Forumthreads zu verwandten Themen

Daten aus Inputbox in Zellen untereinander lesen
Peter

Hallo
Bin neu hier, und auch ein Anfänger in VBA, habe folgendes Problem.
Ich möchte, das Datum über eine InputBox in die Zellen untereinander schreiben lassen, also wenn ich am Freitag was Schreibe soll das Datum in A1 stehen, beim nächsten Aufruf der InputBox, soll das Datum in A2 ges...
09.10.2008 20:00:59
Thread-ID: 1015445
3 Beiträge
Per Userform oder Inputbox Daten selektieren
Bernd


Hallo Freaks,
ich habe im Archiv gesucht, aber leider nichts gefunden.
Ich suche ein Makro, in das ich per Userform (oder Inputbox?) einen Begriff (Namen) eingebe, dann VBA in das Tabellenblatt 1 geht, in Spalte G den Suchbegriff (Namen) sucht und dann als Ergebnis der Suche die...
05.02.2009 16:36:55
Thread-ID: 1047421
6 Beiträge
Per Userform oder Inputbox Daten selektieren
Bernd


Hallo Freaks,
ich habe im Archiv gesucht, aber leider nichts gefunden.
Ich suche ein Makro, in das ich per Userform (oder Inputbox?) einen Begriff (Namen) eingebe, dann VBA in das Tabellenblatt 1 geht, in Spalte G den Suchbegriff (Namen) sucht und dann als Ergebnis der Suche die...
05.02.2009 17:06:43
Thread-ID: 1047434
3 Beiträge
VBA DateFormat zu String convertieren
MBorn

Guten Morgen,
weiß jemand, wie man ein Datum, das im DateFormat (als Zahl) vorliegt
in das Textformat (yyyy-mm-dd) konvertiert. Sodaß das Ergebnis ein Text ist?
sodaß beispielsweise aus der Zahl 39868 das Text-Datum "2009-02-24" wird?
Herzlichen Dank,
Born
18.03.2009 12:59:43
Thread-ID: 1061376
12 Beiträge
Dateidialog anstatt Inputbox
Jan

Hi
Tino hat mir vor langer Zeit einen coolen Code geschrieben. Ich bin soweit zufrieden damit. Würde aber gerne den Code dahingehend verändern, daß nicht die Inputbox kommt, sondern der Dateidialog geöffnet wird. Damit sind die User nicht ständig auf den gleichen Pfad gebunden wenn sie die...
30.03.2009 15:11:05
Thread-ID: 1065319
3 Beiträge
VBA InputBox
Einzel

Hallo,
habe folgenden CODE
Sub Bemerkung() Dim Eingabe As String Dim erg% Text = InputBox("Bitte geben Sie einen Wert für ein:", "Dateneingabe:") Range("B6").Value = Text End Sub
Nun möchte ich aber, das wenn in z.B. B6 schon was steht er den Inhalt in z.B. B7 einträgt. usw.
...
18.06.2009 14:21:23
Thread-ID: 1082593
3 Beiträge
Inputbox zur Dateisuche
Christopher

Hallo Leute,
ich habe ein Makro mit dem ich Daten aus einer Tabelle aus Jul09.xls in eine andere Tabelle in Berlin.xls kopieren kann.
Sub Artikelnummer_kopieren_Kraft() Windows("Jul09.xls").Activate Sheets("KRAFTREG ").Select Range("B10:B79").Select Selection.Copy Windows("Berlin.xls")....
23.09.2009 09:53:41
Thread-ID: 1104812
9 Beiträge
VBA Inputbox Type Parameter Problem
Bernhard

Liebes Forum,
bislang (Excel 2003) war es möglich eine Variable aus einer Inputbox auszulesen und mit Type:=0 konnte man außerhalb der Inputbox auf eine Zelle klicken - die Zelladresse wurde dann in die Inputbox übernommen und konnte ausgewertet werden.
Beispiel:
str_cell_input =...
20.01.2010 15:00:09
Thread-ID: 1131397
4 Beiträge
Anzeige
VBA Datum in INPUTBOX in Tabelle suchen
Klaus

Nachdem ich nun seit einigen Stunden das Forum durchforstet habe, gehen mir langsam die Suchbegriffe aus. Daher frag ich jetzt einfach einmal......
Ich habe (mal wieder) so eine Tabelle mit einer Zinsstaffel. In Spalte B steht immer die Valuta oder eben das Buchungsdatum.
Ich hab mir be...
22.04.2010 16:03:34
Thread-ID: 1153334
2 Beiträge
VBA: textbox afterupdate format Datum
Bernd

Hallo zusammen,
irgendwie bekomme ich das nicht richtig hin, vielleicht kann mir jemand behilflich sein und den Code berichtigen.
Hier mein Code, der nicht funktioniert:
Private Sub TextBox5_AfterUpdate() 'TextBox5 = format(CDbl(TextBox5), "TT.MM.JJJJ") End Sub Vielen Dank im...
03.06.2013 19:44:47
Thread-ID: 1316131
3 Beiträge
Mit Inputbox große Datentabelle durchsuchen VBA
Ralf

Hallo.
Ich habe ein Problem und komme einfach nicht weiter. Vllt kann mir jmd hier helfen.
Ich habe ein großes Worksheet mit 7 Spalten (von Spalte A bis Spalte G) und ca 11200 Zeilen. Die Überschriften der einzelnen Spalten sind jeweils von Zeile 3 bis Zeile 5 (Verbunden). Zeile 1 und...
21.06.2013 11:31:13
Thread-ID: 1318908
5 Beiträge
Bedingtes Format Datenbalken widersetzt sich VBA
Andreas

Hallo Herber Fans,
es sollte eigentlich doch nur ein kleiner Code am Abend werden… und nun bin ich leider mittelprächtig entnervt, die Augen schmerzen und ich komm nicht drauf… In PivotTabellen verwende ich für Abweichungsdarstellungen zuweilen Datenbalken. Diese skalieren sich innerhalb ei...
16.09.2013 21:17:26
Thread-ID: 1331066
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige