Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
744to748
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
744to748
744to748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bestellung suchen

Bestellung suchen
20.03.2006 22:14:20
Stephan
Hallo zusammen,
Habe erneut ein problem.
Ich habe das Blatt "Bestelltes Material" & "Material Rückgabe".
Die bestellung schreibe ich in die Tabelle "Bestelltes Material".
Wen ich das Material bekommen habe schreibe ich die daten in textboxen und transferiere sie in die Tabelle "Material Rückgabe".
Wie kan ich die richtige bestellung suchen und in die zelle "I" ein a schreiben?
Ich habe gedacht mit dem if & then befehl.
Sheets("Bestelltes Material").Select
IF Zelle "B" mit "TextBoxBestArtikel"
IF Zelle "D" mit "TextBoxRapport"
IF Zelle "E" mit "TextBoxNImpianto"
THEN Zelle "I" = a
Kan mir jemand helfen?
MFG Stephan

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestellung suchen
21.03.2006 08:29:58
Oberschlumpf
Hi Stephan ;-)
Versuch es mal so (ungetestet):

Sub Suche()
Dim liZeile As Integer
Sheets("Bestelltes Material").Select
For liZeile = 1 To Cells(Rows.Count, 2).End(xlUp).Row
If Range("B" & liZeile).Value = TextBoxBestArtikel.Text And Range("D" & liZeile).Value = TextBoxRapport.Text And Range("E" & liZeile).Value = TextBoxNImpianto.Text Then
Range("L" & liZeile).Value = "a"
Exit Sub
Next
End Sub

Konnte ich helfen?
Ciao
Thorsten
Danke
21.03.2006 19:13:13
Stephan
Habe die Formel ein wenig geändert.

Private Sub CommandButton14_Click()
Dim liZeile As Integer
Sheets("Bestelltes Material").Select
For liZeile = 1 To Cells(Rows.Count, 2).End(xlUp).Row
If Range("B" & liZeile).Value = TextBoxBestArtikel.Text And Range("D" & liZeile).Value = TextBoxRapport.Text And Range("E" & liZeile).Value = TextBoxNImpianto.Text Then
Range("I" & liZeile).Value = "a"
End If
Next
End Sub

Danke für deine HILFE
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige