Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1436to1440
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
VBA - Textbox mit Tabellenblatt vergleichen
17.07.2015 11:29:45
Frank
Hallo,
kann mir bitte jemand helfen?
Ich habe eine Userform wo ich Artikelnr.,Lagername und Stückzahl eingebe.
In einem Tabellenblatt habe ich in Spalte A mehrere Artikel und in Spalte B bis G mehrere Lagernamen hinterlegt.
Nun soll wenn ich einen Commandbutton drücke die Stückzahl zu dem entsprechenden Artikel und Lagerort zugebucht werden.
Wie setze ich das am besten um?
Für den Code wäre ich sehr dankbar.
Im voraus schon mal herzlichen Dank
Gruß Frank

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
noch Fragen?
17.07.2015 11:58:46
Tino
Hallo,
gibt es die Artikelnummer nur einmal?
Wo soll die Stück zugebucht werden?
Wenn Lager1 in B dann in C, wenn Lager2 in D dann in E.
Gruß Tino

AW: noch Fragen?
17.07.2015 12:21:52
Frank
Hallo Tino,
Danke für die schnelle Antwort.
Ich habe 100 Artikelnummern untereinander in Spalte A und jede Nummer ist nur einmal vergeben.
Ich habe 6 Lagernamen in der SpalteB=Äpfel,SpalteC=Birnen,SpalteD=Bananen
Geb ich zum Beispiel Artikelnr. 12345,Lagername Äpfel,Stückzahl 25 ein und die Artikelnr. ist als Beispiel in A16 dann soll die Stückzahl in B16 zugebucht werden
Ich hoffe ich konnts verständlich erklären.
Gruß Frank

Anzeige
Rudi sein Vorschlag sollte darauf passen oT.
17.07.2015 12:28:07
Tino

AW: VBA - Textbox mit Tabellenblatt vergleichen
17.07.2015 12:10:49
Rudi
Hallo,
als Ansatz:
Private Sub cmdBuchen_Click()
Dim vRow, vCol
With Sheets("Lager")
vRow = Application.Match(txtArtNr, .Columns(1), 0) 'Zeile Artikel
vCol = Application.Match(txtLager, .Rows(1), 0) 'Spalte Lager
If IsError(vRow) Then
'Artikel hinzufügen
vRow = .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Row
End If
If IsError(vCol) Then
MsgBox "Lager nicht vorhanden!"
Exit Sub
End If
.Cells(vRow, vCol) = .Cells(vRow, vCol) + txtMenge * 1
End With
End Sub

Gruß
Rudi

AW: VBA - Textbox mit Tabellenblatt vergleichen
17.07.2015 12:34:35
Frank
Hallo Rudi,
Ihr antwortet ja schneller wie ich Fragen stellen kann,Daumen hoch!!
Der Ansatz ist schon mal prima.Vielen Dank.
Nur sollte noch die Artikelnummer mit verknüpft werden.
Gruß Frank

Anzeige
AW: VBA - Textbox mit Tabellenblatt vergleichen
17.07.2015 12:59:47
Rudi
Hallo,
Nur sollte noch die Artikelnummer mit verknüpft werden.
is doch.
vRow = Application.Match(txtArtNr, .Columns(1), 0) 'Zeile Artikel
Gruß
Rudi

AW: VBA - Textbox mit Tabellenblatt vergleichen
17.07.2015 13:12:48
Frank
Hallo Rudi,
Stimmt, war ein Eingabefehler meinerseits.
Jetzt passts.Genauso wie ich es haben wollte.
Vielen,vielen Dank
gruß Frank

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige